aboutsummaryrefslogtreecommitdiff
path: root/module/vcomponent/recurrence/generate.scm
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@hornquist.se>2019-10-04 21:02:17 +0200
committerHugo Hörnquist <hugo@hornquist.se>2019-10-04 21:02:17 +0200
commit77791305d6e1483fa5ae46f26616242c00f99989 (patch)
treef71b777988f47f36cc46c724b9efdd090566f278 /module/vcomponent/recurrence/generate.scm
parentComments in parser. (diff)
downloadcalp-77791305d6e1483fa5ae46f26616242c00f99989.tar.gz
calp-77791305d6e1483fa5ae46f26616242c00f99989.tar.xz
HTML output seems to work in full now.
Diffstat (limited to 'module/vcomponent/recurrence/generate.scm')
-rw-r--r--module/vcomponent/recurrence/generate.scm3
1 files changed, 3 insertions, 0 deletions
diff --git a/module/vcomponent/recurrence/generate.scm b/module/vcomponent/recurrence/generate.scm
index c2863954..3f4cb869 100644
--- a/module/vcomponent/recurrence/generate.scm
+++ b/module/vcomponent/recurrence/generate.scm
@@ -51,6 +51,9 @@
(get-tz-offset e)
0))))
+ (set! (attr ev 'DTSTART)
+ (copy-time (attr ev 'DTSTART)))
+
(let ((i (interval r)))
(case (freq r)
((SECONDLY) (mod! (second d) = (+ i)))