secstate/dotfiles
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

[emacs] Harden org-reminders: host guard, bell titles, high priority

Browse Source
This commit is contained in:
Colin Powell
2026-08-09 15:41:18 -04:00
parent d48ebfb11a
commit 24d2c2b1bb
2 changed files with 24 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
emacs/.config/doom/+org-reminders.el
View File

@ -29,6 +29,9 @@
(defvar org-reminder-ntfy-topic "reminders"
"ntfy topic to publish task reminders to.")
(defvar org-reminder-ntfy-priority "4"
"ntfy priority for task reminders (1 min, 2 low, 3 default, 4 high, 5 urgent).")
(defvar org-reminder-state-file "~/.cache/org-reminders.el"
"File persisting already-sent reminders.")
@ -49,6 +52,17 @@ Set to \"none\" to disable the default entirely.")
(defvar org-reminder-last-refresh 0
"Timestamp of the last org-agenda-files refresh.")
(defvar org-reminder-run-hosts nil
"Hostnames (as reported by `system-name') allowed to send reminders.
nil means run on every host. Set to a list like (\"mundilfari\") to
restrict reminder delivery to specific machines.")
(defun org-reminder-host-enabled-p ()
"Return non-nil if this host is allowed to send reminders."
(or (null org-reminder-run-hosts)
(member (downcase (system-name))
(mapcar #'downcase org-reminder-run-hosts))))
(defun org-reminder-parse-intervals (str)
"Parse reminder offset string STR into a list of (LABEL . SECONDS).
STR looks like \"2d 3h 30m\" (also accepts commas or semicolons).
@ -176,6 +190,7 @@ Uses an mtime cache so unchanged files are not re-parsed."
"-s" "-f"
"-H" (format "Title: %s" (substring-no-properties title))
"-H" "Tags: bell"
"-H" (format "Priority: %s" org-reminder-ntfy-priority)
"-d" body
url)))
(unless (zerop exit)
@ -216,7 +231,8 @@ Uses an mtime cache so unchanged files are not re-parsed."
(defun org-reminder-check ()
"Send any due org task reminders via ntfy."
(interactive)
(condition-case err
(if (org-reminder-host-enabled-p)
(condition-case err
(let ((now (float-time)))
(dolist (spec (org-reminder-collect))
(pcase spec
@ -226,7 +242,7 @@ Uses an mtime cache so unchanged files are not re-parsed."
(< now (+ fire (* org-reminder-grace-minutes 60)))
(not (gethash key org-reminder-state)))
(org-reminder-send
(format "Reminder: %s" heading)
(format "🔔 %s" heading)
(format "Due %s — %s away"
(format-time-string "%a %b %e %H:%M" (+ fire secs))
(org-reminder-human-delta (- (+ fire secs) now))))
@ -234,12 +250,14 @@ Uses an mtime cache so unchanged files are not re-parsed."
(org-reminder-state-save)
(message "org-reminders: sent '%s' (%s)" heading label)))))
(org-reminder-prune-state now)))
(error (message "org-reminders: check failed: %S" err))))
(error (message "org-reminders: check failed: %S" err)))
(message "org-reminders: host %s not enabled for reminders, skipping" (system-name))))
(defun org-reminder-start ()
"Load state and start the periodic reminder check."
"Load state and start the periodic reminder check on this host."
(org-reminder-state-load)
(run-with-timer 60 60 #'org-reminder-check))
(when (org-reminder-host-enabled-p)
(run-with-timer 60 60 #'org-reminder-check)))
(provide '+org-reminders)