From 90b37d559293b08c6a7c7af99d9f9c50ab20eee4 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 5 Jun 2020 21:47:44 +0200 Subject: Remove incorrect output of DURATION. --- module/output/ical.scm | 8 -------- 1 file changed, 8 deletions(-) (limited to 'module/output/ical.scm') diff --git a/module/output/ical.scm b/module/output/ical.scm index d3f26d02..02dd5d64 100644 --- a/module/output/ical.scm +++ b/module/output/ical.scm @@ -45,14 +45,6 @@ (when (not (zero? (second (timespec-time value)))) (display (time->string (timespec-time value) "~S")))))] - ((DURATION X-HNH-DURATION) - #; (time->string value "~H~M~S") - (let ((s (second value))) - (format #f "~a~a~a" - (floor/ s 3600) - (floor/ (modulo s 3600) 60) - (modulo s 60)) - )) [(RRULE) ((@ (vcomponent recurrence internal) recur-rule->rrule-string) value)] -- cgit v1.2.3