diff --git a/emacs/.emacs.d/init-circe.org b/emacs/.emacs.d/init-circe.org index 81b9e32..ba0ddb8 100644 --- a/emacs/.emacs.d/init-circe.org +++ b/emacs/.emacs.d/init-circe.org @@ -15,6 +15,7 @@ wanted it. So now I use Circe. libraries that are used in the configuration of Circe. #+BEGIN_SRC emacs-lisp + (require 'auth-source) (require 'lui) (require 'circe) (require 's) @@ -144,10 +145,21 @@ 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))))) + (setq circe-network-options `(("Freenode" :nick "ryuslash" - :channels ("#emacs" "#mowedline" "#ninthfloor")))) + :channels ("#emacs" "#mowedline" "#ninthfloor") + :nickserv-password oni:circe-nickserv-password))) #+END_SRC * Change the time-stamp