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

Finished writing the repair procedures. the second time? i think for real this time?

cleanup
m455 2020-06-15 11:07:48 -04:00
parent da77be104d
commit 17528dd23e
1 changed files with 81 additions and 64 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

91
nicethings.rkt
View File

@ -14,12 +14,15 @@
(define messages
(hash
'not-found "> '~a' wasn't found."
'repair-prompt "> You will need it to use nicethings.\n> Do you want to create it? [y/n]\n> "
'not-found-prompt "> You will need it to use nicethings.\n> Do you want to create it? [y/n]\n> "
'wrong-permissions "> '~a''s permissions are incorrect."
'wrong-permissions-prompt "> You will need the permissions to be fixed before using nicethings.\n> Do you want to fix them? [y/n]\n> "
'fake-file-found "> The directory '~a' was found.\n> Please move this file somewhere else before using nicethings."
'try (list "> For usage help, try running the following command:"
"nicethings --help")
'cancel-creation "> Cancelled nicethings file creation."
'cancel "> Cancelled."
'file-created "> '~a' was successfully created."
'permissions-fixed "> '~a''s permissions were successfully fixed."
'not-an-option "> Error: '~a' is not an option."
'add-expected-arg (list "> Error: Found 'add', but no arguments were found."
"> The 'add' command expects one quoted argument after it."
@ -54,6 +57,12 @@
(define (messages-ref key)
(hash-ref messages key))
(define (file-has-420-permissions? file)
(equal? 420 (file-or-directory-permissions file 'bits)))
(define (append-nicethings-file home-directory)
(build-path home-directory nicethings-string))
;; ------------------------------------------------
;; repair
;; ------------------------------------------------
@ -62,30 +71,50 @@
(exit))
(define (repair/cancel)
(displayln (messages-ref 'cancel-creation))
(displayln (messages-ref 'cancel))
(exit))
;; Check for a "fake" '.nicethings' file,
;; which is a directory named '.nicethings'
(define (repair/start)
(if (directory-exists? nicethings-path-local)
(begin (displayln-format (messages-ref 'fake-file-found) nicethings-path-local)
(define (repair/fix-permissions)
(file-or-directory-permissions nicethings-path-local 420)
(displayln-format (messages-ref 'permissions-fixed) nicethings-path-local)
(exit))
(begin (close-output-port (open-output-file nicethings-path-local))
(displayln-format (messages-ref 'file-created) nicethings-path-local))))
(define (repair/prompt)
(display (messages-ref 'repair-prompt))
(define (repair/wrong-permissions)
(display (messages-ref 'wrong-permissions-prompt))
(let ([user-input (read-line)])
(case (string->symbol user-input)
['y (repair/start)]
['y (repair/fix-permissions)]
['n (repair/cancel)]
[else (repair/not-an-option user-input)])))
(define (repair/create-file)
(close-output-port (open-output-file nicethings-path-local))
(displayln-format (messages-ref 'file-created) nicethings-path-local)
(exit))
(define (repair/not-found)
(display (messages-ref 'not-found-prompt))
(let ([user-input (read-line)])
(case (string->symbol user-input)
['y (repair/create-file)]
['n (repair/cancel)]
[else (repair/not-an-option user-input)])))
(define (repair)
(when (not (file-exists? nicethings-path-local))
(displayln-format (messages-ref 'not-found) nicethings-path-local)
(repair/prompt)))
(cond
;; Check for a "fake" '.nicethings' file, which is a directory named '.nicethings'
[(directory-exists? nicethings-path-local)
(begin (displayln-format (messages-ref 'fake-file-found) nicethings-path-local)
(exit))]
;; Check for a missing '.nicethings' file
[(not (file-exists? nicethings-path-local))
(begin (displayln-format (messages-ref 'not-found) nicethings-path-local)
(repair/not-found))]
;; Check for incorrect permissions on '.nicethings' file
[(not (file-has-420-permissions? nicethings-path-local))
(begin (displayln-format (messages-ref 'wrong-permissions) nicethings-path-local)
(repair/wrong-permissions))]
[else 'do-nothing]))
;; ------------------------------------------------
;; add message
@ -106,29 +135,17 @@
;; ------------------------------------------------
;; random message
;; ------------------------------------------------
;; The +1 includes the last element in the list
(define (random-message)
(repair)
;; TODO: Don't use local path here. turn into global
;; Algo:
;; gather all directories in /home/ -> list
;; filter file-exists? /home/directory/.nicethings -> list
;; NOTES:
;; /home
;;(define root-home (build-path (find-system-path 'sys-dir) "home"))
;; '(/home/username _ ...)
;;(map path->complete-path (directory-list root-home))
;;;;;;;;;;;;;;
;; NOTES2:
;;(define root-home (build-path (find-system-path 'sys-dir) "home"))
;;(map (lambda (x) (build-path root-home x)) (directory-list root-home))
;;;;;;;;;;;;
(let* ([root-home (build-path (find-system-path 'sys-dir) "home")]
[paths-to-nicethings (map (lambda (home-directory) (build-path root-home home-directory nicethings-string))
(directory-list root-home))])
(filter (lambda (x) (file-exists? x)) paths-to-nicethings)))
;; [listof-paths (map (lambda (path) (filter file-exists? path)) paths-to-nicethings)])
(let* ([root (find-system-path 'sys-dir)] ;; /
[root-home (build-path root "home")] ;; /home
[listof-homes (directory-list root-home #:build? #t)] ;; #:build #t builds the full path
[paths-to-nicethings (map append-nicethings-file listof-homes)] ;; '("/home/username/.nicethings")
[directories-with-nicethings (filter file-exists? paths-to-nicethings)]
[directories-with-420 (filter file-has-420-permissions? directories-with-nicethings)])
(for ([i directories-with-420])
(displayln i))
))
;; (when (not (zero? list-length))
;; (let* ([random-number (random list-length)]