diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-04-06 01:09:31 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-05-18 00:21:42 +0200 |
commit | feebf252b4a51467863ccba5d25b180548f79ef2 (patch) | |
tree | e91f6c66db75d4894d2c053a5d84d517716aff65 /module/calp/html/view/calendar.scm | |
parent | Possibly marginally improve tests. (diff) | |
download | calp-uid-stuff.tar.gz calp-uid-stuff.tar.xz |
workuid-stuff
Diffstat (limited to 'module/calp/html/view/calendar.scm')
-rw-r--r-- | module/calp/html/view/calendar.scm | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/module/calp/html/view/calendar.scm b/module/calp/html/view/calendar.scm index 6945c5d2..25cfb575 100644 --- a/module/calp/html/view/calendar.scm +++ b/module/calp/html/view/calendar.scm @@ -10,7 +10,6 @@ fmt-day make-block fmt-single-event - output-uid )) :use-module (calp html config) :use-module (calp html util) @@ -30,6 +29,8 @@ :use-module (ice-9 format) :use-module (calp translation) + :use-module ((vcomponent formats xcal output) + :select (vcomponent->sxcal)) ) @@ -380,11 +381,11 @@ window.default_calendar='~a';" (date+ post-end (date day: 1)))) events)))) (repeating% regular (partition repeating? flat-events)) + ;;; TODO (repeating (for ev in repeating% (define instance (copy-vcomponent ev)) - (set! (prop instance 'UID) (output-uid instance)) (delete-parameter! (prop* instance 'DTSTART) '-X-HNH-ORIGINAL) (delete-parameter! (prop* instance 'DTEND) '-X-HNH-ORIGINAL) @@ -417,5 +418,9 @@ window.default_calendar='~a';" (div (@ (style "display:none !important;") (id "xcal-data")) ,((@ (vcomponent formats xcal output) ns-wrap) - (map (@ (vcomponent formats xcal output) vcomponent->sxcal) - (append regular repeating))))))))) + (append + (map vcomponent->sxcal regular) + (map (lambda (ev) + (set! (prop ev 'X-HNH-INSTANCE-ID) + (datetime->string (as-datetime (prop ev 'DTSTART)))) + (vcomponent->sxcal ev)) repeating))))))))) |