diff --git a/emacs/.emacs.d/init-circe.org b/emacs/.emacs.d/init-circe.org index 81d3612..97867e3 100644 --- a/emacs/.emacs.d/init-circe.org +++ b/emacs/.emacs.d/init-circe.org @@ -150,21 +150,29 @@ wanted it. So now I use Circe. something happens there, though usually not. #+BEGIN_SRC emacs-lisp - (defun oni:circe-nickserv-password (_) - (let ((found (nth 0 (auth-source-search :max 1 - :host "irc.freenode.net" - :require '(:secret))))) - (when found - (let ((secret (plist-get found :secret))) - (if (functionp secret) - (funcall secret) - secret))))) + (defun oni:circe-nickserv-password-getter (host) + (lambda (_) + (let ((found (nth 0 (auth-source-search :max 1 + :host host + :require '(:secret))))) + (when found + (let ((secret (plist-get found :secret))) + (if (functionp secret) + (funcall secret) + secret)))))) (setq circe-network-options `(("Freenode" :nick "ryuslash" :channels ("#emacs" "#mowedline" "#ninthfloor") - :nickserv-password oni:circe-nickserv-password))) + :nickserv-password ,(oni:circe-nickserv-password-getter "irc.freenode.net")) + ("Twitch" + :use-tls nil + :nick "ryuslash" + :host "irc.twitch.tv" + :pass ,(oni:circe-nickserv-password-getter "irc.twitch.tv") + :port 6667 + :channels ("#escondida")))) #+END_SRC * Show #mowedline in a frame without minibuffer