diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-10-04 21:02:17 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-10-04 21:02:17 +0200 |
commit | 77791305d6e1483fa5ae46f26616242c00f99989 (patch) | |
tree | f71b777988f47f36cc46c724b9efdd090566f278 /module/main.scm | |
parent | Comments in parser. (diff) | |
download | calp-77791305d6e1483fa5ae46f26616242c00f99989.tar.gz calp-77791305d6e1483fa5ae46f26616242c00f99989.tar.xz |
HTML output seems to work in full now.
Diffstat (limited to '')
-rwxr-xr-x | module/main.scm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/module/main.scm b/module/main.scm index 2b0fde23..ce327f39 100755 --- a/module/main.scm +++ b/module/main.scm @@ -46,9 +46,11 @@ exec guile -e main -s $0 "$@" ;; Given as a sepparate function from main to ease debugging. (define* (init proc #:key (calendar-files (calendar-files))) (define calendars (map make-vcomponent calendar-files)) - (define events (concatenate (map (lambda (cal) (filter (lambda (o) (eq? 'VEVENT (type o))) - (children cal))) - calendars))) + (define events (concatenate + ;; TODO does this drop events? + (map (lambda (cal) (filter (lambda (o) (eq? 'VEVENT (type o))) + (children cal))) + calendars))) (let* ((repeating regular (partition repeating? events))) |