diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-05 21:47:44 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-05 21:47:44 +0200 |
| commit | 90b37d559293b08c6a7c7af99d9f9c50ab20eee4 (patch) | |
| tree | de038cf40dd447a931c2692daa3ab96a6de4a77e /module/output/ical.scm | |
| parent | Repair terminal output. (diff) | |
| download | calp-90b37d559293b08c6a7c7af99d9f9c50ab20eee4.tar.gz calp-90b37d559293b08c6a7c7af99d9f9c50ab20eee4.tar.xz | |
Remove incorrect output of DURATION.
Diffstat (limited to '')
| -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)] |