diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-02-14 11:06:44 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-02-14 11:06:44 +0100 |
| commit | f2f801cf981471643c7a1fb5fc9da9d75aae1592 (patch) | |
| tree | 173584ff85404dd69aef0c917ae7a88d8206ac31 /module | |
| parent | Repair terminal output. (diff) | |
| download | calp-f2f801cf981471643c7a1fb5fc9da9d75aae1592.tar.gz calp-f2f801cf981471643c7a1fb5fc9da9d75aae1592.tar.xz | |
Add missing spaces in terminal output.
Diffstat (limited to 'module')
| -rw-r--r-- | module/output/terminal.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/module/output/terminal.scm b/module/output/terminal.scm index fd870369..0e5a1910 100644 --- a/module/output/terminal.scm +++ b/module/output/terminal.scm @@ -116,11 +116,13 @@ (let ((start (attr ev 'DTSTART))) (if (datetime? start) (string-append (date->string (get-date start)) + " " (time->string (get-time start))) (date->string start))) (let ((end (attr ev 'DTEND))) (if (datetime? end) (string-append (date->string (get-date end)) + " " (time->string (get-time end))) (date->string end))) (unlines (take-to (flow-text (or (attr ev 'DESCRIPTION) "") |