From 4124f07fa90f37e41af9cf517cd45b71bcd0977b Mon Sep 17 00:00:00 2001
From: Tom Willemsen <tom@ryuslash.org>
Date: Fri, 17 Aug 2012 01:56:25 +0200
Subject: [PATCH] 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.
---
 undone/main.scm | 4 ++--
 1 file 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."