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

getting rid of hardcoded paths and names

main
m455 2018-03-26 13:43:17 -04:00
parent 35f28df5d3
commit f0222bb755
1 changed files with 24 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
rodo.rkt
View File

@ -1,38 +1,45 @@
#! /usr/bin/env racket #! /usr/bin/env racket
#lang racket/base #lang racket/base
(define program-name "rodo")
(define program-path "~/.")
(define (displayln-hash-ref hash-list key) (define (displayln-hash-ref hash-list key)
(displayln (hash-ref hash-list key))) (displayln (hash-ref hash-list key)))
(define messages (hash (define messages
'incorrect-usage "> For usage type `rodo -h` or `rodo --help`" (hash
'file-not-found "> rodo has not been setup in your home directory\nWould you like to set it up now? [y/n]" 'incorrect-usage (string-append "> For usage type `" program-name " -h` or `" program-name " --help`")
'file-exists "> .rodo file exists" 'file-not-found (string-append "> " program-name " has not been setup in your home directory\n> Would you like to set it up now? [y/n]")
'creating-file "> Creating .rodo file in your home directory..." 'file-exists (string-append "> ." program-name " file exists")
'item-added "> Item added" 'creating-file (string-append "> Creating ." program-name " file in your home directory...")
'item-removed "> Item removed" 'item-added "> Item added"
'initializing "> Initializing rodo in your home directory" 'item-removed "> Item removed"
'terminating "> Terminating rodo..." 'initializing (string-append "> Initializing " program-name " in your home directory")
'choose-y/n "> Error: Please choose y or n")) 'terminating (string-append "> Terminating " program-name "...")
'choose-y/n "> Error: Please choose y or n"))
(define y/n (hash (define y/n
'yes '("yes" "Yes" "y" "Y") (hash
'no '("no" "No" "n" "N"))) 'yes '("yes" "Yes" "y" "Y")
'no '("no" "No" "n" "N")))
(define (open/create-file path) (define (open/create-file path)
(let ([path (expand-user-path path)]) (let ([path (expand-user-path path)])
(let ([opened-file (open-output-file path (let ([opened-file (open-output-file path
#:mode 'text #:mode 'text
#:exists 'can-update)]) #:exists 'can-update)])
(close-output-port opened-file)))) (close-output-port opened-file))))
(define (prompt-user prompt-message) (define (prompt-user prompt-message)
(displayln-hash-ref messages prompt-message) (displayln-hash-ref messages prompt-message)
(display "> ")
(let ([user-input (read-line)]) (let ([user-input (read-line)])
(cond (cond
[(member user-input (hash-ref y/n 'yes)) [(member user-input (hash-ref y/n 'yes))
(displayln-hash-ref messages 'creating-file) (displayln-hash-ref messages 'creating-file)
(open/create-file "~/.rodo")] (open/create-file (string-append program-path program-name))]
[(member user-input (hash-ref y/n 'no)) [(member user-input (hash-ref y/n 'no))
(displayln-hash-ref messages 'terminating)] (displayln-hash-ref messages 'terminating)]
[else [else
@ -40,7 +47,7 @@
(prompt-user 'file-not-found)]))) (prompt-user 'file-not-found)])))
(define (todo-list-exist?) (define (todo-list-exist?)
(if (file-exists? (expand-user-path "~/.rodo")) (if (file-exists? (expand-user-path (string-append program-path program-name)))
(displayln-hash-ref messages 'file-exists) (displayln-hash-ref messages 'file-exists)
(prompt-user 'file-not-found))) (prompt-user 'file-not-found)))