diff --git a/calfw-org.el b/calfw-org.el index 5a16a77..b448900 100644 --- a/calfw-org.el +++ b/calfw-org.el @@ -102,6 +102,7 @@ For example, (when (buffer-live-p org-agenda-buffer) org-agenda-buffer)) (org-compile-prefix-format nil) + (delete-duplicates (loop for date in (cfw:enumerate-days begin end) append (loop for file in (or cfw:org-icalendars (org-agenda-files nil 'ifmode)) append @@ -109,7 +110,8 @@ For example, (org-check-agenda-file file) (apply 'org-agenda-get-day-entries file date - cfw:org-agenda-schedule-args)))))) + cfw:org-agenda-schedule-args)))) + :test (lambda (x y) (equal (cfw:org-tp x 'time) (cfw:org-tp y 'time)))))) (defun cfw:org-onclick () "Jump to the clicked org item."