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

boop

main
m455 2018-04-02 15:16:01 -04:00
parent 6cb4bc3dc4
commit f95872fc06
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rodo.rkt
View File

@ -1,14 +1,12 @@
#! /usr/bin/env racket #! /usr/bin/env racket
#lang racket/base #lang racket/base
(require json racket/vector) (require json racket/vector)
(define program-name "rodo") (define program-name "rodo")
(define program-file ".rodo") (define program-file ".rodo")
(define program-path "~/") (define program-path "~/")
;; because I don't want to type `(display (hash-ref...` over and over again
(define (d-hash-ref hash-list key) (define (d-hash-ref hash-list key)
(displayln (hash-ref hash-list key))) (displayln (hash-ref hash-list key)))
@ -31,7 +29,7 @@
'creating-file (string-append "> Creating a " program-file " file in your " program-path " directory...") 'creating-file (string-append "> Creating a " program-file " file in your " program-path " directory...")
'file-exists-now (string-append "> " program-path program-file " have been successfully created") 'file-exists-now (string-append "> " program-path program-file " have been successfully created")
'error-creating-file (string-append "> There was an error creating " program-file " in your " program-path " path.\n> This may be due to directory permissions") 'error-creating-file (string-append "> Error: Could not create " program-file " in your " program-path " directory.\n> This may be due to directory permissions")
'item-added "> Added item to list" 'item-added "> Added item to list"
'item-removed "> Added item to list" 'item-removed "> Added item to list"