diff options
| -rw-r--r-- | module/output/ical.scm | 8 |
1 files changed, 0 insertions, 8 deletions
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)] |