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

updated via script

Browse Source
This commit is contained in:
m455 2018-04-12 14:25:19 -04:00
parent f7823deebc
commit 24f7600ea4
9 changed files with 282 additions and 248 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
README.md
View File

@ -12,4 +12,3 @@ You can try it out while it's being developed (**note: it requires that you have
`./rodo add "go to the bank"` -> add "go to the bank" to the list `./rodo add "go to the bank"` -> add "go to the bank" to the list
`./rodo ls` -> list your todo list items `./rodo ls` -> list your todo list items

37
args.rkt Normal file
View File

@ -0,0 +1,37 @@
#lang racket/base
(require racket/vector
"config.rkt"
"todo-file.rkt"
"init.rkt"
"list-hash.rkt"
"messages.rkt")
(provide (all-defined-out))
(define (check-args args)
(let
([args-length (vector-length args)])
(cond
[(and
(equal? args-length 1)
(equal? (vector-member list-command args) 0))
(show-list)]
[(and
(equal? args-length 2)
(equal? (vector-member add-command args) 0))
(add-item args)]
[(and
(equal? args-length 2)
(equal? (vector-member remove-command args) 0))
(remove-item args)]
[(and
(equal? args-length 1)
(equal? (vector-member initialize-command args) 0))
(initialize)]
[else
(d-hash-ref messages 'show-usage)])))

2
config.rkt
View File

@ -1,4 +1,5 @@
#lang racket/base #lang racket/base
(provide (all-defined-out)) (provide (all-defined-out))
(define program-name "rodo") (define program-name "rodo")
@ -9,4 +10,3 @@
(define add-command "add") (define add-command "add")
(define list-command "ls") (define list-command "ls")
(define initialize-command "init") (define initialize-command "init")

38
init.rkt Normal file
View File

@ -0,0 +1,38 @@
#lang racket/base
(require "config.rkt"
"list-hash.rkt"
"messages.rkt"
"io.rkt")
(provide (all-defined-out))
(define (init-prompt hash-list key)
(d-hash-ref hash-list key)
(display "> ")
(let
([user-input (read-line)])
(cond
[(member user-input (hash-ref y/n 'yes))
(d-hash-ref messages 'creating-folder)
(d-hash-ref messages 'creating-file)
(create-folder)
(create-file)
(if
(and
(check-for-folder)
(check-for-file))
(d-hash-ref messages 'successfully-created)
(d-hash-ref messages 'creation-error))]
[(member user-input (hash-ref y/n 'no))
(d-hash-ref messages 'terminating)]
[else
(init-prompt messages 'choose-y/n)])))
(define (initialize)
(if (check-for-file)
(d-hash-ref messages 'file-already-exists)
(begin
(init-prompt messages 'init-y/n))))

43
io.rkt Normal file
View File

@ -0,0 +1,43 @@
#lang racket/base
(require "config.rkt")
(provide (all-defined-out))
(define (check-for-file)
(file-exists?
(expand-user-path
(string-append
program-path
program-directory
program-file))))
(define (create-file)
(let
([path
(expand-user-path
(string-append
program-path
program-directory
program-file))])
(let
([opened-file
(open-output-file
path
#:mode 'text
#:exists 'can-update)])
(close-output-port opened-file))))
(define (check-for-folder)
(directory-exists?
(expand-user-path
(string-append
program-path
program-directory))))
(define (create-folder)
(make-directory
(expand-user-path
(string-append
program-path
program-directory))))

11
list-hash.rkt Normal file
View File

@ -0,0 +1,11 @@
#lang racket/base
(require "config.rkt")
(provide (all-defined-out))
(define (d-hash-ref hash-list key)
(display (hash-ref hash-list key)))
(define (d-vector-ref args key)
(display (vector-ref args key)))

111
messages.rkt
View File

@ -1,105 +1,106 @@
#lang racket/base #lang racket/base
(require "config.rkt") (require "config.rkt")
(provide (all-defined-out)) (provide (all-defined-out))
(define messages (define messages
(hash (hash
'show-usage 'show-usage
(string-append (string-append
"> For usage type " "> For usage type "
"`" program-name " -h`" "`" program-name " -h`"
" or " " or "
"`" program-name " --help`\n") "`" program-name " --help`\n")
'creating-folder 'creating-folder
(string-append (string-append
"> creating a " "> creating a "
program-directory program-directory
" folder in " " folder in "
program-path " ...\n") program-path " ...\n")
'creating-file 'creating-file
(string-append (string-append
"> creating a " "> creating a "
program-file program-file
" file in " " file in "
program-path program-path
program-directory " ...\n") program-directory " ...\n")
'creation-error 'creation-error
(string-append (string-append
"> Error: Could not create " "> Error: Could not create "
program-file program-file
" in " " in "
program-directory program-directory
program-path ".\n" program-path ".\n"
"> This may be due to directory permissions\n") "> This may be due to directory permissions\n")
'file-already-exists 'file-already-exists
(string-append (string-append
"> Error: " "> Error: "
program-name program-name
" already exists in " " already exists in "
program-path program-path
program-directory program-directory
program-file "\n") program-file "\n")
'successfully-created 'successfully-created
(string-append (string-append
"> " "> "
program-path program-path
program-directory program-directory
program-file program-file
" has been successfully created\n") " has been successfully created\n")
'file-not-found 'file-not-found
(string-append (string-append
"> Error: Could not find " "> Error: Could not find "
program-path program-path
program-directory program-directory
program-file "\n") program-file "\n")
'init-y/n 'init-y/n
(string-append (string-append
"> A " "> A "
program-file program-file
" file will be created in " " file will be created in "
program-path program-path
program-directory "\n" program-directory "\n"
"> Are you sure you want to continue? [y/n]\n") "> Are you sure you want to continue? [y/n]\n")
'try-init 'try-init
(string-append (string-append
"> Try typing " "> Try typing "
"`" program-name " init` " "`" program-name " init` "
"to set it up\n") "to set it up\n")
'terminating 'terminating
(string-append (string-append
"> Exiting " "> Exiting "
program-name program-name
" ...\n") " ...\n")
'choose-y/n 'choose-y/n
"> Error: Please choose y or n\n" "> Error: Please choose y or n\n"
'item-added-prefix 'item-added-prefix
"> Added " "> Added "
'item-added-suffix 'item-added-suffix
" to list\n" " to list\n"
'item-removed-prefix 'item-removed-prefix
"> Removed " "> Removed "
'item-removed-suffix 'item-removed-suffix
" from list\n")) " from list\n"))
(define y/n (define y/n
(hash (hash
'yes 'yes
'("yes" "Yes" "y" "Y") '("yes" "Yes" "y" "Y")
'no 'no
'("no" "No" "n" "N"))) '("no" "No" "n" "N")))

193
rodo.rkt
View File

@ -1,196 +1,7 @@
#! /usr/bin/env racket #! /usr/bin/env racket
#lang racket/base #lang racket/base
(require racket/vector (require "args.rkt")
racket/file
racket/string
racket/list
"config.rkt"
"messages.rkt")
(define (d-hash-ref hash-list key)
(display (hash-ref hash-list key)))
(define (d-vector-ref args key)
(display (vector-ref args key)))
(define (check-for-file)
(file-exists?
(expand-user-path
(string-append
program-path
program-directory
program-file))))
(define (create-file)
(let
([path
(expand-user-path
(string-append
program-path
program-directory
program-file))])
(let
([opened-file
(open-output-file
path
#:mode 'text
#:exists 'can-update)])
(close-output-port opened-file))))
(define (check-for-folder)
(directory-exists?
(expand-user-path
(string-append
program-path
program-directory))))
(define (create-folder)
(make-directory
(expand-user-path
(string-append
program-path
program-directory))))
(define (make-numbered lst)
(map
string-append
(map
number->string
(range (length lst)))
lst))
(define (add-spaces)
(lambda (lst)
(string-append ". " lst)))
(define (show-list-from-file)
(let
([path
(expand-user-path
(string-append
program-path
program-directory
program-file))])
(let
([todo-list
(file->lines path
#:mode 'text
#:line-mode 'linefeed)])
(display
(string-join
(make-numbered (map (add-spaces) todo-list))
"\n"
#:after-last "\n")))))
(define (show-list)
(if
(and
(check-for-folder)
(check-for-file))
(show-list-from-file)
(begin
(d-hash-ref messages 'file-not-found)
(d-hash-ref messages 'try-init))))
(define (add-item-to-file item)
(let ([item (string-append item "\n")])
(let
([path
(expand-user-path
(string-append
program-path
program-directory
program-file))])
(display-to-file item
path
#:mode 'text
#:exists 'append))))
(define (add-item args)
(if
(and
(check-for-folder)
(check-for-file))
(begin
(add-item-to-file (vector-ref args 1))
(d-hash-ref messages 'item-added-prefix)
(d-vector-ref args 1)
(d-hash-ref messages 'item-added-suffix))
(begin
(d-hash-ref messages 'file-not-found)
(d-hash-ref messages 'try-init))))
(define (remove-item args)
(if
(and
(check-for-folder)
(check-for-file))
(begin
;; TODO (remove-item-from-file (vector-ref args 1))
(d-hash-ref messages 'item-removed-prefix)
(d-vector-ref args 1)
(d-hash-ref messages 'item-removed-suffix))
(begin
(d-hash-ref messages 'file-not-found)
(d-hash-ref messages 'try-init))))
(define (check-args args)
(let
([args-length (vector-length args)])
(cond
[(and
(equal? args-length 1)
(equal? (vector-member list-command args) 0))
(show-list)]
[(and
(equal? args-length 2)
(equal? (vector-member add-command args) 0))
(add-item args)]
[(and
(equal? args-length 2)
(equal? (vector-member remove-command args) 0))
(remove-item args)]
[(and
(equal? args-length 1)
(equal? (vector-member initialize-command args) 0))
(initialize)]
[else
(d-hash-ref messages 'show-usage)])))
(define (init-prompt hash-list key)
(d-hash-ref hash-list key)
(display "> ")
(let
([user-input (read-line)])
(cond
[(member user-input (hash-ref y/n 'yes))
(d-hash-ref messages 'creating-folder)
(d-hash-ref messages 'creating-file)
(create-folder)
(create-file)
(if
(and
(check-for-folder)
(check-for-file))
(d-hash-ref messages 'successfully-created)
(d-hash-ref messages 'creation-error))]
[(member user-input (hash-ref y/n 'no))
(d-hash-ref messages 'terminating)]
[else
(init-prompt messages 'choose-y/n)])))
(define (initialize)
(if (check-for-file)
(d-hash-ref messages 'file-already-exists)
(begin
(init-prompt messages 'init-y/n))))
(define (main) (define (main)
(check-args (current-command-line-arguments))) (check-args (current-command-line-arguments)))

94
todo-file.rkt Normal file
View File

@ -0,0 +1,94 @@
#lang racket/base
(require racket/list
racket/file
racket/string
"config.rkt"
"io.rkt"
"list-hash.rkt"
"messages.rkt")
(provide (all-defined-out))
(define (make-numbered lst)
(map
string-append
(map
number->string
(range (length lst)))
lst))
(define (add-spaces)
(lambda (lst)
(string-append ". " lst)))
(define (show-list-from-file)
(let
([path
(expand-user-path
(string-append
program-path
program-directory
program-file))])
(let
([todo-list
(file->lines path
#:mode 'text
#:line-mode 'linefeed)])
(display
(string-join
(make-numbered (map (add-spaces) todo-list))
"\n"
#:after-last "\n")))))
(define (show-list)
(if
(and
(check-for-folder)
(check-for-file))
(show-list-from-file)
(begin
(d-hash-ref messages 'file-not-found)
(d-hash-ref messages 'try-init))))
(define (add-item-to-file item)
(let ([item (string-append item "\n")])
(let
([path
(expand-user-path
(string-append
program-path
program-directory
program-file))])
(display-to-file item
path
#:mode 'text
#:exists 'append))))
(define (add-item args)
(if
(and
(check-for-folder)
(check-for-file))
(begin
(add-item-to-file (vector-ref args 1))
(d-hash-ref messages 'item-added-prefix)
(d-vector-ref args 1)
(d-hash-ref messages 'item-added-suffix))
(begin
(d-hash-ref messages 'file-not-found)
(d-hash-ref messages 'try-init))))
(define (remove-item args)
(if
(and
(check-for-folder)
(check-for-file))
(begin
;; TODO (remove-item-from-file (vector-ref args 1))
(d-hash-ref messages 'item-removed-prefix)
(d-vector-ref args 1)
(d-hash-ref messages 'item-removed-suffix))
(begin
(d-hash-ref messages 'file-not-found)
(d-hash-ref messages 'try-init))))