wgester/dotfiles
1
0
Fork 0
forked from colonelpanic/dotfiles
Code Pull Requests Activity

Sauron alerting for jabber and erc.

Browse Source
This commit is contained in:
Ivan Malison 2014-11-25 08:24:44 -08:00
parent b0a28065cf
commit ab21e7bc44
1 changed files with 35 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
init.el
View File

@ -236,6 +236,8 @@ buffer is not visiting a file."
(shell-command (format "grownotify -t %s -m %s" title message))) (shell-command (format "grownotify -t %s -m %s" title message)))
(defvar notify-function 'notification-center)
;; ============================================================================= ;; =============================================================================
;; General Emacs Options ;; General Emacs Options
;; ============================================================================= ;; =============================================================================
@ -431,7 +433,16 @@ buffer is not visiting a file."
(use-package jabber (use-package jabber
:ensure t :ensure t
:commands jabber-connect) :commands jabber-connect
:config
(progn
(defun jabber-message-content-message (from buffer text)
(when (or jabber-message-alert-same-buffer
(not (memq (selected-window) (get-buffer-window-list buffer))))
(if (jabber-muc-sender-p from)
(format "%s: %s" (jabber-jid-resource from) text)
(format "%s: %s" (jabber-jid-displayname from) text))))
(setq jabber-alert-message-function 'jabber-message-content-message)))
(use-package org (use-package org
:ensure t :ensure t
@ -517,27 +528,38 @@ buffer is not visiting a file."
:config :config
(epa-file-enable)) (epa-file-enable))
(use-package twittering-mode :ensure t)
(use-package erc (use-package erc
:ensure t :ensure t
:commands erc :commands erc
:config :config
(progn (progn
(setq sauron-nick-insensitivity 1) (use-package erc-colorize :ensure t) (erc-colorize-mode 1)))
(use-package erc-colorize :ensure t) (erc-colorize-mode 1)
(defun erc-sauron:handle-event (origin priority message
&optional properties)
(let ((event (plist-get properties :event))
(message "origin: %s, properties: %s" origin properties)
(notification-center "" message))))
(add-hook 'sauron-event-added-functions
(lambda
(if (eq origin "erc") nil nil)))))
(use-package sauron (use-package sauron
:ensure t :ensure t
:commands (sauron-start sauron-start-hidden) :commands (sauron-start sauron-start-hidden)
:config (progn (setq sauron-separate-frame nil)) :config
(progn
(setq sauron-min-priority 3)
(setq sauron-separate-frame nil)
(setq sauron-nick-insensitivity 1)
(defun sauron:jabber-notify (origin priority message &optional properties)
(funcall notify-function "gtalk" message))
(defun sauron:erc-notify (origin priority message &optional properties)
(let ((event (plist-get properties :event)))
(message "origin: %s, properties: %s" origin event)
(funcall notify-function "IRC" message)))
(defun sauron:mu4e-notify (origin priority message &optional properties)
nil)
(defun sauron:dispatch-notify (origin priority message &optional properties)
(let ((handler (cond ((string= origin "erc") 'sauron:erc-notify)
((string= origin "jabber") 'sauron:jabber-notify)
((string= origin "mu4e") 'sauron:mu4e-notify)
(t (lambda (&rest r) nil)))))
(funcall handler origin priority message properties)))
(add-hook 'sauron-event-added-functions 'sauron:dispatch-notify))
:idle (sauron-start-hidden) :idle (sauron-start-hidden)
:idle-priority 3) :idle-priority 3)