From ae47899079a448b2d71101d4b21c8e9409d82e34 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 23 Mar 2020 00:34:28 +0100 Subject: Remove deprecated get-time. --- module/output/terminal.scm | 18 ++++++------------ 1 file changed, 6 insertions(+), 12 deletions(-) (limited to 'module/output/terminal.scm') diff --git a/module/output/terminal.scm b/module/output/terminal.scm index 68e66eb9..cb18649d 100644 --- a/module/output/terminal.scm +++ b/module/output/terminal.scm @@ -41,12 +41,10 @@ (display (string-append (if (datetime? (attr ev 'DTSTART)) - (string-append (date->string (get-date (attr ev 'DTSTART))) - " " - (time->string (get-time (attr ev 'DTSTART)))) - ((@ (texinfo string-utils) center-string) - (date->string (attr ev 'DTSTART)) - 19)) + (datetime->string (attr ev 'DTSTART) "~Y-~m-~d ~H:~M:~S") + ((@ (texinfo string-utils) center-string) + (date->string (attr ev 'DTSTART)) + 19)) ; TODO show truncated string " │ " (if (= i cur-event) "\x1b[7m" "") @@ -115,15 +113,11 @@ ;; another story. (let ((start (attr ev 'DTSTART))) (if (datetime? start) - (string-append (date->string (get-date start)) - " " - (time->string (get-time start))) + (datetime->string (attr ev 'DTSTART) "~Y-~m-~d ~H:~M:~S") (date->string start))) (let ((end (attr ev 'DTEND))) (if (datetime? end) - (string-append (date->string (get-date end)) - " " - (time->string (get-time end))) + (datetime->string (attr ev 'DTSTART) "~Y-~m-~d ~H:~M:~S") (date->string end))) (unlines (take-to (flow-text (or (attr ev 'DESCRIPTION) "") #:width (min 70 width)) -- cgit v1.2.3