diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-10-03 22:02:03 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-10-03 22:02:03 +0200 |
commit | 785f70a3d16e549e36b8ef17f081829fe492a193 (patch) | |
tree | f1142270470fc0cd483c3a227ef8b62c7a6a4bea /module/main.scm | |
parent | Slowly going through and fixing everything. (diff) | |
download | calp-785f70a3d16e549e36b8ef17f081829fe492a193.tar.gz calp-785f70a3d16e549e36b8ef17f081829fe492a193.tar.xz |
Locate bug with DTEND.
Diffstat (limited to 'module/main.scm')
-rwxr-xr-x | module/main.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/module/main.scm b/module/main.scm index 4e75bbf9..2b0fde23 100755 --- a/module/main.scm +++ b/module/main.scm @@ -46,7 +46,9 @@ 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 (cut children <> 'VEVENT) calendars))) + (define events (concatenate (map (lambda (cal) (filter (lambda (o) (eq? 'VEVENT (type o))) + (children cal))) + calendars))) (let* ((repeating regular (partition repeating? events))) |