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

quotations around added items are now optional

main
m455 2019-03-12 16:18:19 -04:00
parent ad02baffb7
commit db79a736a2
3 changed files with 5 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
README.md
View File

@ -15,7 +15,6 @@ Now the default directory and todo list file have better default permissions:
# Todos # Todos
- Allow the use of unquoted items to be added if the user doesn't want/forgets to use them
- Add color option to `config.rkt` file - Add color option to `config.rkt` file
- Encrypt `todo.txt` file - Encrypt `todo.txt` file
- Add note on `.bash_history` about items being added here before going into the `todo.txt` file - Add note on `.bash_history` about items being added here before going into the `todo.txt` file
@ -141,8 +140,7 @@ The examples below assume that you have `rodo` [set up in your `$PATH`](https://
`rodo add "go to the park"` `rodo add "go to the park"`
**Note: If you leave out the double quotation marks here, only the first word `rodo add this is a task without quotes`
will be added. In the example above, only "go" would be added to the list.**
`rodo rm 1` `rodo rm 1`

6
args.rkt
View File

@ -23,7 +23,7 @@
;; add ;; add
[(and [(and
(equal? args-length 2) (or (equal? args-length 2) (>= args-length 2))
(equal? (vector-ref args 0) config:add-command)) (equal? (vector-ref args 0) config:add-command))
(util:add-item args)] (util:add-item args)]
@ -34,8 +34,8 @@
(real? (string->number (vector-ref args 1))) (real? (string->number (vector-ref args 1)))
(positive? (string->number (vector-ref args 1))) (positive? (string->number (vector-ref args 1)))
(not (> (string->number (vector-ref args 1)) (length (util:file->string-list config:path)))) (not (> (string->number (vector-ref args 1)) (length (util:file->string-list config:path))))
(not (< (string->number (vector-ref args 1)) (car (list:range (length (util:file->string-list config:path)))))) (not (< (string->number (vector-ref args 1)) (car (list:range (length (util:file->string-list config:path)))))))
(util:remove-item args))] (util:remove-item args)]
;; init ;; init
[(and [(and

5
util.rkt
View File

@ -117,10 +117,7 @@
(if (and (if (and
(check-for-directory) (check-for-directory)
(check-for-file)) (check-for-file))
;; Todo: add rest of arguments to make double quotation (add-item-to-file (string:string-join (vector->list args)))
;; marks optional if the user doesn't want/
;; forgets to use them
(add-item-to-file (vector-ref args 1))
(begin (begin
(display-hash-ref messages:messages 'file-not-found) (display-hash-ref messages:messages 'file-not-found)
(display-hash-ref messages:messages 'try-init)))) (display-hash-ref messages:messages 'try-init))))