attempting a cleanup of this awful old code haha
m455
parent
b0976283c9
commit
672bf1d6c9
|
|
@ -17,8 +17,8 @@
|
|||
(define add-command "add")
|
||||
(define program-name "nicethings")
|
||||
(define program-file (string-append "." program-name))
|
||||
(define program-path (build-path (find-system-path 'home-dir) program-file))
|
||||
(define program-permissions 420) ;; 644/-rw-r--r-- permissions
|
||||
(define program-path (path->string (build-path (find-system-path 'home-dir) program-file)))
|
||||
(define read-permissions 420)
|
||||
(define newline "\n")
|
||||
(define double-newline "\n\n")
|
||||
|
||||
|
|
@ -26,8 +26,7 @@
|
|||
;; Messages
|
||||
;; ------------------------------------------------
|
||||
(define messages
|
||||
(hash
|
||||
'error-too-many-arguments
|
||||
(hash 'error-too-many-arguments
|
||||
(format (string-append "Error: Too many arguments." newline
|
||||
"Try running '~a ~a' for more information.")
|
||||
program-name
|
||||
|
|
@ -39,13 +38,18 @@
|
|||
program-name
|
||||
help-command-1)
|
||||
|
||||
'error-file-already-exists
|
||||
(format "Error: The file '~a' already exists." program-path)
|
||||
'couldnt-find-file
|
||||
(format (string-append "Error: Couldn't find ~a" newline
|
||||
"Either the file doesn't exist, or the permissions are incorrect." newline
|
||||
"If the file exists, try running chmod 600 ~a"
|
||||
"If the file doesn't exist, try running ~a ~a")
|
||||
program-path
|
||||
program-path
|
||||
program-name
|
||||
init-command)
|
||||
|
||||
'error-fake-file-exists
|
||||
(format (string-append "Error: The directory '~a' exists." newline
|
||||
"Try moving, renaming, or deleting this directory.")
|
||||
program-path)
|
||||
'error-something-exists
|
||||
(format "Error: It looks like ~a already exists." program-path)
|
||||
|
||||
'error-file-doesnt-exist
|
||||
(format (string-append "Error: '~a' doesn't exist." newline
|
||||
|
|
@ -57,6 +61,11 @@
|
|||
'error-item-not-found
|
||||
"Error: Item not found."
|
||||
|
||||
'error-not-an-option
|
||||
"Error: not an option."
|
||||
|
||||
'error-not-a-number
|
||||
"Error: not a number."
|
||||
|
||||
'warning-permissions
|
||||
(format (string-append "Warning: The permissions on your '~a' file are incorrect." newline
|
||||
|
|
@ -69,25 +78,15 @@
|
|||
(format "Cancelled the creation of '~a'." program-path)
|
||||
|
||||
'init-prompt
|
||||
(format (string-append "~a will create '~a'." newline
|
||||
(format (string-append "The file '~a' will be created." newline
|
||||
"Is this okay? [y/n]")
|
||||
program-name
|
||||
program-path)
|
||||
|
||||
'file-created
|
||||
(format "Successfully created ~a." program-path)
|
||||
|
||||
'empty-list
|
||||
"There is nothing in your list."))
|
||||
|
||||
(define formatees
|
||||
(hash
|
||||
'error-not-an-option
|
||||
(string-append "Error: '~a' is not an option." newline
|
||||
"Please choose 'y' or 'n'.")
|
||||
|
||||
'error-not-a-number
|
||||
(string-append "Error: '~a' is not a number.")
|
||||
"There is nothing in your list."
|
||||
|
||||
'added
|
||||
"Added '~a' to your list."
|
||||
|
|
@ -101,177 +100,121 @@
|
|||
(define (messages-ref key)
|
||||
(hash-ref messages key))
|
||||
|
||||
(define (formatees-ref key)
|
||||
(hash-ref formatees key))
|
||||
|
||||
(define (displayln-messages-ref key)
|
||||
(let ([message (messages-ref key)])
|
||||
(displayln message)))
|
||||
(displayln (messages-ref key)))
|
||||
|
||||
(define (displayln-formatees-ref key string)
|
||||
(let* ([formatee (formatees-ref key)]
|
||||
[formatee-formatted (format formatee string)])
|
||||
(displayln formatee-formatted)))
|
||||
(define (displayln-format-messages-ref key value)
|
||||
(displayln (format (messages-ref key) value)))
|
||||
|
||||
(define (create-file string)
|
||||
(close-output-port
|
||||
(open-output-file string)))
|
||||
|
||||
(define (has-program-permissions? string)
|
||||
(equal? program-permissions (file-or-directory-permissions string 'bits)))
|
||||
|
||||
;; ------------------------------------------------
|
||||
;; Check conditions
|
||||
;; ------------------------------------------------
|
||||
(define (check-conditions)
|
||||
(cond
|
||||
[(directory-exists? program-path)
|
||||
(begin (displayln-messages-ref 'error-fake-file-exists)
|
||||
(exit))]
|
||||
|
||||
[(not (file-exists? program-path))
|
||||
(begin (displayln-messages-ref 'error-file-doesnt-exist)
|
||||
(exit))]
|
||||
|
||||
[(not (has-program-permissions? program-path))
|
||||
(displayln-messages-ref 'warning-permissions)]
|
||||
|
||||
[else 'do-nothing]))
|
||||
(close-output-port (open-output-file string)))
|
||||
|
||||
(define (has-read-permissions? string)
|
||||
(equal? read-permissions (file-or-directory-permissions string 'bits)))
|
||||
|
||||
;; ------------------------------------------------
|
||||
;; init
|
||||
;; ------------------------------------------------
|
||||
(define (init/create-file)
|
||||
(create-file program-path)
|
||||
(file-or-directory-permissions program-path
|
||||
program-permissions)
|
||||
(displayln-messages-ref 'file-created))
|
||||
|
||||
(define (init/cancel)
|
||||
(displayln-messages-ref 'init-cancelled)
|
||||
(exit))
|
||||
|
||||
(define (init/create-file)
|
||||
(create-file program-path)
|
||||
(file-or-directory-permissions program-path read-permissions)
|
||||
(displayln-messages-ref 'file-created))
|
||||
|
||||
(define (init/prompt)
|
||||
(displayln-messages-ref 'init-prompt)
|
||||
(display "> ")
|
||||
(let* ([input (read-line)]
|
||||
[input-symbol (string->symbol input)])
|
||||
(let ([input-symbol (string->symbol (read-line))])
|
||||
(case input-symbol
|
||||
['y (init/create-file)]
|
||||
['n (init/cancel)]
|
||||
[else (displayln-formatees-ref 'error-not-an-option input)])))
|
||||
[else (displayln-messages-ref 'error-not-an-option)])))
|
||||
|
||||
(define (init)
|
||||
(cond
|
||||
[(file-exists? program-path)
|
||||
(displayln-messages-ref 'error-file-already-exists)]
|
||||
|
||||
[(directory-exists? program-path)
|
||||
(displayln-messages-ref 'error-fake-file-exists)]
|
||||
|
||||
[else (init/prompt)]))
|
||||
(if (or (file-exists? program-path)
|
||||
(directory-exists? program-path))
|
||||
(displayln-messages-ref 'error-something-exists)
|
||||
(init/prompt)))
|
||||
|
||||
;; ------------------------------------------------
|
||||
;; ls
|
||||
;; ------------------------------------------------
|
||||
(define (ls/display-list listof-items)
|
||||
;; The add1 in the first binding starts the
|
||||
;; listof-numbers at 1 instead of 0 to make the
|
||||
;; list numbering more human-friendly
|
||||
(let* ([listof-numbers (map add1 (range (length listof-items)))]
|
||||
[listof-number-strings (map number->string listof-numbers)]
|
||||
[combine-lists (lambda (a b) (string-append a ". " b))]
|
||||
[listof-numbered-items (map combine-lists
|
||||
(let* ([listof-number-strings (map number->string (range (length listof-items)))]
|
||||
[listof-numbered-items (map (lambda (a b) (string-append a ". " b))
|
||||
listof-number-strings
|
||||
listof-items)])
|
||||
(for ([item listof-numbered-items])
|
||||
(displayln item))))
|
||||
|
||||
(define (ls)
|
||||
(check-conditions)
|
||||
(if (and (file-exists? program-file)
|
||||
(has-read-permissions? program-file))
|
||||
(let ([listof-items (file->lines program-path)])
|
||||
(if (null? listof-items)
|
||||
(displayln-messages-ref 'empty-list)
|
||||
(ls/display-list listof-items))))
|
||||
(ls/display-list listof-items)))
|
||||
(displayln-messages-ref 'couldnt-file-file)))
|
||||
|
||||
;; ------------------------------------------------
|
||||
;; rm
|
||||
;; ------------------------------------------------
|
||||
(define (rm/remove-item listof-items item-number)
|
||||
(define (rm/remove-nicething item-number)
|
||||
(let ([listof-items (file->lines program-path)])
|
||||
(if (and (not (null? listof-items))
|
||||
(>= item-number 0)
|
||||
(< item-number (length listof-items)))
|
||||
(let* ([item-to-remove (list-ref listof-items item-number)]
|
||||
[list-without-item (remove item-to-remove listof-items)])
|
||||
(display-lines-to-file list-without-item
|
||||
program-path
|
||||
#:exists 'truncate)
|
||||
(displayln-formatees-ref 'removed item-to-remove)))
|
||||
|
||||
(define (rm/process-string string)
|
||||
(let* ([listof-items (file->lines program-path)]
|
||||
[item-number (string->number string)]
|
||||
;; Subtract 1 from the user's original number,
|
||||
;; because we want to convert the number from
|
||||
;; human numbers (1 2 3) to index numbers
|
||||
;; (0 1 2)
|
||||
[item-number-sub1 (sub1 item-number)]
|
||||
[list-length (length listof-items)])
|
||||
(if (and (not (null? listof-items))
|
||||
(number? item-number)
|
||||
(positive? item-number)
|
||||
;; Don't allow numbers that are equal to
|
||||
;; or greater than list-length, because
|
||||
;; the list index starts at 0
|
||||
;;
|
||||
;; Example:
|
||||
;; Length of (1 2 3) = 3
|
||||
;;
|
||||
;; To reference the highest number, we
|
||||
;; use (list-ref (1 2 3) 2)
|
||||
(< item-number-sub1 list-length))
|
||||
(rm/remove-item listof-items item-number-sub1)
|
||||
(display-lines-to-file list-without-item program-path #:exists 'truncate)
|
||||
(displayln-format-messages-ref 'removed item-to-remove))
|
||||
(displayln-messages-ref 'error-item-not-found))))
|
||||
|
||||
(define (rm string)
|
||||
(check-conditions)
|
||||
(if (string->number string)
|
||||
(rm/process-string string)
|
||||
(displayln-formatees-ref 'error-not-a-number string)))
|
||||
(define (rm arg)
|
||||
(if (and (file-exists? program-file)
|
||||
(has-read-permissions? program-file))
|
||||
(let ([item-number (string->number arg)])
|
||||
(if item-number
|
||||
(rm/remove-nicething item-number)
|
||||
(displayln-format-messages-ref 'error-not-a-number arg)))
|
||||
(displayln-messages-ref 'couldnt-find-file)))
|
||||
|
||||
;; ------------------------------------------------
|
||||
;; add
|
||||
;; ------------------------------------------------
|
||||
(define (add string)
|
||||
(check-conditions)
|
||||
(define (add nicething)
|
||||
(if (and (file-exists? program-file)
|
||||
(has-read-permissions? program-file))
|
||||
;; The removing and adding of the '\n' is to
|
||||
;; ensure only one '\n' exists at the end of the
|
||||
;; item to be added.
|
||||
(let* ([string-no-newline (string-replace string "\n" "")]
|
||||
[string-newline (string-append string-no-newline "\n")])
|
||||
(display-to-file string-newline
|
||||
program-path
|
||||
#:exists 'append)
|
||||
(displayln-formatees-ref 'added string-no-newline)))
|
||||
(let* ([nicething-no-newline (string-replace nicething "\n" "")]
|
||||
[nicething-newline (string-append nicething-no-newline "\n")])
|
||||
(display-to-file nicething-newline program-path #:exists 'append)
|
||||
(displayln-format-messages-ref 'added nicething-no-newline))
|
||||
(displayln-messages-ref 'couldnt-find-file)))
|
||||
|
||||
;; ------------------------------------------------
|
||||
;; random message
|
||||
;; ------------------------------------------------
|
||||
(define (random-message/append-program-file home-directory)
|
||||
(build-path home-directory program-file))
|
||||
|
||||
(define (random-message)
|
||||
(let* ([root (find-system-path 'sys-dir)] ;; /
|
||||
[root-home (build-path root "home")] ;; /home
|
||||
(let* ([root-home (build-path (find-system-path 'sys-dir) "home")] ;; /home
|
||||
;; `#:build? #t` Builds full paths for all items listed in /home/
|
||||
[listof-home-directories (directory-list root-home #:build? #t)]
|
||||
[listof-nicethings-paths (map random-message/append-program-file listof-home-directories)]
|
||||
[directories-with-nicethings (filter file-exists? listof-nicethings-paths)]
|
||||
[directories-with-644 (filter has-program-permissions? directories-with-nicethings)]
|
||||
[listof-nicethings (apply append (map file->lines directories-with-644))]
|
||||
[listof-nicethings-paths (map (lambda (x) (build-path x program-file))
|
||||
listof-home-directories)]
|
||||
[paths-with-nicethings (filter file-exists? listof-nicethings-paths)]
|
||||
[paths-readable (filter has-read-permissions? paths-with-nicethings)]
|
||||
[listof-nicethings (apply append (map file->lines paths-readable))]
|
||||
[list-length (length listof-nicethings)])
|
||||
(when (not (zero? list-length))
|
||||
(let* ([random-number (random list-length)]
|
||||
[random-nicething (list-ref listof-nicethings random-number)])
|
||||
(displayln random-nicething)))))
|
||||
[random-nicething (list-ref listof-nicethings random-number)]
|
||||
[nicething-trimmed (string-replace random-nicething "\n" "")])
|
||||
(displayln nicething-trimmed)))))
|
||||
|
||||
;; ------------------------------------------------
|
||||
;; help
|
||||
|
|
|
|||
Loading…
Reference in New Issue