aboutsummaryrefslogtreecommitdiff
path: root/module/vcomponent/vdir/parse.scm
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@lysator.liu.se>2020-09-06 21:47:57 +0200
committerHugo Hörnquist <hugo@lysator.liu.se>2020-09-06 21:47:57 +0200
commit6a4f545a52b47a407c06ac8b0c4b3c1bf7f582e8 (patch)
tree63f2a42e47a519f33c28b0db55eca85eb6d0d4cf /module/vcomponent/vdir/parse.scm
parentDescribed vcomponent now has keys sorted. (diff)
downloadcalp-6a4f545a52b47a407c06ac8b0c4b3c1bf7f582e8.tar.gz
calp-6a4f545a52b47a407c06ac8b0c4b3c1bf7f582e8.tar.xz
Allow recurrence from just Recurrence-ID.
Diffstat (limited to 'module/vcomponent/vdir/parse.scm')
-rw-r--r--module/vcomponent/vdir/parse.scm5
1 files changed, 3 insertions, 2 deletions
diff --git a/module/vcomponent/vdir/parse.scm b/module/vcomponent/vdir/parse.scm
index d251e60a..ac9cb1aa 100644
--- a/module/vcomponent/vdir/parse.scm
+++ b/module/vcomponent/vdir/parse.scm
@@ -70,8 +70,9 @@
;; But the patches can apparently share a sequence number
;; of 0 with the original event!
;; (╯°□°)╯ ┻━┻
- (let* ((head (find (negate (extract 'RECURRENCE-ID))
- events))
+ (let* ((head (or (find (extract 'RRULE) events)
+ (find (negate (extract 'RECURRENCE-ID)) events)
+ (car events)))
(rest (delete head events eq?)))
(set! (prop head '-X-HNH-ALTERNATIVES)