From 93c3abfecc9faed2dcf02f90a74c1dade15d8652 Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Wed, 23 Nov 2022 09:40:46 -0500 Subject: omit cancelled events from ical --- emacsconf-ical.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/emacsconf-ical.el b/emacsconf-ical.el index a1e02b2..142c466 100644 --- a/emacsconf-ical.el +++ b/emacsconf-ical.el @@ -114,7 +114,7 @@ (with-temp-file (expand-file-name "emacsconf.ics" (or emacsconf-ical-public-directory (expand-file-name emacsconf-year emacsconf-directory))) - (insert (emacsconf-format-as-ical (or info (emacsconf-get-talk-info)))))) + (insert (emacsconf-format-as-ical (emacsconf-prepare-for-display (or info (emacsconf-get-talk-info))))))) (defun emacsconf-ical-generate-tracks (&optional info) (interactive) @@ -125,6 +125,6 @@ (or emacsconf-ical-public-directory (expand-file-name emacsconf-year emacsconf-directory))) (insert (emacsconf-format-as-ical (cdr entry))))))) - (seq-group-by (lambda (o) (plist-get o :track)) (or info (emacsconf-get-talk-info))))) + (seq-group-by (lambda (o) (plist-get o :track)) (emacsconf-prepare-for-display (or info (emacsconf-get-talk-info)))))) (provide 'emacsconf-ical) -- cgit v1.2.3