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 '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) |