diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-24 01:01:17 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-24 01:01:17 +0200 |
commit | 610b7177e53272972c18e212acefd564d8d2c76a (patch) | |
tree | 878e0d9c3bb6c2def15b013853a34765f7cdccf7 /module/output/terminal.scm | |
parent | Remove concat. (diff) | |
download | calp-610b7177e53272972c18e212acefd564d8d2c76a.tar.gz calp-610b7177e53272972c18e212acefd564d8d2c76a.tar.xz |
Improve text layout code.
Diffstat (limited to '')
-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) |