diff options
Diffstat (limited to 'module/output/terminal.scm')
-rw-r--r-- | module/output/terminal.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/module/output/terminal.scm b/module/output/terminal.scm index 2b04c7c6..92e93cc8 100644 --- a/module/output/terminal.scm +++ b/module/output/terminal.scm @@ -89,9 +89,9 @@ (or (and=> (attr ev 'LOCATION) (cut string-append "Plats: " <> "\n")) "") (time->string (attr ev 'DTSTART) "~1 ~3") (time->string (attr ev 'DTEND) "~1 ~3") - (flow-text (or (attr ev 'DESCRIPTION) "") - #:width (min 70 width) - #:height (- height 8 2 (length events) 5))))) + (unlines (take-to (flow-text (or (attr ev 'DESCRIPTION) "") + #:width (min 70 width)) + (- height 8 2 (length events) 5)))))) (let ((char (read-char))) ;; (format (current-error-port) |