37 lines
1.1 KiB
EmacsLisp
37 lines
1.1 KiB
EmacsLisp
|
;;;; example 'join these servers' commands.
|
||
|
|
|
||
|
|
(require 'epa)
|
||
|
|
|
||
|
|
|
||
|
|
;; handle annoying gpg shit.
|
||
|
|
(defun lookup-password (host user port)
|
||
|
|
"Lookup encrypted password given HOST, USER and PORT for service."
|
||
|
|
(require 'auth-source)
|
||
|
|
(funcall (plist-get
|
||
|
|
(car (auth-source-search
|
||
|
|
:host host
|
||
|
|
:user user
|
||
|
|
:type 'netrc
|
||
|
|
:port port))
|
||
|
|
:secret)))
|
||
|
|
|
||
|
|
(setq znc-password(lookup-password "bouncer.awful.club" "blindidiotgod/OFTC" 5000))
|
||
|
|
|
||
|
|
;; by default, erc alerts you on any activity. I only want to hear
|
||
|
|
;; about mentions of nick or keyword
|
||
|
|
(require 'znc)
|
||
|
|
(custom-set-variables
|
||
|
|
'(znc-servers
|
||
|
|
`(("bouncer.awful.club" 5000 t
|
||
|
|
((freenode "blindidiotgod/freenode" ,znc-password)
|
||
|
|
(OFTC "blindidiotgod/OFTC" ,znc-password))))))
|
||
|
|
(setq erc-current-nick-highlight-type 'all)
|
||
|
|
(setq erc-keywords '("security"))
|
||
|
|
(setq erc-track-exclude-types '("JOIN" "PART" "NICK" "MODE" "QUIT"))
|
||
|
|
(setq erc-track-use-faces t)
|
||
|
|
(setq erc-track-faces-priority-list
|
||
|
|
'(erc-current-nick-face erc-keyword-face))
|
||
|
|
(setq erc-track-priority-faces-only 'all)
|
||
|
|
(setq erc-hide-list '("PART" "QUIT" "JOIN"))
|
||
|
|
(setq erc-join-buffer 'bury)
|