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

another push for the night

Browse Source
This commit is contained in:
m455 2019-11-19 22:04:57 -05:00
parent 5563820688
commit 56397bb866
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
utils.rkt
View File

@ -74,14 +74,14 @@
;; Otherwise ;; Otherwise
[else (display-hash-ref messages:messages 'show-usage)])) [else (display-hash-ref messages:messages 'show-usage)]))
;; TODO: Change this to just use append with lst and (list args)
(define (append-item-to-list args lst) (define (append-item-to-list args lst)
(reverse (cons args (reverse (file:file->lines lst))))) (append (file:file->lines lst) '(args)))
;; TODO: Turn into a check-add-conditions and then break ;; TODO: Turn into a check-add-conditions and then break
;; the rest down into separate functions ;; the rest down into separate procedures
(define (add-item-to-list a-file args) (define (add-item-to-list a-file args)
(if (and (file-exists? config:list-file)) (if (and (file-exists? config:list-file))
;; Make this a procedure
(let* ([item (string:string-join (cdr args) " ")] (let* ([item (string:string-join (cdr args) " ")]
[new-list (append-item-to-list item config:list-file)]) [new-list (append-item-to-list item config:list-file)])
(file:display-to-file (string:string-join new-list "\n") (file:display-to-file (string:string-join new-list "\n")
@ -94,7 +94,7 @@
(display-hash-ref messages:messages 'try-init)))) (display-hash-ref messages:messages 'try-init))))
;; TODO: Turn into a check-remove-conditions and then break ;; TODO: Turn into a check-remove-conditions and then break
;; the rest down into separate functions ;; the rest down into separate procedures
(define (remove-item-from-list args) (define (remove-item-from-list args)
(cond (cond
;; If directory and file exist, but file is empty ;; If directory and file exist, but file is empty
@ -111,8 +111,10 @@
;; Length subtract one because the numbering starts at zero ;; Length subtract one because the numbering starts at zero
[list-length (sub1 (length (file:file->lines config:list-file)))]) [list-length (sub1 (length (file:file->lines config:list-file)))])
(if (not (> user-args list-length)) (if (not (> user-args list-length))
;; Make this a procedure
(let* ([item-to-remove (list-ref (file:file->lines config:list-file) user-args)] (let* ([item-to-remove (list-ref (file:file->lines config:list-file) user-args)]
[new-list (remove item-to-remove (file:file->lines config:list-file))]) [new-list (remove item-to-remove (file:file->lines config:list-file))])
;; Might be able to just use display-lines-to-file procedure. See docs
(file:display-to-file (string:string-join new-list "\n") (file:display-to-file (string:string-join new-list "\n")
config:list-file config:list-file
#:mode 'text #:mode 'text