branch: externals/org-notify
commit 75df171a0a8ca760714fc14a4751f0885b8320cb
Author: Peter Münster <p...@free.fr>
Commit: Peter Münster <p...@free.fr>
Allow also suffixes for predefined functions.
org-notify.el (org-notify-add): For the :actions, the user can supply now
also a suffix for a predefined function instead of the full function name.
---
org-notify.el | 19 +++++++++++--------
1 file changed, 11 insertions(+), 8 deletions(-)
diff --git a/org-notify.el b/org-notify.el
index 61bf48a842..20624e90b0 100644
--- a/org-notify.el
+++ b/org-notify.el
@@ -37,13 +37,11 @@
;; Example setup:
;; (org-notify-add 'appt
;; '(:time "-1s" :period "20s" :duration 10
-;; :actions (org-notify-action-message
-;; org-notify-action-ding))
+;; :actions (-message -ding))
;; '(:time "15m" :period "2m" :duration 100
-;; :actions org-notify-action-notify)
-;; '(:time "2h" :period "5m"
-;; :actions org-notify-action-message)
-;; '(:time "3d" :actions org-notify-action-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
;; send messages every 5 minutes, then 15 minutes before deadline, start to
@@ -151,7 +149,10 @@ forgotten tasks."
(unless (listp actions)
(setq actions (list actions)))
(dolist (action actions)
- (funcall action plist))))
+ (funcall (if (fboundp action) action
+ (intern (concat "org-notify-action"
+ (symbol-name action))))
+ plist))))
(return)))))))
(defun org-notify-add (name &rest params)
@@ -168,7 +169,9 @@ List of possible parameters:
start. It's a string: an integral value (positive or negative)
followed by a unit (s, m, h, d, w, M).
:actions A function or a list of functions to be called to notify the
- user.
+ user. Instead of a function name, you can also supply a suffix
+ of one of the various predefined `org-notify-action-xxx'
+ functions.
:period Optional: can be used to repeat the actions periodically. Same
format as :time.
:duration Some actions use this parameter to specify the duration of the
