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

set safer file and directory permissions

main
m455 2019-02-24 22:36:32 -05:00
parent 4de0738cc3
commit d30f7ce9cd
5 changed files with 207 additions and 197 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

85
README.md
View File

@ -4,13 +4,17 @@ A simple todo list tool for people who live on the command-line
By Jesse Laprade By Jesse Laprade
## Todo # New things added!
Now default directory and file permissions are more private! `~/.rodo/` is now
set to 700 by default, and `~/.rodo/todo.txt` is set to 600 by default.
# Todo
- [ ] Only allow quoted items to be added
- [ ] Add color option to config.rkt file - [ ] Add color option to config.rkt file
- [ ] Encrypt todo-list file - [ ] Encrypt todo-list file
- [ ] Change default permissions of `~/.rodo` folder and `todo-list` file - [ ] Add note on .bash_history about items being added here before going into
- [ ] Add note on .bash_history about items being added here before going into the todo-list file the todo.txt file
# Screenshot # Screenshot
@ -21,6 +25,8 @@ By Jesse Laprade
* [Platforms](https://github.com/m455/rodo#platforms) * [Platforms](https://github.com/m455/rodo#platforms)
* [Requirements](https://github.com/m455/rodo#requirements) * [Requirements](https://github.com/m455/rodo#requirements)
* [Downloading](https://github.com/m455/rodo#downloading) * [Downloading](https://github.com/m455/rodo#downloading)
* [Option one: Via GitHub on a web browser](https://github.com/m455/rodo#option-one-via-github-on-a-web-browser)
* [Option two: Via Git](https://github.com/m455/rodo#option-two-via-git)
* [Setup](https://github.com/m455/rodo#setup) * [Setup](https://github.com/m455/rodo#setup)
* [GNU/Linux](https://github.com/m455/rodo#gnulinux) * [GNU/Linux](https://github.com/m455/rodo#gnulinux)
* [Usage](https://github.com/m455/rodo#usage) * [Usage](https://github.com/m455/rodo#usage)
@ -38,22 +44,34 @@ Below is a list of platform(s) that `rodo` is currently available for.
Below is a list of items needed for running `rodo` on your machine. Below is a list of items needed for running `rodo` on your machine.
* [Racket 6.x](https://racket-lang.org/) * [Racket 6.x](https://racket-lang.org/)
* [Git](https://git-scm.com/) (Optional method for downloading using `git clone`) * [GNU coreutils](https://wiki.debian.org/coreutils)(`chmod` at least)
# Downloading # Downloading
Currently, there are two ways to download the source code. Please choose one: Currently, there are two options for downloading the source code. Choose one from the
list below:
* Via GitHub on a web browser ## Option one: Via GitHub on a web browser
1. Click the *Clone or download* button at the top of this page
2. Click *Download ZIP* from the drop-down list
* Via Git Follow the steps below to download `rodo` from your web browser.
* Run `git clone https://github.com/m455/rodo` on the command line
1. Click the *Clone or download* button at the top of this page
2. Click *Download ZIP* from the drop-down list
## Option two: Via Git
Follow the steps below to download `rodo` using the `git` command.
1. Ensure Git is installed
2. Run `git clone https://github.com/m455/rodo` on the command line
# Setup # Setup
Follow the steps below to set up `rodo` on your platform, if available. Follow the sections below to set up `rodo`, so it can be used from anywhere on
your system.
**If you just want to test it out, just run `cd` into the downloaded
directory and run `./rodo.rkt`.**
## GNU/Linux ## GNU/Linux
@ -61,8 +79,9 @@ Follow the steps below to add `rodo` to your `$PATH`.
### Set up a `$PATH` ### Set up a `$PATH`
Follow the steps below if you haven't set up a `$PATH`. If you have set up a `$PATH` already, Follow the steps below if you haven't set up a `$PATH`. If you have set up a
then skip to the next step, [Adding `rodo` to your `$PATH`](https://github.com/m455/rodo#adding-rodo-to-your-path). `$PATH` already, then skip to the next step, [Adding `rodo` to your
`$PATH`](https://github.com/m455/rodo#adding-rodo-to-your-path).
1. Create a directory for your `$PATH` by running `mkdir ~/bin/` 1. Create a directory for your `$PATH` by running `mkdir ~/bin/`
2. Add your newly-created `~/bin/` to your `$PATH` by running `echo "export PATH=~/bin:\$PATH" >> .bashrc` 2. Add your newly-created `~/bin/` to your `$PATH` by running `echo "export PATH=~/bin:\$PATH" >> .bashrc`
@ -78,48 +97,54 @@ Follow the steps below if you have set up your `$PATH`.
racket ~/path/to/rodo.rkt "$@" racket ~/path/to/rodo.rkt "$@"
``` ```
Note: If you downloaded the project to your `~/downloads/` folder you would change the line For example: If you downloaded the project to your `~/downloads/` folder you would change the line
`racket ~/path/to/rodo.rkt "$@"` to `racket ~/downloads/rodo/rodo.rkt "$@"`. `racket ~/path/to/rodo.rkt "$@"` to `racket ~/downloads/rodo/rodo.rkt "$@"`.
2. Save the file 2. Save the file
3. Make the file executable by running `chmod u+x ~/bin/name-of-your-file` 3. Make the file executable by running `chmod u+x ~/bin/name-of-your-file`
If you prefer to use an executable, rather than a wrapper, If you prefer to use an executable, rather than a wrapper, you can create an
you can create an executable binary file with `raco exe rodo.rkt` when in the same executable binary file with `raco exe rodo.rkt` when in the same folder as the
folder as the `rodo.rkt` file. If you are having trouble with this please refer to Racket's documentation `rodo.rkt` file. If you are having trouble with this please refer to Racket's
regarding the [creation of standalone executables](https://docs.racket-lang.org/raco/exe.html). documentation regarding the [creation of standalone executables](https://docs.racket-lang.org/raco/exe.html).
# Usage # Usage
Type `rodo` plus one of the options below with a space Type `rodo` plus one of the commands below with a space
between `rodo` and the option. between `rodo` and the command.
`init` - Initializes a file called `todo-list` in `~/.rodo/` by default `init` - Initializes a file called `todo.txt` in `~/.rodo/` by default (The
directory and filename can be changed by modifying the `config.rkt` file)
`ls` - Lists items from the list `ls` - Displays items from the todo list in a vertical format
`add` - Adds an entry to the list `add` - Adds an entry to the todo list
`rm` - Removes an item from the list `rm` - Removes an item from the todo list
**Note:** You may have to run `rodo ls` to see which number corresponds to which item when removing items. Note: You may have to run `rodo ls` to see which number corresponds to which item when removing items.
## Usage examples ## Usage examples
The examples below assume that you have `rodo` [set up](https://github.com/m455/rodo#set-up-a-path) in your `$PATH` The examples below assume that you have `rodo` [set up in your `$PATH`](https://github.com/m455/rodo#set-up-a-path) in your `$PATH`
`rodo init` `rodo init`
`rodo ls` `rodo ls`
`rodo add bread` (Single-word entry) (**Soon the use of unquoted items will be depreciated**) `rodo add "go to the park"`
`rodo add "go to the bank"` (Multi-word entry) Note: If you leave out the double quotation marks here, only the first word
will be added. In the example above, only "go" would be added to the list.
`rodo rm 1` `rodo rm 1`
# Configuring `rodo` # Configuring `rodo`
Right now, the configurations can be found in the `config.rkt file`. Settings, such as program name, path, and directory can be changed. Caution: Change the `config.rkt` file at your own risk, as it may break things!
Right now, the configurations can be found in the `config.rkt file`. Settings,
such as the program name, directory, and the filename of the todo list file can
be changed.

8
config.rkt
View File

@ -2,17 +2,15 @@
(provide (all-defined-out)) (provide (all-defined-out))
(define program-name "rodo") (define program-name "rodo")
(define program-directory ".rodo/") (define program-directory "~/.rodo/")
(define program-path "~/") (define program-file "todo.txt")
(define program-file "todo-list")
(define remove-command "rm") (define remove-command "rm")
(define add-command "add") (define add-command "add")
(define list-command "ls") (define list-command "ls")
(define initialize-command "init") (define initialize-command "init")
(define help-command '("-h" "--help")) (define help-command '("-h" "--help"))
(define path (define path
(expand-user-path (expand-user-path
(string-append (string-append
program-path
program-directory program-directory
program-file))) program-file)))

7
init.rkt
View File

@ -14,12 +14,11 @@
([user-input (read-line)]) ([user-input (read-line)])
(cond (cond
[(member user-input (hash-ref messages:y/n 'yes)) [(member user-input (hash-ref messages:y/n 'yes))
(util:display-hash-ref messages:messages 'creating-folder) (util:display-hash-ref messages:messages 'creating)
(util:display-hash-ref messages:messages 'creating-file) (util:create-directory)
(util:create-folder)
(util:create-file) (util:create-file)
(if (and (if (and
(util:check-for-folder) (util:check-for-directory)
(util:check-for-file)) (util:check-for-file))
(util:display-hash-ref messages:messages 'successfully-created) (util:display-hash-ref messages:messages 'successfully-created)
(util:display-hash-ref messages:messages 'creation-error))] (util:display-hash-ref messages:messages 'creation-error))]

206
messages.rkt
View File

@ -6,140 +6,120 @@
(define messages (define messages
(hash (hash
'show-help (string-append 'show-help (string-append
config:initialize-command "Usage:"
" - " "\n"
"initialize a file in " "rodo <command> [optional argument]\n"
config:program-path "\n"
config:program-directory
config:program-file
"\n"
"Example: "
"rodo init\n\n"
config:list-command ":\n" config:initialize-command ":\n"
"lists items on the list" "Initialize a file in "
"\n" config:program-directory
"Example: " config:program-file "\n"
"rodo ls\n\n"
config:add-command ":\n" "Example: "
"adds an item to the list" "rodo init\n"
"\n" "\n"
"Example: "
"rodo add bread\n\n"
"Note: For multi-word items you will need to\n"
"surround your item in double quotes as so:\n"
"rodo add \"go to the bank\"\n\n"
config:remove-command ":\n" config:list-command ":\n"
"removes an item from the list\n" "Lists items on the list"
"Example: " "\n"
"rodo rm 1\n\n" "Example: "
"Note: You may have to run `rodo ls` to see which\n" "rodo ls\n"
"number corresponds to which item to remove it.\n") "\n"
'empty-todo-list config:add-command ":\n"
"> There is nothing in your list \n" "Adds an item to the list"
"\n"
"Example: "
"rodo add bread\n"
"\n"
'show-usage "Note: For multi-word items you will need to\n"
(string-append "surround your item in double quotes as so:\n"
"> For usage type " "rodo add \"go to the bank\"\n"
"`" config:program-name " -h`" "\n"
" or "
"`" config:program-name " --help`\n")
'creating-folder config:remove-command ":\n"
(string-append "Removes an item from the list\n"
"> creating a " "Example: "
config:program-directory "rodo rm 1\n"
" folder in " "\n"
config:program-path "\n")
'creating-file "Note: You may have to use the ls command to see\n"
(string-append "which number corresponds to which item\n")
"> creating a "
config:program-file
" file in "
config:program-path
config:program-directory "\n")
'creation-error 'empty-todo-list "> There is nothing in your list \n"
(string-append
"> Error: Could not create "
config:program-file
" in "
config:program-directory
config:program-path ".\n"
"> This may be due to directory permissions\n")
'file-already-exists 'show-usage (string-append
(string-append "> For usage type "
"> Error: " "`" config:program-name " -h`"
config:program-name " or "
" already exists in " "`" config:program-name " --help`\n")
config:program-path
config:program-directory
config:program-file "\n")
'successfully-created 'creating (string-append
(string-append "> Creating "
"> " config:program-file
config:program-path " file in "
config:program-directory config:program-directory "\n")
config:program-file
" has been successfully created\n")
'file-not-found 'creation-error (string-append
(string-append "> Error: Could not create "
"> Error: Could not find " config:program-file
config:program-path " in "
config:program-directory config:program-directory
config:program-file "\n") ".\n"
"> This may be due to directory permissions\n")
'init-y/n 'file-already-exists (string-append
(string-append "> Error: "
"> A " config:program-name
config:program-file " already exists in "
" file will be created in " config:program-directory
config:program-path config:program-file "\n")
config:program-directory "\n"
"> Are you sure you want to continue? [y/n]\n")
'try-init 'successfully-created (string-append
(string-append "> "
"> Try typing " config:program-directory
"`" config:program-name " init` " config:program-file
"to set it up\n") " has been successfully created\n")
'terminating 'file-not-found (string-append
(string-append "> Error: Could not find "
"> Exiting " config:program-directory
config:program-name config:program-file "\n")
"\n")
'choose-y/n 'init-y/n (string-append
"> Error: Please choose y or n\n" "> A "
config:program-file
" file will be created in the directory "
config:program-directory "\n"
"> Are you sure you want to continue? [y/n]\n")
'not-in-list 'try-init (string-append
"> Error: Item does not exist\n" "> Try typing "
"`" config:program-name " init` "
"to set it up\n")
'item-added-prefix 'terminating (string-append
"> Added " "> Exiting "
config:program-name
"\n")
'item-added-suffix 'choose-y/n "> Error: Please choose y or n\n"
" to list\n"
'item-removed-prefix 'not-in-list "> Error: Item does not exist\n"
"> Removed "
'item-removed-suffix 'item-added-prefix "> Added "
" from list\n"))
'item-added-suffix " to list\n"
'item-removed-prefix "> Removed "
'item-removed-suffix " from list\n"))
(define y/n (define y/n
(hash (hash
'yes 'yes '("yes" "Yes" "y" "Y")
'("yes" "Yes" "y" "Y")
'no 'no '("no" "No" "n" "N")))
'("no" "No" "n" "N")))

98
util.rkt
View File

@ -3,38 +3,46 @@
(require (prefix-in list: racket/list) (require (prefix-in list: racket/list)
(prefix-in file: racket/file) (prefix-in file: racket/file)
(prefix-in string: racket/string) (prefix-in string: racket/string)
(prefix-in system: racket/system)
(prefix-in config: "config.rkt") (prefix-in config: "config.rkt")
(prefix-in messages: "messages.rkt")) (prefix-in messages: "messages.rkt"))
(provide (all-defined-out)) (provide (all-defined-out))
(define (set-permissions permissions file-or-directory)
(let* ([converted-permissions (number->string permissions)]
[converted-file-or-directory
(cond [(path? file-or-directory) (path->string file-or-directory)]
[else file-or-directory])])
(system:system
(string-append "chmod" " " converted-permissions " " converted-file-or-directory))))
(define (check-for-file) (define (check-for-file)
(file-exists? config:path)) (file-exists? config:path))
(define (create-file) (define (create-file)
(let ([opened-file (let ([opened-file
(open-output-file config:path (open-output-file config:path
#:mode 'text #:mode 'text
#:exists 'can-update)]) #:exists 'can-update)])
(close-output-port opened-file))) (close-output-port opened-file))
(set-permissions 600 config:path))
(define (check-for-folder) (define (check-for-directory)
(directory-exists? (expand-user-path (directory-exists? (expand-user-path
(string-append (string-append
config:program-path config:program-directory))))
config:program-directory))))
(define (create-folder) (define (create-directory)
(make-directory (expand-user-path (make-directory (expand-user-path
(string-append (string-append
config:program-path config:program-directory)))
config:program-directory)))) (set-permissions 700 config:program-directory))
(define (display-hash-ref hash-list key) (define (display-hash-ref hash-list key)
(display (hash-ref hash-list key))) (display (hash-ref hash-list key)))
;; Just so I don't have to keep typing ;; Just so I don't have to keep typing "#:mode...#:line-mode..." every time
;; "#:mode...#:line-mode..." every time
(define (file->string-list config:path-to-file) (define (file->string-list config:path-to-file)
(let ([todo-list (file:file->lines config:path-to-file (let ([todo-list (file:file->lines config:path-to-file
#:mode 'text #:mode 'text
@ -69,10 +77,10 @@
(define (display-prettified-list) (define (display-prettified-list)
(display (display
(string:string-join (string:string-join
(prefix-with-number (file->string-list config:path)) (prefix-with-number (file->string-list config:path))
"\n" "\n"
#:after-last "\n"))) #:after-last "\n")))
;; This is a bit of ugly scheme sorcery ;; This is a bit of ugly scheme sorcery
(define (append-to-end args lst) (define (append-to-end args lst)
@ -90,58 +98,58 @@
(define (show-list) (define (show-list)
(cond [(and (cond [(and
(check-for-folder) (check-for-directory)
(check-for-file)) (check-for-file))
(if (if
;; If file exists, see if it's empty, if so ;; If file exists, see if it's empty, if so
;; tell the user ;; tell the user
(list-empty? config:path) (list-empty? config:path)
(display-hash-ref messages:messages 'empty-todo-list) (display-hash-ref messages:messages 'empty-todo-list)
;; If file isn't empty, display a pretty list ;; If file isn't empty, display a pretty list
(display-prettified-list))] (display-prettified-list))]
;; If file doesn't exist, tell the user ;; If file doesn't exist, tell the user
[else [else
(display-hash-ref messages:messages 'file-not-found) (display-hash-ref messages:messages 'file-not-found)
(display-hash-ref messages:messages 'try-init)])) (display-hash-ref messages:messages 'try-init)]))
(define (add-item-to-file args) (define (add-item-to-file args)
;; Add item to end of list and write to file ;; Add item to end of list and write to file
(let ([new-list (append-to-end args config:path)]) (let ([new-list (append-to-end args config:path)])
(file:display-to-file (file:display-to-file
(string:string-join new-list "\n") (string:string-join new-list "\n")
config:path config:path
#:mode 'text #:mode 'text
#:exists 'replace) #:exists 'replace)
(display-item-added args))) (display-item-added args)))
(define (add-item args) (define (add-item args)
(if (and (if (and
(check-for-folder) (check-for-directory)
(check-for-file)) (check-for-file))
(add-item-to-file (vector-ref args 1)) (add-item-to-file (vector-ref args 1))
(begin (begin
(display-hash-ref messages:messages 'file-not-found) (display-hash-ref messages:messages 'file-not-found)
(display-hash-ref messages:messages 'try-init)))) (display-hash-ref messages:messages 'try-init))))
(define (remove-item-from-file args) (define (remove-item-from-file args)
(let* ([removed-item (get-removed-item config:path args)] (let* ([removed-item (get-removed-item config:path args)]
[new-list (remove removed-item (file->string-list config:path))]) [new-list (remove removed-item (file->string-list config:path))])
(file:display-to-file (file:display-to-file
(string:string-join new-list "\n") (string:string-join new-list "\n")
config:path config:path
#:mode 'text #:mode 'text
#:exists 'replace) #:exists 'replace)
(display-item-removed removed-item))) (display-item-removed removed-item)))
(define (remove-item args) (define (remove-item args)
(cond [(list-empty? config:path) (cond [(list-empty? config:path)
(display-hash-ref messages:messages 'empty-todo-list)] (display-hash-ref messages:messages 'empty-todo-list)]
[(and [(and
(check-for-folder) (check-for-directory)
(check-for-file)) (check-for-file))
(remove-item-from-file (vector-ref args 1))] (remove-item-from-file (vector-ref args 1))]
[(and (not (check-for-folder)) (not (check-for-file))) [(and (not (check-for-directory)) (not (check-for-file)))
(begin (begin
(display-hash-ref messages:messages 'file-not-found) (display-hash-ref messages:messages 'file-not-found)
(display-hash-ref messages:messages 'try-init))])) (display-hash-ref messages:messages 'try-init))]))