From mboxrd@z Thu Jan  1 00:00:00 1970
From: Rick Moynihan <rick@calicojack.co.uk>
Subject: Re: MacOSX: Notifications with Growl
Date: Fri, 07 Nov 2008 11:25:54 +0000
Message-ID: <491425C2.4020706@calicojack.co.uk>
References: <87bpwwvmgr.fsf@gmail.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: quoted-printable
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43)
	id 1KyPTj-0001Kw-PX
	for emacs-orgmode@gnu.org; Fri, 07 Nov 2008 06:26:15 -0500
Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43)
	id 1KyPTi-0001Iq-0u
	for emacs-orgmode@gnu.org; Fri, 07 Nov 2008 06:26:15 -0500
Received: from [199.232.76.173] (port=40739 helo=monty-python.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1KyPTh-0001IZ-90
	for emacs-orgmode@gnu.org; Fri, 07 Nov 2008 06:26:13 -0500
Received: from storm.bpweb.net ([83.223.106.8]:40120)
	by monty-python.gnu.org with esmtps
	(TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60)
	(envelope-from <rick@calicojack.co.uk>) id 1KyPTg-0008Vn-Eu
	for emacs-orgmode@gnu.org; Fri, 07 Nov 2008 06:26:12 -0500
In-Reply-To: <87bpwwvmgr.fsf@gmail.com>
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/pipermail/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=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: Alex Ott <alexott@gmail.com>
Cc: emacs-orgmode@gnu.org

Alex Ott wrote:
> Hi all
>=20
> I wrote small note about show notifications with Growl under Mac OS X.
> This could be useful when using org-mode.  Note is could be found on my=
 site
> http://xtalk.msk.su/~ott/en/writings/EmacsMacOSXAndGrowl.html

Thanks for this, this'll prove handy at work.  I took the liberty of=20
simplifying the elisp a little.  This version doesn't create a temporary=20
file, and instead uses a shell HEREDOC.

(defun output-to-growl (msg)
     (shell-command (format "osascript <<ENDSCRIPT
tell application \"GrowlHelperApp\"
      notify with name \"Emacs Notification\" title \"Emacs alert\" \
        description =ABdata utxt%s=BB as Unicode text \
        application name \"Emacs\"
    end tell
ENDSCRIPT"  (osd-text-to-utf-16-hex msg))))

(defun osd-text-to-utf-16-hex (text)
   (let* ((utext (encode-coding-string text 'utf-16))
          (ltext (string-to-list utext)))
     (apply #'concat
      (mapcar (lambda (x) (format "%02x" x)) ltext))))


R.