diff options
| author | Kirill A. Korinskiy <catap@catap.ru> | 2010-01-08 12:42:11 +0300 |
|---|---|---|
| committer | Kirill A. Korinskiy <catap@catap.ru> | 2010-01-08 14:16:13 +0300 |
| commit | 532939f971febe5a29ed20607d0075ba60f90a04 (patch) | |
| tree | f6cc548e1dc9ac0ebaec3fa6befe9bf35679a7b5 /jabber-sawfish.el | |
| parent | 7d67638dfbb1d84844223739e8ae27440313130f (diff) | |
Make multiline notify
Diffstat (limited to 'jabber-sawfish.el')
| -rw-r--r-- | jabber-sawfish.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/jabber-sawfish.el b/jabber-sawfish.el index 15546f5..3cc7a5a 100644 --- a/jabber-sawfish.el +++ b/jabber-sawfish.el @@ -26,13 +26,13 @@ Sawfish window manager." :type 'integer :group 'jabber-alerts) -(defun jabber-sawfish-display-message (message) +(defun jabber-sawfish-display-message (text &optional title) "Displays MESSAGE through the Sawfish window manager." (let ((process-connection-type nil)) (start-process-shell-command "jabber-sawfish" nil "echo" (concat "'(progn (require (quote timers)) (display-message \"" - message + (or title text) "\")(make-timer (lambda () (display-message nil)) " (number-to-string jabber-sawfish-display-time) "))' | sawfish-client - &> /dev/null")))) |