diff options
| author |  Tom Willemsen | 2012-08-17 01:56:25 +0200 |
|---|---|---|
| committer | Tom Willemsen | 2012-08-17 01:56:25 +0200 |
| commit | 4124f07fa90f37e41af9cf517cd45b71bcd0977b (patch) | |
| tree | ea6f61b08f876cec37c80ecccbea3fd6b7817b21 | |
| parent | 3a132e8040e3d24ecd015900bfacc2caef918ca4 (diff) | |
| download | undone-4124f07fa90f37e41af9cf517cd45b71bcd0977b.tar.gz undone-4124f07fa90f37e41af9cf517cd45b71bcd0977b.zip | |
Trim whitespace at end of entry
* undone/main.scm (add): Trim whitespace from the end of whatever text
gets filled in.
(default): Place newline after each item.
| -rw-r--r-- | undone/main.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/undone/main.scm b/undone/main.scm index 37aa0f7..863e6bb 100644 --- a/undone/main.scm +++ b/undone/main.scm @@ -125,7 +125,7 @@ (append todo-list (list (append - `((content . ,(read-delimited ""))) + `((content . ,(string-trim-right (read-delimited "")))) (map (lambda (arg) (let* ((pair (string-split arg #\=)) (var (string->symbol (car pair))) @@ -139,7 +139,7 @@ (define-view default "Default todo-list view, show only the title." - "~a" content) + "~a~%" content) (define (view args) "Show a list of todo items." |