clean-ups

1 files changed, 128 insertions, 1 deletions

diff --git a/attic/misc.org b/attic/misc.org
index 397bfcb..94f300f 100644
--- a/attic/misc.org
+++ b/attic/misc.org
@@ -1,6 +1,6 @@
 #+title: Miscellaneous config bits that i don't use anymore
 
-* enwc (network monitor)
+* enwc
     #+BEGIN_SRC emacs-lisp
       (use-package enwc
         :ensure t
@@ -158,3 +158,130 @@
 
     (global-company-mode 1)
   #+end_src
+* rcirc
+    #+begin_src emacs-lisp :load no
+      (use-package rcirc
+        :init
+        (setq rcirc-server-alist `(("irc.libera.chat"
+                                  :encryption tls
+                                  :port 6697
+                                  :channels ,jao-irc-channels))
+              rcirc-default-user-full-name "http://jao.io/"
+              rcirc-buffer-maximum-lines 1000
+              rcirc-fill-column 82
+              rcirc-fill-prefix "         "
+              rcirc-time-format "%H:%M "
+              rcirc-kill-channel-buffers t
+              rcirc-response-formats
+              '(("PRIVMSG" . "(%N) %m")
+                ("NOTICE" . "-%N- %m")
+                ("ACTION" . "(... %N %m)")
+                ("COMMAND" . "%m")
+                ("ERROR" . "%fw!!! %m")
+                (t . "%fp*** %fs%n %r %m"))
+              rcirc-prompt ": "
+              rcirc-nick-completion-format "%s, "
+              rcirc-reconnect-delay 120
+              rcirc-omit-responses
+              '("JOIN" "PART" "QUIT" "NICK" "AWAY" "MODE" "KEEPALIVE"))
+        :config
+        (let ((fn (jao--get-user/password "libera"))
+              (btl (jao--get-user/password "bitlbee")))
+          (setq rcirc-authinfo
+                `(("libera" nickserv ,(nth 0 fn) ,(nth 1 fn))
+                  ("localhost" bitlbee ,(nth 0 btl) ,(nth 1 btl)))))
+        (jao-shorten-modes 'rcirc-mode)
+
+        (define-minor-mode ncm-mode "" nil
+          (:eval (format " [%S]"
+                         (length (rcirc-channel-nicks (rcirc-buffer-process)
+                                                      rcirc-target)))))
+
+        (defun jao-rcirc-track ()
+          (dolist (b rcirc-activity) (tracking-add-buffer b))
+          (jao-minibuffer-refresh))
+
+        (add-hook 'rcirc-update-activity-string-hook #'jao-rcirc-track)
+        (add-hook 'rcirc-mode-hook #'ncm-mode)
+        (add-hook 'rcirc-mode-hook #'rcirc-omit-mode)
+
+      :diminish ((rcirc-omit-mode . "")))
+    #+end_src
+* circe
+  #+begin_src emacs-lisp
+    (defvar jao-irc-channels '())
+    (use-package circe
+      :ensure t
+      :bind (:map circe-channel-mode-map
+                  (("C-c C-a" . lui-track-jump-to-indicator)))
+      :init
+      (setq circe-default-realname "https://jao.io"
+            circe-default-part-message ""
+            circe-default-quit-message ""
+            circe-ignore-list nil
+            circe-server-coding-system '(undecided . undecided)
+            circe-server-killed-confirmation 'ask-and-kill-all
+            circe-server-auto-join-default-type :after-auth
+            circe-format-say "({nick}) {body}"
+            circe-format-self-say "(jao) {body}"
+            circe-new-buffer-behavior 'ignore
+            circe-new-buffer-behavior-ignore-auto-joins t
+            circe-nickserv-ghost-style 'after-auth
+            circe-prompt-string ": "
+            circe-completion-suffix ", "
+            circe-reduce-lurker-spam t
+
+            circe-nick-next-function
+            (lambda (old)
+              (replace-regexp-in-string "-" "`" (circe-nick-next old)))
+
+            circe-lagmon-mode-line-format-string "" ;;  "%.0f "
+            circe-lagmon-mode-line-unknown-lag-string "" ;; "? "
+            circe-lagmon-timer-tick 120
+            circe-lagmon-reconnect-interval 180
+
+            lui-max-buffer-size 30000
+            lui-fill-column 80
+            lui-time-stamp-position 'right
+            lui-time-stamp-format "%H:%M"
+            lui-flyspell-p nil
+
+            lui-track-indicator 'fringe
+            lui-track-behavior 'before-tracking-next-buffer)
+      :config
+
+      (defun circe-command-RECOVER (&rest ignore)
+        "Recover nick"
+        (let* ((fn (jao--get-user/password "freenode"))
+               (u (car fn))
+               (p (cadr fn)))
+          (circe-command-MSG "nickserv" (format "IDENTIFY %s %s" u p))
+          (circe-command-MSG "nickserv" (format "GHOST %s" u))
+          (circe-command-MSG "nickserv" (format "RELEASE %s" u))
+          (circe-command-NICK u)))
+
+      (defvar jao-bitlbee-channels ())
+      (setq circe-network-options
+            (let ((up (jao--get-user/password "freenode"))
+                  (bup (jao--get-user/password "bitlbee")))
+              `(("libera"
+                 :host "irc.libera.chat" :port 6667
+                 :nick ,(car up) :channels ,jao-irc-channels
+                 :tls t :nickserv-password ,(cadr up))
+                ("Freenode" :nick ,(car up) :channels ,jao-irc-channels
+                 :tls t :sasl-username ,(car up) :sasl-password ,(cadr up))
+                ("Bitlbee"
+                 :host "127.0.0.1" :nick ,(car bup)
+                 :channels ,jao-bitlbee-channels
+                 :lagmon-disabled t
+                 :nickserv-password ,(cadr bup) :user ,(car bup)))))
+
+      (jao-shorten-modes 'circe-channel-mode
+                         'circe-server-mode
+                         'circe-query-mode)
+
+      (circe-lagmon-mode)
+      (enable-circe-color-nicks)
+      (enable-circe-display-images)
+      (enable-lui-track))
+  #+end_src