2019-11-13 15:51:28 +00:00
|
|
|
#lang racket/base
|
2019-09-23 20:40:26 +00:00
|
|
|
(provide (all-defined-out))
|
|
|
|
|
2019-11-20 02:50:28 +00:00
|
|
|
(define file-name "list.txt")
|
2019-09-23 20:40:26 +00:00
|
|
|
(define program-name "rodo")
|
2019-11-13 21:00:45 +00:00
|
|
|
|
2019-11-04 02:32:11 +00:00
|
|
|
(define program-directory
|
|
|
|
(path->string
|
2019-11-13 21:00:45 +00:00
|
|
|
(expand-user-path
|
|
|
|
(string-append "~/." program-name "/"))))
|
|
|
|
|
2019-11-15 12:37:40 +00:00
|
|
|
(define list-file
|
|
|
|
(string-append program-directory file-name))
|
2019-11-13 21:00:45 +00:00
|
|
|
|
2019-11-20 02:50:28 +00:00
|
|
|
;; TODO: pluralize this value's name
|
2019-11-13 21:00:45 +00:00
|
|
|
(define help-command '("-h"
|
|
|
|
"--help"
|
|
|
|
"h"
|
|
|
|
"help"))
|
|
|
|
|
2019-11-20 02:50:28 +00:00
|
|
|
;; TODO: pluralize this value's name
|
2019-11-13 21:00:45 +00:00
|
|
|
(define initialize-command '("init"
|
|
|
|
"create"
|
|
|
|
"start"
|
|
|
|
"begin"))
|
|
|
|
|
2019-11-20 02:50:28 +00:00
|
|
|
;; TODO: pluralize this value's name
|
2019-11-13 21:00:45 +00:00
|
|
|
(define add-command '("add"
|
|
|
|
"a"))
|
|
|
|
|
2019-11-20 02:50:28 +00:00
|
|
|
;; TODO: pluralize this value's name
|
2019-11-13 21:00:45 +00:00
|
|
|
(define list-command '("ls"
|
|
|
|
"list"))
|
|
|
|
|
2019-11-20 02:50:28 +00:00
|
|
|
;; TODO: pluralize this value's name
|
2019-11-13 21:00:45 +00:00
|
|
|
(define remove-command '("rm"
|
|
|
|
"remove"
|
|
|
|
"del"
|
|
|
|
"delete"))
|