diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-23 21:28:40 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-23 22:48:15 +0200 |
| commit | 11f83cf1e3a179d3442ce5610a69483fececffb2 (patch) | |
| tree | 77f6341e65cfc36e71f9d715a1fa4fe919780ef9 /module/output/terminal.scm | |
| parent | Add ability to set start-date of term mode. (diff) | |
| download | calp-11f83cf1e3a179d3442ce5610a69483fececffb2.tar.gz calp-11f83cf1e3a179d3442ce5610a69483fececffb2.tar.xz | |
Replace text-flow function.
Diffstat (limited to 'module/output/terminal.scm')
| -rw-r--r-- | module/output/terminal.scm | 13 |
1 files changed, 4 insertions, 9 deletions
diff --git a/module/output/terminal.scm b/module/output/terminal.scm index 6779ee5b..f9796d68 100644 --- a/module/output/terminal.scm +++ b/module/output/terminal.scm @@ -1,5 +1,6 @@ (define-module (output terminal) #:use-module (output general) + #:use-module (output text) #:use-module (srfi srfi-1) #:use-module (srfi srfi-19) #:use-module (srfi srfi-19 util) @@ -14,7 +15,6 @@ #:use-module (vcomponent) #:use-module (vcomponent datetime) - #:use-module (texinfo string-utils) ; string->wrapped-lines #:use-module (ice-9 format) #:use-module (ice-9 getopt-long) #:use-module (parameters) @@ -71,14 +71,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") - (string-join ; TODO replace this with a better text flower - (take-to ; This one destroys newlines used for layout - (string->wrapped-lines (or (attr ev 'DESCRIPTION) "") - #:line-width 60 - #:collapse-whitespace? #f) - 10) - (string #\newline)) - ))) + (flow-text (or (attr ev 'DESCRIPTION) "") + #:width 70 + #:height 10)))) (let ((char (read-char))) ;; (format (current-error-port) |