diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-01-12 21:05:13 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-01-12 21:05:13 +0100 |
commit | 0cefcb7ea6306d92faa0aee12a46761e92118b41 (patch) | |
tree | 4bc590dd46ea53b1a64a760aff43fbc706156e76 /module | |
parent | jcal_to_xcal now works. (diff) | |
download | calp-0cefcb7ea6306d92faa0aee12a46761e92118b41.tar.gz calp-0cefcb7ea6306d92faa0aee12a46761e92118b41.tar.xz |
Can create event with new interface.
Diffstat (limited to '')
-rw-r--r-- | module/calp/server/routes.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/module/calp/server/routes.scm b/module/calp/server/routes.scm index 276513f5..16ab2662 100644 --- a/module/calp/server/routes.scm +++ b/module/calp/server/routes.scm @@ -185,6 +185,8 @@ ;; (vcalendar ;; (vevent ...)))) ;; @end example + + ;; TODO ;; However, *PI* will probably be omited, and currently events ;; are sent without the vcalendar part. Earlier versions ;; Also omitted the icalendar part. And I'm not sure if the @@ -197,7 +199,8 @@ (move-to-namespace ;; TODO Multiple event components (car ((sxpath '(// IC:vevent)) - (xml->sxml data namespaces: '((IC . "urn:ietf:params:xml:ns:icalendar-2.0"))))) + (xml->sxml data namespaces: + '((IC . "urn:ietf:params:xml:ns:icalendar-2.0"))))) #f)) (lambda (err port . args) (return (build-response code: 400) |