X-Git-Url: https://git.shemshak.org/~bandali/configs/blobdiff_plain/f138f1d7c8d6f6cf629c35870fc3f6e477a0c0d2..ab386d244c0cf1b7fe274e2cec80a180e9b88b14:/spacemacs/.emacs.d/private/aminb/packages.el

diff --git a/spacemacs/.emacs.d/private/aminb/packages.el b/spacemacs/.emacs.d/private/aminb/packages.el
index fb9862b..919b271 100644
--- a/spacemacs/.emacs.d/private/aminb/packages.el
+++ b/spacemacs/.emacs.d/private/aminb/packages.el
@@ -17,7 +17,7 @@
 ;;; Code:
 
 (defconst aminb-packages
-  '(crux writeroom-mode)
+  '(crux writeroom-mode znc)
   "The list of Lisp packages required by the aminb layer.")
 
 (defun aminb/init-crux ()
@@ -34,5 +34,51 @@
     :bind (("C-c W" . writeroom-mode)
            ("s-?" . writeroom-toggle-mode-line))))
 
+(defun aminb/init-znc ()
+  (use-package znc
+    :defer t
+    :init
+    (spacemacs/set-leader-keys
+      "aiz" 'znc-erc)
+    :config
+    (progn
+      (defun vbe:znc-add-server (server port user networks)
+        "Add a server to the list of ZNC servers.
+We use SSL inconditionaly. Moreover, we don't store the password
+but put nil instead. At least, we tweak the username to contain
+the network name later, this will be separated again."
+        (add-to-list 'znc-servers
+                     (list server
+                           port
+                           t                  ; SSL enabled
+                           (mapcar (function (lambda (slug) (list slug
+                                                                  (format "%s/%s" user slug)
+                                                                  nil)))
+                                   networks))))
+
+      (defun vbe:znc-erc-ssl-connector (&rest R)
+        "Connect to ERC using SSL and retrieve password with `auth-source-search'.
+Moreover, handle multiple networks by sending the password with
+the appropriate network slug that we extract from the nick."
+        (let* ((user (nth 0 (split-string (plist-get R :nick) "/")))
+               (slug (nth 1 (split-string (plist-get R :nick) "/")))
+               (found (nth 0 (auth-source-search :host (plist-get R :server)
+                                                 :user user
+                                                 :require '(:user :secret)
+                                                 :max 1))))
+          (if found
+              (let ((password (let ((secret (plist-get found :secret)))
+                                (if (functionp secret)
+                                    (funcall secret)
+                                  secret))))
+                (plist-put R :password (format "%s/%s:%s" user slug password))
+                (plist-put R :nick user)
+                (apply 'erc-tls R)))))
+      (setq znc-erc-ssl-connector 'vbe:znc-erc-ssl-connector)
+
+      ;; Define networks
+      (vbe:znc-add-server "nix.aminb.org" 6669 "amin"
+                          '(freenode mozilla))
+      )))
 
 ;;; packages.el ends here