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

prefixed all of rodo.rkt and args.rkt

main
m455 2018-10-10 13:55:52 -04:00
parent afaaf5094d
commit d56570dcc2
10 changed files with 529 additions and 547 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

61
args.rkt
View File

@ -1,47 +1,44 @@
#lang racket/base
(require racket/vector
racket/list
"config.rkt"
"init.rkt"
"util.rkt"
"messages.rkt")
(require (prefix-in vector: racket/vector)
(prefix-in list: racket/list)
(prefix-in config: "config.rkt")
(prefix-in init: "init.rkt")
(prefix-in util: "util.rkt")
(prefix-in messages: "messages.rkt"))
(provide (all-defined-out))
(define (check-args args)
(let
([args-length (vector-length args)])
([args-length (vector-length args)])
(cond
[(equal? args-length 0)
(d-hash-ref messages 'show-usage)]
(util:display-hash-ref messages:messages 'show-usage)]
[(and
(equal? args-length 1)
(equal? (vector-member list-command args) 0))
(show-list)]
(equal? args-length 1)
(equal? (vector:vector-member config:list-command args) 0))
(util:show-list)]
[(and
(equal? args-length 2)
(equal? (vector-ref args 0) add-command))
(add-item args)]
(equal? args-length 2)
(equal? (vector-ref args 0) config:add-command))
(util:add-item args)]
[(and
(equal? args-length 2)
(equal? (vector-member remove-command args) 0)
(not (equal? (vector-member "0" args) 1))
(vector-member (vector-ref args 1) (list->vector (map number->string (rest (range (length (file->string-list path))))))))
(remove-item args)]
(equal? args-length 2)
(equal? (vector:vector-member config:remove-command args) 0)
(not (equal? (vector:vector-member "0" args) 1))
(vector:vector-member
(vector-ref args 1)
(list->vector
(map number->string (list:rest (list:range (length (util:file->string-list config:path))))))))
(util:remove-item args)]
[(and
(equal? args-length 1)
(equal? (vector-member initialize-command args) 0))
(initialize)]
(equal? args-length 1)
(equal? (vector:vector-member config:initialize-command args) 0))
(init:initialize)]
[(and
(equal? args-length 1)
(member (vector-ref args 0) help-command))
(d-hash-ref messages 'show-help)]
(equal? args-length 1)
(member (vector-ref args 0) config:help-command))
(util:display-hash-ref messages:messages 'show-help)]
[else
(d-hash-ref messages 'show-usage)])))
(util:display-hash-ref messages:messages 'show-usage)])))

17
init.rkt
View File

@ -3,8 +3,7 @@
(require racket/file
"config.rkt"
"util.rkt"
"messages.rkt"
"io.rkt")
"messages.rkt")
(provide (all-defined-out))
@ -16,14 +15,14 @@
#:exists 'replace))
(define (init-prompt hash-list key)
(d-hash-ref hash-list key)
(display-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)
(display-hash-ref messages 'creating-folder)
(display-hash-ref messages 'creating-file)
(create-folder)
(create-file)
(initialize-file)
@ -31,17 +30,17 @@
(and
(check-for-folder)
(check-for-file))
(d-hash-ref messages 'successfully-created)
(d-hash-ref messages 'creation-error))]
(display-hash-ref messages 'successfully-created)
(display-hash-ref messages 'creation-error))]
[(member user-input (hash-ref y/n 'no))
(d-hash-ref messages 'terminating)]
(display-hash-ref messages 'terminating)]
[else
(init-prompt messages 'choose-y/n)])))
(define (initialize)
(if (check-for-file)
(d-hash-ref messages 'file-already-exists)
(display-hash-ref messages 'file-already-exists)
(begin
(init-prompt messages 'init-y/n))))

32
io.rkt
View File

@ -1,32 +0,0 @@
#lang racket/base
(require racket/file
"config.rkt")
(provide (all-defined-out))
(define (check-for-file)
(file-exists? path))
(define (create-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))))

BIN
rodo
View File

Binary file not shown.

4
rodo.rkt
View File

@ -1,9 +1,9 @@
#! /usr/bin/env racket
#lang racket/base
(require "args.rkt")
(require (prefix-in args: "args.rkt"))
(define (main)
(check-args (current-command-line-arguments)))
(args:check-args (current-command-line-arguments)))
(main)

142
util.rkt
View File

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