|
From: | Rick Moynihan |
Subject: | Re: [Orgmode] MacOSX: Notifications with Growl |
Date: | Fri, 07 Nov 2008 11:25:54 +0000 |
User-agent: | Thunderbird 2.0.0.17 (Macintosh/20080914) |
Alex Ott wrote:
Hi all 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 simplifying the elisp a little. This version doesn't create a temporary 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 «data utxt%s» 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.
[Prev in Thread] | Current Thread | [Next in Thread] |