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

changed to a naming conventiong that's better for organizing

main
m455 2021-04-15 21:47:16 -04:00
parent 33097d6396
commit e243d94ea1
1 changed files with 26 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
src/nicethings.rkt
View File

@ -8,13 +8,13 @@
;; ------------------------------------------------ ;; ------------------------------------------------
;; Constants ;; Constants
;; ------------------------------------------------ ;; ------------------------------------------------
(define help-command-1 "help") (define command-help-1 "help")
(define help-command-2 "--help") (define command-help-2 "--help")
(define help-command-3 "-h") (define command-help-3 "-h")
(define init-command "init") (define command-init "init")
(define ls-command "ls") (define command-ls "ls")
(define rm-command "rm") (define command-rm "rm")
(define add-command "add") (define command-add "add")
(define program-name "nicethings") (define program-name "nicethings")
(define program-file (string-append "." program-name)) (define program-file (string-append "." program-name))
(define program-path (path->string (build-path (find-system-path 'home-dir) program-file))) (define program-path (path->string (build-path (find-system-path 'home-dir) program-file)))
@ -30,13 +30,13 @@
(format (string-append "Error: Too many arguments." newline (format (string-append "Error: Too many arguments." newline
"Try running '~a ~a' for more information.") "Try running '~a ~a' for more information.")
program-name program-name
help-command-1) command-help-1)
'error-incorrect-usage 'error-incorrect-usage
(format (string-append "Error: Incorrect usage." newline (format (string-append "Error: Incorrect usage." newline
"Try running '~a ~a' for more information.") "Try running '~a ~a' for more information.")
program-name program-name
help-command-1) command-help-1)
'couldnt-find-file 'couldnt-find-file
(format (string-append "Error: Couldn't find ~a" newline (format (string-append "Error: Couldn't find ~a" newline
@ -46,7 +46,7 @@
program-path program-path
program-path program-path
program-name program-name
init-command) command-init)
'error-something-exists 'error-something-exists
(format "Error: It looks like ~a already exists." program-path) (format "Error: It looks like ~a already exists." program-path)
@ -56,7 +56,7 @@
"Try running '~a ~a'.") "Try running '~a ~a'.")
program-path program-path
program-name program-name
init-command) command-init)
'error-item-not-found 'error-item-not-found
"Error: Item not found." "Error: Item not found."
@ -230,29 +230,29 @@
"Commands:" newline "Commands:" newline
" No command - Displays a random nicething from a random user." newline " No command - Displays a random nicething from a random user." newline
(format " ~a - Creates a file in ~a, which allows you to contribute to the town-wide list of nicethings." (format " ~a - Creates a file in ~a, which allows you to contribute to the town-wide list of nicethings."
init-command command-init
program-path) newline program-path) newline
(format " ~a - Adds a nicething to your list." add-command) newline (format " ~a - Adds a nicething to your list." command-add) newline
(format " ~a - Prints a numbered list of the nicethings you've added." ls-command) newline (format " ~a - Prints a numbered list of the nicethings you've added." command-ls) newline
(format " ~a - Removes a nicething from your list." rm-command) (format " ~a - Removes a nicething from your list." command-rm)
double-newline double-newline
"Examples:" newline "Examples:" newline
(format " ~a" program-name) newline (format " ~a" program-name) newline
(format " ~a ~a" program-name init-command) newline (format " ~a ~a" program-name command-init) newline
(format " ~a ~a \"You are wonderful\"" program-name add-command) newline (format " ~a ~a \"You are wonderful\"" program-name command-add) newline
(format " ~a ~a" program-name ls-command) newline (format " ~a ~a" program-name command-ls) newline
(format " ~a ~a 2" program-name rm-command)))) (format " ~a ~a 2" program-name command-rm))))
(define (process-args vectorof-args) (define (process-args vectorof-args)
(match vectorof-args (match vectorof-args
[(or (vector (== help-command-1)) [(or (vector (== command-help-1))
(vector (== help-command-2)) (vector (== command-help-2))
(vector (== help-command-3))) (help)] (vector (== command-help-3))) (help)]
[(vector (== ls-command)) (ls)] [(vector (== command-ls)) (ls)]
[(vector (== init-command)) (init)] [(vector (== command-init)) (init)]
[(vector (== add-command) a) (add a)] [(vector (== command-add) a) (add a)]
[(vector (== rm-command) a) (rm a)] [(vector (== command-rm) a) (rm a)]
[_ (random-message)] [_ (random-message)]
[(vector _ ...) (displayln-messages-ref 'error-incorrect-usage)])) [(vector _ ...) (displayln-messages-ref 'error-incorrect-usage)]))