2019-11-13 15:51:28 +00:00
|
|
|
#lang racket/base
|
2019-09-23 20:40:26 +00:00
|
|
|
(provide (all-defined-out))
|
|
|
|
|
|
|
|
|
|
(define program-name "rodo")
|
2019-11-04 02:32:11 +00:00
|
|
|
(define program-directory
|
|
|
|
|
(path->string
|
|
|
|
|
(expand-user-path
|
|
|
|
|
(string-append "~/." program-name "/"))))
|
|
|
|
|
(define list-file "todo.txt")
|
2019-09-23 20:40:26 +00:00
|
|
|
(define remove-command "rm")
|
|
|
|
|
(define add-command "add")
|
|
|
|
|
(define list-command "ls")
|
|
|
|
|
(define initialize-command "init")
|
2019-11-13 20:14:04 +00:00
|
|
|
(define help-command '("-h" "--help" "h" "help"))
|
2019-11-04 02:32:11 +00:00
|
|
|
(define path-to-list-file
|
|
|
|
|
(string-append program-directory list-file))
|
