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

i dont remember what i did in this one

Browse Source
This commit is contained in:
m455 2018-04-02 11:37:33 -04:00
parent f0222bb755
commit 27bfaaee40
1 changed files with 32 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
rodo.rkt
View File

@ -1,30 +1,42 @@
#! /usr/bin/env racket
#lang racket/base
(require json)
;; set the name of the program here
(define program-name "rodo")
;; set which path the program will live in
(define program-path "~/.")
;; because I don't want to type `(display (hash-ref...` over and over again
(define (displayln-hash-ref hash-list key)
(displayln (hash-ref hash-list key)))
;; define all messages for quick access
(define messages
(hash
'incorrect-usage (string-append "> For usage type `" program-name " -h` or `" program-name " --help`")
'file-not-found (string-append "> " program-name " has not been setup in your home directory\n> Would you like to set it up now? [y/n]")
'file-exists (string-append "> ." program-name " file exists")
'creating-file (string-append "> Creating ." program-name " file in your home directory...")
'item-added "> Item added"
'item-removed "> Item removed"
;; temporary thing
'item-added (string-append "> Added ")
;; todo change `item` to command-line argument for add and remove
;; 'item-added (string-append "> Added " (vector-ref (current-command-line-arguments) 1))
;; 'item-removed "> Item removed" ;; todo change `item` to command-line argument
'initializing (string-append "> Initializing " program-name " in your home directory")
'terminating (string-append "> Terminating " program-name "...")
'terminating (string-append "> Exiting " program-name "...")
'choose-y/n "> Error: Please choose y or n"))
;; some possible user-input related "mistakes" that will be accepted for input
(define y/n
(hash
'yes '("yes" "Yes" "y" "Y")
'no '("no" "No" "n" "N")))
;; yet again, less typing for opening a file
(define (open/create-file path)
(let ([path (expand-user-path path)])
(let ([opened-file (open-output-file path
@ -32,6 +44,7 @@
#:exists 'can-update)])
(close-output-port opened-file))))
;; talk with user if something goes wrong/right
(define (prompt-user prompt-message)
(displayln-hash-ref messages prompt-message)
(display "> ")
@ -46,9 +59,25 @@
(displayln-hash-ref messages 'choose-y/n)
(prompt-user 'file-not-found)])))
(define (add-to-list args)
;; (let ([item (vector-ref args 1)])
(displayln-hash-ref messages 'item-added))
(define (check-args args)
(vector-length (args)))
(define (todo-list-exist?)
(if (file-exists? (expand-user-path (string-append program-path program-name)))
(displayln-hash-ref messages 'file-exists)
(prompt-user 'file-not-found)))
;; todo get command-line args
#|(define (todo-list-exist?)
(if (file-exists? (expand-user-path (string-append program-path program-name)))
(begin
(displayln-hash-ref messages 'file-exists)
(add-to-list (current-command-line-arguments)))
(prompt-user 'file-not-found)))
|#
(todo-list-exist?)