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