Skip to content

Commit 9a8ea33

Browse files
Bug fix: repeating events appeared multiple times
The bug was that a repeating event appeared multiple times at the first day it was scheduled/deadline; the reason is this package scrapes the agenda for data and in day-mode an individual repeating events appears in all the future dates so need to dedup it.
1 parent 26ab323 commit 9a8ea33

File tree

1 file changed

+3
-1
lines changed

1 file changed

+3
-1
lines changed

calfw-org.el

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -102,14 +102,16 @@ For example,
102102
(when (buffer-live-p org-agenda-buffer)
103103
org-agenda-buffer))
104104
(org-compile-prefix-format nil)
105+
(delete-duplicates
105106
(loop for date in (cfw:enumerate-days begin end) append
106107
(loop for file in (or cfw:org-icalendars (org-agenda-files nil 'ifmode))
107108
append
108109
(progn
109110
(org-check-agenda-file file)
110111
(apply 'org-agenda-get-day-entries
111112
file date
112-
cfw:org-agenda-schedule-args))))))
113+
cfw:org-agenda-schedule-args))))
114+
:test (lambda (x y) (equal (cfw:org-tp x 'time) (cfw:org-tp y 'time))))))
113115

114116
(defun cfw:org-onclick ()
115117
"Jump to the clicked org item."

0 commit comments

Comments
 (0)