diff options
Diffstat (limited to 'module/vcomponent/parse.scm')
| -rw-r--r-- | module/vcomponent/parse.scm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/module/vcomponent/parse.scm b/module/vcomponent/parse.scm index fdae22dc..e98761c7 100644 --- a/module/vcomponent/parse.scm +++ b/module/vcomponent/parse.scm @@ -6,6 +6,7 @@ :use-module (datetime) :use-module (datetime util) :use-module (srfi srfi-26) + :use-module ((ice-9 hash-table) :select (alist->hash-table)) :use-module ((ice-9 rdelim) :select (read-line)) :use-module ((ice-9 textual-ports) :select (unget-char)) :use-module ((ice-9 ftw) :select (scandir ftw)) @@ -379,6 +380,11 @@ row ~a column ~a ctx = ~a (rest (delete head events eq?))) (set! (attr head 'X-HNH-ALTERNATIVES) + (alist->hash-table + (map cons + (map (extract 'RECURRENCE-ID) rest) + rest)) + #; (sort*! rest ;; HERE date/-time< (extract 'RECURRENCE-ID))) (add-child! calendar head))]) |