From 7798ca854f097163c24fcbed9de7a17066f2b05e Mon Sep 17 00:00:00 2001
From: Flinner Yuu <flinner@nand.sh>
Date: Sun, 10 Apr 2022 01:46:58 +0300
Subject: [PATCH] feat: circe! with helm :)

---
 emacs.mine/.config/emacs.mine/emacs.org | 64 ++++++++++++++++++++-----
 1 file changed, 51 insertions(+), 13 deletions(-)

diff --git a/emacs.mine/.config/emacs.mine/emacs.org b/emacs.mine/.config/emacs.mine/emacs.org
index 79f448e..860e58a 100644
--- a/emacs.mine/.config/emacs.mine/emacs.org
+++ b/emacs.mine/.config/emacs.mine/emacs.org
@@ -154,6 +154,8 @@ The status line
     (use-package doom-modeline
       :ensure t
       :init (doom-modeline-mode 1)
+      :config
+      (display-battery-mode 1)
       :custom
   ((doom-modeline-height 15) (doom-modeline-icon t)))
 #+end_src
@@ -365,6 +367,7 @@ Edit: honestly I have no clue wtf that meant, or why I wrote it, but I will keep
   "hv" '(counsel-describe-variable :which-key "Describe Variable")
   "hF" '(counsel-describe-face :which-key "Describe Face")
   "hi" '(info :which-key "info")
+  "hm" '(woman :which-key "woman")
 #+end_src
 
 **** search (s)
@@ -2126,31 +2129,66 @@ I wrote that, neat isn't it? :P
       (znc-all))) 
 #+end_src
 
-** COMMENT circe
+** circe
+*** Secrets :^)
+#+begin_src emacs-lisp :tangle no
+    ;; Doesn't tangle!
+    ;; loaded in use-package (block below)
+    (load "~/Documents/passwords/circe-networks.el")
+
+   ; example content
+  (add-to-list 'circe-networks `("chat.name/username" :host "irc.example.com" :port 69
+                                 :tls t
+                                 :nick "nicky"
+                                 :pass ,(secrets-get-secret "local" "hehe :^)")
+                                 :user "username")) 
+#+end_src
+
+*** Helper Functions!
+#+begin_src emacs-lisp
+  (defun my/circe/clear ()
+    "Clear the buffer"
+    (interactive)
+    (circe-command-CLEAR))
+
+  (defun my/circe/build-helm-sources (server-buf)
+    "Builds helm candidates for a single server"
+    (helm-build-sync-source (buffer-name server-buf)
+      :candidates
+      (cons (cons (buffer-name server-buf) server-buf)
+            (cl-loop for buf in
+                     (with-current-buffer server-buf (circe-server-channel-buffers))
+                     collect (cons (buffer-name buf) buf)))
+      :action (list (cons "Switch to circe" #'switch-to-buffer))))
+
+
+  (defun my/circe/helm-buffers ()
+    "Switch between circe buffers using helm"
+    (interactive)
+    (helm :sources
+          (cl-loop for server-buf in (circe-server-buffers)
+                   collect (my/circe/build-helm-sources server-buf))
+          :buffer "*helm circe*"))
+
+#+end_src
+
 *** Setup
 #+begin_src emacs-lisp
   (use-package circe
     :defer t
     :preface
-    (defun my/circe/clear ()
-      (interactive)
-      (circe-command-CLEAR))
     :config
-    (add-to-list 'circe-networks `("flinner's znc" :host "flinner.my.to" :port 6697
-                                   :tls t
-                                   ;; :sasl-strict t 
-                                   :nick ,my/secret/znc/flinner.my.to/username
-                                   ;; :sasl-username ,my/secret/znc/flinner.my.to/sassl-username
-                                   ;; :sasl-password ,my/secret/znc/flinner.my.to/secret
-                                   :pass ,my/secret/znc/flinner.my.to/secret
-                                   :user ,my/secret/znc/flinner.my.to/username
-                                   ))
+    ;(add-to-list 'circe-networks `())
+    ;; adding to list happens here!
+    (load "~/Documents/passwords/circe-networks.el")
     (setq circe-color-nicks-min-constrast-ratio 4.5
           circe-color-nicks-everywhere t)
     :hook (circe-channel-mode . enable-circe-color-nicks)
     :custom
     (circe-format-say "{nick:-16s} {body}")
     ;; :bind(("C-l" . my/circe/clear))
+    :bind (:map circe-mode-map
+                ([remap counsel-projectile-find-file] . my/circe/helm-buffers))
   )
 #+end_src