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

updated via script

main
m455 2018-04-09 21:35:13 -04:00
parent 9dd54a3186
commit 656089add8
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rodo.rkt
View File

@ -140,9 +140,10 @@
program-file))]) program-file))])
(let (let
([opened-file ([opened-file
(open-output-file path (open-output-file
#:mode 'text path
#:exists 'can-update)]) #:mode 'text
#:exists 'can-update)])
(close-output-port opened-file)))) (close-output-port opened-file))))
(define (check-for-folder) (define (check-for-folder)
@ -181,8 +182,8 @@
#:line-mode 'linefeed)]) #:line-mode 'linefeed)])
(display (display
(string-join (string-join
(map (add-bullets) (map (add-bullets) todo-items)
todo-items) "\n" "\n"
#:after-last "\n"))))) #:after-last "\n")))))
(define (show-list) (define (show-list)