[emacs] Update reminders
This commit is contained in:
@ -114,6 +114,16 @@ The default interval is appended unless REM suppresses it."
|
||||
(setq found (match-string 0)))
|
||||
(and found (org-reminder-ts-to-seconds found)))))
|
||||
|
||||
(defun org-reminder-entry-anchor (subtree-end)
|
||||
"Return epoch seconds of the reminder anchor for the entry at point.
|
||||
Prefers the DEADLINE, then SCHEDULED, then the first inline active
|
||||
timestamp in the body before SUBTREE-END."
|
||||
(or (org-reminder-ts-to-seconds (org-entry-get nil "DEADLINE"))
|
||||
(org-reminder-ts-to-seconds (org-entry-get nil "SCHEDULED"))
|
||||
(progn
|
||||
(org-end-of-meta-data t)
|
||||
(org-reminder-first-inline-ts subtree-end))))
|
||||
|
||||
(defun org-reminder-parse-file (file)
|
||||
"Parse FILE and return its list of reminder specs.
|
||||
Each spec is (ID HEADING FIRE-TIME LABEL SECONDS)."
|
||||
@ -130,9 +140,7 @@ Each spec is (ID HEADING FIRE-TIME LABEL SECONDS)."
|
||||
(id (or (org-entry-get nil "ID")
|
||||
(format "%s|%s" file heading)))
|
||||
(rem (org-entry-get nil "REMINDER" t))
|
||||
(anchor (progn
|
||||
(org-end-of-meta-data t)
|
||||
(org-reminder-first-inline-ts subtree-end))))
|
||||
(anchor (org-reminder-entry-anchor subtree-end)))
|
||||
(when anchor
|
||||
(dolist (interval (org-reminder-task-intervals rem))
|
||||
(push (list id heading
|
||||
|
||||
Reference in New Issue
Block a user