branch: externals/org-notify
commit bbd9a049ff3c3bb936a3044cf01949db2e4c91fd
Author: Peter Münster <p...@a16n.net>
Commit: Peter Münster <p...@a16n.net>
No more need to prefix actions with a hyphen
* org-notify.el (org-notify-process): Make use of the ensure-list
function. And avoid the need to prefix the actions with a hyphen.
---
org-notify.el | 15 +++++++--------
1 file changed, 7 insertions(+), 8 deletions(-)
diff --git a/org-notify.el b/org-notify.el
index c64352d089..df0cb8c367 100644
--- a/org-notify.el
+++ b/org-notify.el
@@ -43,11 +43,11 @@
;;
;; (org-notify-add 'appt
;; '(:time "-1s" :period "20s" :duration 10
-;; :actions (-message -ding))
+;; :actions (message ding))
;; '(:time "15m" :period "2m" :duration 100
-;; :actions -notify)
-;; '(:time "2h" :period "5m" :actions -message)
-;; '(:time "3d" :actions -email))
+;; :actions notify)
+;; '(:time "2h" :period "5m" :actions message)
+;; '(:time "3d" :actions email))
;;
;; This means for todo-items with `notify' property set to `appt': 3 days
;; before deadline, send a reminder-email, 2 hours before deadline, start to
@@ -196,12 +196,11 @@ forgotten tasks."
(prm :audible)
org-notify-audible)
(ding))
- (unless (listp actions)
- (setq actions (list actions)))
+ (setq actions (ensure-list actions))
(cl-incf notification-cnt)
(dolist (action actions)
(funcall (if (fboundp action) action
- (intern (concat "org-notify-action"
+ (intern (concat "org-notify-action-"
(symbol-name action))))
plist))
(when (>= notification-cnt
org-notify-max-notifications-per-run)
@@ -412,7 +411,7 @@ terminal an Emacs window."
(org-notify-action-window plist)))
;;; Provide a minimal default setup.
-(org-notify-add 'default '(:time "1h" :actions -notify/window
+(org-notify-add 'default '(:time "1h" :actions notify/window
:period "2m" :duration 60))
(provide 'org-notify)
