tildetown
/
nicethings
2
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

blep

cleanup
m455 2020-06-20 00:26:33 -04:00
parent 6b87eb5f4c
commit 01ce2785de
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/nicethings.rkt
View File

@ -5,12 +5,6 @@
racket/match
racket/string)
;; ------------------------------------------------
;; OLD values
;; ------------------------------------------------
(define nicethings-string ".nicethings")
(define nicethings-path (build-path (find-system-path 'home-dir) nicethings-string))
;; ------------------------------------------------
;; values
;; ------------------------------------------------
@ -248,7 +242,7 @@
;; random message
;; ------------------------------------------------
(define (random-message/append-nicethings-file home-directory)
(build-path home-directory nicethings-string))
(build-path home-directory program-name-dotted))
(define (random-message)
(let* ([root (find-system-path 'sys-dir)] ;; /