jt/emacs-prelude
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove custom erc notifications code

Browse source 
It should be replaced with the use of something like
https://github.com/jwiegley/alert
This commit is contained in:
Bozhidar Batsov 2014-11-05 12:56:12 +02:00
parent 32aa871467
commit 21df465e4b
1 changed files with 0 additions and 26 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
modules/prelude-erc.el
View file

@ -78,18 +78,6 @@
;; set different dictionaries by different servers/channels ;; set different dictionaries by different servers/channels
;;(setq erc-spelling-dictionaries '(("#emacs" "american"))) ;;(setq erc-spelling-dictionaries '(("#emacs" "american")))
;; TODO - replace this with use of notify.el
;; Notify my when someone mentions my nick.
(defun call-libnotify (matched-type nick msg)
(let* ((cmsg (split-string (clean-message msg)))
(nick (first (split-string nick "!")))
(msg (mapconcat 'identity (rest cmsg) " ")))
(shell-command-to-string
(format "notify-send -u critical '%s says:' '%s'" nick msg))))
(when (eq system-type 'linux)
(add-hook 'erc-text-matched-hook 'call-libnotify))
(defvar erc-notify-nick-alist nil (defvar erc-notify-nick-alist nil
"Alist of nicks and the last time they tried to trigger a "Alist of nicks and the last time they tried to trigger a
notification") notification")
@ -115,20 +103,6 @@ that can occur between two notifications. The default is
(push (cons nick cur-time) erc-notify-nick-alist) (push (cons nick cur-time) erc-notify-nick-alist)
t))) t)))
;; private message notification
(defun erc-notify-on-private-msg (proc parsed)
(let ((nick (car (erc-parse-user (erc-response.sender parsed))))
(target (car (erc-response.command-args parsed)))
(msg (erc-response.contents parsed)))
(when (and (erc-current-nick-p target)
(not (erc-is-message-ctcp-and-not-action-p msg))
(erc-notify-allowed-p nick))
(shell-command-to-string
(format "notify-send -u critical '%s says:' '%s'" nick msg))
nil)))
(add-hook 'erc-server-PRIVMSG-functions 'erc-notify-on-private-msg)
;; autoaway setup ;; autoaway setup
(setq erc-auto-discard-away t) (setq erc-auto-discard-away t)
(setq erc-autoaway-idle-seconds 600) (setq erc-autoaway-idle-seconds 600)