[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org-notify 7664636244 2/3: Merge branch 'externals/org-
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org-notify 7664636244 2/3: Merge branch 'externals/org-notify' of git://git.sv.gnu.org/emacs/elpa |
Date: |
Wed, 2 Nov 2022 13:58:00 -0400 (EDT) |
branch: externals/org-notify
commit 7664636244eaca497709974f160d0c48f341b1b8
Merge: dbb2347fb4 bbd9a049ff
Author: Peter Münster <pm@a16n.net>
Commit: Peter Münster <pm@a16n.net>
Merge branch 'externals/org-notify' of git://git.sv.gnu.org/emacs/elpa
---
org-notify.el | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/org-notify.el b/org-notify.el
index 0ca2cb90fa..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
@@ -200,7 +200,7 @@ forgotten tasks."
(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)
@@ -411,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)