From 2a9209f8ebcfba4718c0e1ca0f7661059e6dcfe0 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sat, 25 Apr 2020 22:47:00 +0200 Subject: Add new recurrence generator. --- module/vcomponent/parse.scm | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'module/vcomponent/parse.scm') 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))]) -- cgit v1.2.3