diff options
Diffstat (limited to '.emacs.d/site-lisp')
-rw-r--r-- | .emacs.d/site-lisp/jabber-init.el | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/.emacs.d/site-lisp/jabber-init.el b/.emacs.d/site-lisp/jabber-init.el index 35831e5..ab760aa 100644 --- a/.emacs.d/site-lisp/jabber-init.el +++ b/.emacs.d/site-lisp/jabber-init.el @@ -26,6 +26,14 @@ Insert PROPOSED-ALERT in the buffer if it is non-nil." (ewoc-enter-last jabber-chat-ewoc (list :notice proposed-alert :time (current-time))))))) +(defun jabber-init-stumpwm-echo (from buffer text title) + "Use stumpwm to echo a message has arrived." + (oni:stumpwm-echo title)) + +(defun jabber-init-stumpwm-echo-muc (nick group buffer text title) + "Use stumpwm to echo a message has arrived." + (oni:stumpwm-echo title)) + (setq jabber-account-list (mapcar (lambda (str) (list (concat str "/" system-name))) '("tom@ryuslash.org" "ryuslash@ninthfloor.org")) @@ -63,6 +71,8 @@ Insert PROPOSED-ALERT in the buffer if it is non-nil." ;; (add-hook 'jabber-alert-message-hooks #'jabber-message-libnotify) ;; (add-hook 'jabber-alert-muc-hooks #'jabber-muc-libnotify) +(add-hook 'jabber-alert-message-hooks #'jabber-init-stumpwm-echo) +(add-hook 'jabber-alert-muc-hooks #'jabber-init-stumpwm-echo) (add-hook 'jabber-chat-mode-hook #'visual-line-mode) (add-hook 'jabber-roster-mode-hook #'jabber-init-roster-mode-func) (add-hook 'jabber-alert-presence-hooks |