[emacs] Fix org-reminders ID collision blocking reminders
This commit is contained in:
@ -127,7 +127,7 @@ Each spec is (ID HEADING FIRE-TIME LABEL SECONDS)."
|
|||||||
(let ((subtree-end (save-excursion (org-end-of-subtree t t))))
|
(let ((subtree-end (save-excursion (org-end-of-subtree t t))))
|
||||||
(if (and (org-get-todo-state) (not (org-entry-is-done-p)))
|
(if (and (org-get-todo-state) (not (org-entry-is-done-p)))
|
||||||
(let* ((heading (string-trim (org-get-heading t t t t)))
|
(let* ((heading (string-trim (org-get-heading t t t t)))
|
||||||
(id (or (org-entry-get nil "ID" t)
|
(id (or (org-entry-get nil "ID")
|
||||||
(format "%s|%s" file heading)))
|
(format "%s|%s" file heading)))
|
||||||
(rem (org-entry-get nil "REMINDER" t))
|
(rem (org-entry-get nil "REMINDER" t))
|
||||||
(anchor (progn
|
(anchor (progn
|
||||||
|
|||||||
Reference in New Issue
Block a user