diff options
| -rw-r--r-- | module/calp/html/view/calendar.scm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/module/calp/html/view/calendar.scm b/module/calp/html/view/calendar.scm index 031c1844..4574f517 100644 --- a/module/calp/html/view/calendar.scm +++ b/module/calp/html/view/calendar.scm @@ -255,6 +255,9 @@ `((q . (and (date/-time<=? ,(current-datetime) (prop event 'DTSTART)) + ;; TODO this seems to miss some calendars, + ;; I belive it's due to some setting X-WR-CALNAME, + ;; which is only transfered /sometimes/ into NAME. (string=? ,(->string (prop calendar 'NAME)) (or (prop (parent event) 'NAME) "")))))))) ,(prop calendar 'NAME)))) |