From 2e6091c1c83c031560b476bdefe298018bc24cf9 Mon Sep 17 00:00:00 2001 From: m455 Date: Wed, 10 Oct 2018 14:27:03 -0400 Subject: [PATCH] prefixed util.rkt --- config.rkt | 1 - util.rkt | 132 ++++++++++++++++++++++++++--------------------------- 2 files changed, 66 insertions(+), 67 deletions(-) diff --git a/config.rkt b/config.rkt index ecd9548..ffd0ceb 100644 --- a/config.rkt +++ b/config.rkt @@ -1,5 +1,4 @@ #lang racket/base -(require racket/file) (provide (all-defined-out)) (define program-name "rodo") diff --git a/util.rkt b/util.rkt index 1644406..829a4a4 100644 --- a/util.rkt +++ b/util.rkt @@ -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))]))