ryuslash/undone
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Trim whitespace at end of entry

Browse source 
* undone/main.scm (add): Trim whitespace from the end of whatever text
  gets filled in.
  (default): Place newline after each item.
This commit is contained in:
Tom Willemsen 2012-08-17 01:56:25 +02:00
parent 3a132e8040
commit 4124f07fa9
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
undone/main.scm
View file

@ -125,7 +125,7 @@
(append todo-list (append todo-list
(list (list
(append (append
`((content . ,(read-delimited ""))) `((content . ,(string-trim-right (read-delimited ""))))
(map (lambda (arg) (map (lambda (arg)
(let* ((pair (string-split arg #\=)) (let* ((pair (string-split arg #\=))
(var (string->symbol (car pair))) (var (string->symbol (car pair)))
@ -139,7 +139,7 @@
(define-view default (define-view default
"Default todo-list view, show only the title." "Default todo-list view, show only the title."
"~a" content) "~a~%" content)
(define (view args) (define (view args)
"Show a list of todo items." "Show a list of todo items."