mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

Add and use a new option: org-show-notification-handler 

This option lets the user customize the notification mechanism.
For example, she might want to use todochiku.el.

This option defaults to nil, hence doesn't change the previous
behavior: if the program notify-send is installed on the system,
use it, and falls back on using (message [notification]) if not.
This commit is contained in:
Bastien Guerry 2009-07-23 17:33:52 +02:00
parent 898049066a
commit 12a9381803
2 changed files with 25 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2009-07-23 Bastien Guerry <bzg@altern.org>
* org-clock.el (org-show-notification-handler): New option.
(org-show-notification): Use the new option.
2009-07-21 Bastien Guerry <bzg@altern.org>
* org.el (org-eval-in-calendar): Fix a bug about calendar

24
lisp/org-clock.el
View File

@ -192,6 +192,15 @@ auto Automtically, either `all', or `repeat' for repeating tasks"
(const :tag "All task time" all)
(const :tag "Automatically, `all' or since `repeat'" auto)))
(defcustom org-show-notification-handler nil
"Function or program to send notification with.
The function or program will be called with the notification
string as argument."
:group 'org-clock
:type '(choice
(string :tag "Program")
(function :tag "Function")))
(defvar org-clock-in-prepare-hook nil
"Hook run when preparing the clock.
This hook is run before anything happens to the task that
@ -441,10 +450,17 @@ Notification is shown only once."
(defun org-show-notification (notification)
"Show notification. Use libnotify, if available."
(if (org-program-exists "notify-send")
(start-process "emacs-timer-notification" nil "notify-send" notification))
;; In any case, show in message area
(message notification))
(cond ((functionp org-show-notification-handler)
(funcall org-show-notification-handler notification))
((stringp org-show-notification-handler)
(start-process "emacs-timer-notification" nil
org-show-notification-handler notification))
((org-program-exists "notify-send")
(start-process "emacs-timer-notification" nil
"notify-send" notification))
;; Maybe the handler will send a message, so only use message as
;; a fall back option
(t (message notification))))
(defun org-clock-play-sound ()
"Play sound as configured by `org-clock-sound'.