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

prefixed util.rkt

main
m455 2018-10-10 14:27:03 -04:00
parent 38e14b967e
commit 2e6091c1c8
2 changed files with 66 additions and 67 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
config.rkt
View File

@ -1,5 +1,4 @@
#lang racket/base
(require racket/file)
(provide (all-defined-out))
(define program-name "rodo")

132
util.rkt
View File

@ -1,34 +1,34 @@
#lang racket/base
(require racket/list
racket/file
racket/string
"config.rkt"
"messages.rkt")
(require (prefix-in list: racket/list)
(prefix-in file: racket/file)
(prefix-in string: racket/string)
(prefix-in config: "config.rkt")
(prefix-in messages: "messages.rkt"))
(provide (all-defined-out))
(define (check-for-file)
(file-exists? path))
(file-exists? config:path))
(define (create-file)
(let ([opened-file
(open-output-file path
#:mode 'text
#:exists 'can-update)])
(open-output-file config: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))))
(string-append
config:program-path
config:program-directory))))
(define (create-folder)
(make-directory (expand-user-path
(string-append
program-path
program-directory))))
(string-append
config:program-path
config:program-directory))))
(define (display-hash-ref hash-list key)
(display (hash-ref hash-list key)))
@ -36,99 +36,99 @@
(define (d-vector-ref args key)
(display (vector-ref args key)))
(define (file->string-list path-to-file)
(let ([todo-list (file->lines path-to-file
#:mode 'text
#:line-mode 'any)])
(define (file->string-list config:path-to-file)
(let ([todo-list (file:file->lines config:path-to-file
#:mode 'text
#:line-mode 'any)])
todo-list))
(define (list-empty? lst)
(empty? (rest (file->string-list lst))))
(list:empty? (list:rest (file->string-list lst))))
(define (get-removed-item lst args)
(list-ref lst (string->number args)))
(define (quote-item args)
(display
(string-append "\"" args "\"")))
(string-append "\"" args "\"")))
(define (prefix-with-number lst)
(map string-append
(map number->string (rest (range (length lst))))
(rest lst)))
(map number->string (list:rest (list:range (length lst))))
(list:rest lst)))
(define (prefix-with-period lst)
(string-append ". " lst))
(define (prettify-list)
(display
(string-join (prefix-with-number (map prefix-with-period (file->string-list path)))
"\n"
#:after-last "\n")))
(string:string-join (prefix-with-number (map prefix-with-period (file->string-list config:path)))
"\n"
#:after-last "\n")))
(define (append-to-end args lst)
(reverse (cons args (reverse (file->string-list lst)))))
(define (display-item-added args)
(display-hash-ref messages 'item-added-prefix)
(display-hash-ref messages:messages 'item-added-prefix)
(quote-item args)
(display-hash-ref messages 'item-added-suffix))
(display-hash-ref messages:messages 'item-added-suffix))
(define (display-item-removed args)
(display-hash-ref messages 'item-removed-prefix)
(display-hash-ref messages:messages 'item-removed-prefix)
(quote-item args)
(display-hash-ref messages 'item-removed-suffix))
(display-hash-ref messages:messages 'item-removed-suffix))
(define (show-list)
(cond [(and
(check-for-folder)
(check-for-file))
(if
(list-empty? path)
(display-hash-ref messages 'empty-todo-list)
(prettify-list))]
[else
(display-hash-ref messages 'file-not-found)
(display-hash-ref messages 'try-init)]))
(check-for-folder)
(check-for-file))
(if
(list-empty? config:path)
(display-hash-ref messages:messages 'empty-todo-list)
(prettify-list))]
[else
(display-hash-ref messages:messages 'file-not-found)
(display-hash-ref messages:messages 'try-init)]))
(define (add-item-to-file args)
(let ([new-list (append-to-end args path)])
(display-to-file
(string-join new-list "\n" #:after-last "\n")
path
#:mode 'text
#:exists 'replace)
(let ([new-list (append-to-end args config:path)])
(file:display-to-file
(string:string-join new-list "\n" #:after-last "\n")
config:path
#:mode 'text
#:exists 'replace)
(display-item-added args)))
(define (add-item args)
(if (and
(check-for-folder)
(check-for-file))
(add-item-to-file (vector-ref args 1))
(begin
(display-hash-ref messages 'file-not-found)
(display-hash-ref messages 'try-init))))
(check-for-folder)
(check-for-file))
(add-item-to-file (vector-ref args 1))
(begin
(display-hash-ref messages:messages 'file-not-found)
(display-hash-ref messages:messages 'try-init))))
(define (remove-item-from-file args)
(let ([removed-item (get-removed-item (file->string-list path) args)]
[new-list (remove
(list-ref (file->string-list path) (string->number args))
(file->string-list path))])
(display-to-file
(string-join new-list "\n" #:after-last "\n")
path
#:mode 'text
#:exists 'replace)
(let ([removed-item (get-removed-item (file->string-list config:path) args)]
[new-list (remove
(list-ref (file->string-list config:path) (string->number args))
(file->string-list config:path))])
(file:display-to-file
(string:string-join new-list "\n" #:after-last "\n")
config:path
#:mode 'text
#:exists 'replace)
(display-item-removed removed-item)))
(define (remove-item args)
(cond [(list-empty? path)
(display-hash-ref messages 'empty-todo-list)]
(cond [(list-empty? config:path)
(display-hash-ref messages:messages 'empty-todo-list)]
[(and
(check-for-folder)
(check-for-file))
(check-for-folder)
(check-for-file))
(remove-item-from-file (vector-ref args 1))]
[(and (not (check-for-folder)) (not (check-for-file)))
(begin
(display-hash-ref messages 'file-not-found)
(display-hash-ref messages 'try-init))]))
(display-hash-ref messages:messages 'file-not-found)
(display-hash-ref messages:messages 'try-init))]))