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

Removed the need to make a file when listing a random message

cleanup
m455 2020-06-15 15:05:42 -04:00
parent cf003bbea4
commit 5e0757f94d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/nicethings.rkt
View File

@ -174,6 +174,7 @@
;; are multiple newline characters. This ensures ;; are multiple newline characters. This ensures
;; there is only one newline character. ;; there is only one newline character.
(define (add string) (define (add string)
(repair)
(let* ([string-no-newline (string-replace string "\n" "")] (let* ([string-no-newline (string-replace string "\n" "")]
[string-newline (string-append string-no-newline "\n")]) [string-newline (string-append string-no-newline "\n")])
(display-to-file string-newline (display-to-file string-newline
@ -188,7 +189,6 @@
(build-path home-directory nicethings-string)) (build-path home-directory nicethings-string))
(define (random-message) (define (random-message)
(repair)
(let* ([root (find-system-path 'sys-dir)] (let* ([root (find-system-path 'sys-dir)]
[root-home (build-path root "home")] [root-home (build-path root "home")]
[listof-homes (directory-list root-home #:build? #t)] [listof-homes (directory-list root-home #:build? #t)]