emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed

From: jmcbray@carcosa.net (Jason F. McBrayer)
To: org-mode list <emacs-orgmode@gnu.org>
Subject: [PATCH] org-show-notification will use todochiku.el if available
Date: Wed, 22 Jul 2009 14:43:30 -0400	[thread overview]
Message-ID: <m1hbx4lfsd.fsf@bertrand.carcosa.net> (raw)


This is a little patch to let org-show-notification (in org-clock.el)
use the package [todochiku.el] if available.  This means that if
todochiku has been set up correctly, org-show-notification will work
with Growl (on MacOS) or Snarl (on MSWindows), as well as libnotify (on
*ix). 

[todochiku.el] http://www.emacswiki.org/emacs-se/ToDoChiKu
---
 lisp/org-clock.el |    9 ++++++---
 1 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/lisp/org-clock.el b/lisp/org-clock.el
index 594d3cf..5428aa1 100644
--- a/lisp/org-clock.el
+++ b/lisp/org-clock.el
@@ -440,9 +440,12 @@ Notification is shown only once."
 	(setq org-clock-notification-was-shown nil)))))
 
 (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))
+  "Show notification. Use todochiku.el or libnotify, if available."
+  (if (fboundp 'todochiku-message)
+      (todochiku-message "org-mode notification" notification
+                         (todochiku-icon 'emacs))
+    (if (org-program-exists "notify-send")
+        (start-process "emacs-timer-notification" nil "notify-send" notification)))
   ;; In any case, show in message area
   (message notification))
 
-- 
1.6.1.2


-- 
+-----------------------------------------------------------+  
| Jason F. McBrayer                    jmcbray@carcosa.net  |  
| If someone conquers a thousand times a thousand others in |  
| battle, and someone else conquers himself, the latter one |  
| is the greatest of all conquerors.  --- The Dhammapada    |  

next             reply	other threads:[~2009-07-22 18:43 UTC|newest]

Thread overview: 3+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2009-07-22 18:43 Jason F. McBrayer [this message]
2009-07-23 15:41 ` [PATCH] org-show-notification will use todochiku.el if available Bastien
2009-07-23 18:27   ` Jason F. McBrayer

find likely ancestor, descendant, or conflicting patches for this message:
dfblob:594d3cf dfblob:5428aa1
	(help)

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.orgmode.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=m1hbx4lfsd.fsf@bertrand.carcosa.net \
    --to=jmcbray@carcosa.net \
    --cc=emacs-orgmode@gnu.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).