diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-18 23:57:36 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-18 23:57:36 +0200 |
commit | e350a42fce541bbd15da59f76fab2bc535947368 (patch) | |
tree | 6a14d02fd5283c1d8d826b23ba39b3b9ca72c89d /module/vcomponent | |
parent | Fix parameter print in describe. (diff) | |
download | calp-e350a42fce541bbd15da59f76fab2bc535947368.tar.gz calp-e350a42fce541bbd15da59f76fab2bc535947368.tar.xz |
Fix RRULE/UNTIL in xCal.
Diffstat (limited to 'module/vcomponent')
-rw-r--r-- | module/vcomponent/recurrence/internal.scm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/module/vcomponent/recurrence/internal.scm b/module/vcomponent/recurrence/internal.scm index ec8c10d4..aab65959 100644 --- a/module/vcomponent/recurrence/internal.scm +++ b/module/vcomponent/recurrence/internal.scm @@ -125,8 +125,14 @@ (define-public (recur-rule->rrule-sxml rrule) (map-fields (lambda (field value) - `(,(downcase-symbol field) - ,(field->string field value))) + (if (string-ci=? "UNTIL" (symbol->string field)) + `(until + ,(if (date? value) + (date->string value "~Y-~m-~d") + (datetime->string + value "~Y-~m-~dT~H:~M:~S~Z"))) + `(,(downcase-symbol field) + ,(field->string field value)))) rrule)) |