From mboxrd@z Thu Jan 1 00:00:00 1970 From: David Abrahams Subject: Patch for growl notifications without uncommenting hacks Date: Sun, 05 Apr 2009 20:49:23 -0400 Message-ID: Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Lqd22-00047z-F2 for emacs-orgmode@gnu.org; Sun, 05 Apr 2009 20:49:46 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1Lqd1x-00043E-PM for emacs-orgmode@gnu.org; Sun, 05 Apr 2009 20:49:45 -0400 Received: from [199.232.76.173] (port=45526 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Lqd1x-000436-Lo for emacs-orgmode@gnu.org; Sun, 05 Apr 2009 20:49:41 -0400 Received: from main.gmane.org ([80.91.229.2]:55087 helo=ciao.gmane.org) by monty-python.gnu.org with esmtps (TLS-1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1Lqd1x-0004tQ-34 for emacs-orgmode@gnu.org; Sun, 05 Apr 2009 20:49:41 -0400 Received: from list by ciao.gmane.org with local (Exim 4.43) id 1Lqd1q-000213-JL for emacs-orgmode@gnu.org; Mon, 06 Apr 2009 00:49:34 +0000 Received: from 207-172-223-249.c3-0.smr-ubr3.sbo-smr.ma.static.cable.rcn.com ([207.172.223.249]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Mon, 06 Apr 2009 00:49:34 +0000 Received: from dave by 207-172-223-249.c3-0.smr-ubr3.sbo-smr.ma.static.cable.rcn.com with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Mon, 06 Apr 2009 00:49:34 +0000 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org --=-=-= This patch to org-mac-message.el should make it show growl notifications when searching for flagged messages and growl is running, and work silently otherwise. It's a little more complicated than it needs to be, since as noted in a comment about the "double-tell" idiom, using the creator code to find the application is probably not going to work unless the application's name is exactly "GrowlHelperApp" anyway, but I am not motivated to simpilify this more now that I have it working. Someone else is welcome to improve on it. Anyone is welcome to use this patch for any purpose. I hereby place it in the public domain. --=-=-= Content-Type: text/x-patch Content-Disposition: inline; filename=org-mac-message.diff diff --git a/lisp/org-mac-message.el b/lisp/org-mac-message.el index d91a575..6f5d634 100644 --- a/lisp/org-mac-message.el +++ b/lisp/org-mac-message.el @@ -101,26 +101,49 @@ This will use the command `open' with the message URL." "AppleScript to create links to flagged messages in Mail.app" (do-applescript (concat - "tell application \"Mail\"\n" - "set theMailboxes to every mailbox of account \"" org-mac-mail-account "\"\n" - "set theLinkList to {}\n" - "repeat with aMailbox in theMailboxes\n" - "set theSelection to (every message in aMailbox whose flagged status = true)\n" - "repeat with theMessage in theSelection\n" - "set theID to message id of theMessage\n" - "set theSubject to subject of theMessage\n" - "set theLink to \"message://\" & theID & \"::split::\" & theSubject & \"\n\"\n" - "copy theLink to end of theLinkList\n" - ;; "tell application \"GrowlHelperApp\"\n" - ;; "set the allNotificationsList to {\"FlaggedMail\"}\n" - ;; "set the enabledNotificationsList to allNotificationsList\n" - ;; "register as application \"FlaggedMail\" all notifications allNotificationsList default notifications enabledNotificationsList icon of application \"Mail\"\n" - ;; "notify with name \"FlaggedMail\" title \"Importing flagged message\" description theSubject application name \"FlaggedMail\"\n" - ;; "end tell\n" - "end repeat\n" - "end repeat\n" - "return theLinkList as string\n" - "end tell"))) +;; Locate the GrowlHelperApp application, even if its name has a version number appended +"tell application \"System Events\"\n" + "set growlHelpers to the name of every process whose creator type contains \"GRRR\"\n" + "if (count of growlHelpers) > 0 then\n" + "set growlHelperApp to item 1 of growlHelpers\n" + "else\n" + "set growlHelperApp to \"\"\n" + "end if\n" +"end tell\n" + +"tell application \"Mail\"\n" + "set theMailboxes to every mailbox of account \"BoostPro\"\n" + "set theLinkList to {}\n" + "repeat with aMailbox in theMailboxes\n" + "set theSelection to (every message in aMailbox whose flagged status = true)\n" + "repeat with theMessage in theSelection\n" + "set theID to message id of theMessage\n" + "set theSubject to subject of theMessage\n" + "set theLink to \"message://\" & theID & \"::split::\" & theSubject & \"\n" + "\"\n" + "copy theLink to end of theLinkList\n" + "if growlHelperApp is not \"\" then\n" + ;; This "double tell" idiom is described in detail at + ;; http://macscripter.net/viewtopic.php?id=24570 The + ;; script compiler needs static knowledge of the + ;; growlHelperApp. Hmm, since we're compiling + ;; on-the-fly here, this is likely to be way less + ;; portable than I'd hoped. It'll work when the name + ;; is still "GrowlHelperApp", though. + "tell application \"GrowlHelperApp\"\n" + "tell application growlHelperApp\n" + "set the allNotificationsList to {\"FlaggedMail\"}\n" + "set the enabledNotificationsList to allNotificationsList\n" + "register as application \"FlaggedMail\" all notifications allNotificationsList default notifications enabledNotificationsList icon of application \"Mail\"\n" + "notify with name \"FlaggedMail\" title \"Importing flagged message\" description theSubject application name \"FlaggedMail\"\n" + "end tell\n" + "end tell\n" + "end if\n" + "end repeat\n" + "end repeat\n" + "return theLinkList as string\n" +"end tell\n" + ))) (defun org-mac-message-get-links (select-or-flag) "Create links to the messages currently selected or flagged in --=-=-= -- Dave Abrahams BoostPro Computing http://www.boostpro.com --=-=-= Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode --=-=-=--