Configure ERC

I'm not sure how much I'm going to use it, but it's done now.

2 files changed, 25 insertions, 1 deletions

@@ -258,6 +258,25 @@
    (_ (set-selection-coding-system 'utf-8)
       (set-clipboard-coding-system 'utf-8))))
 
+;; I don't really use ERC that much, but if/when I start ... I'll be ready.
+(setup erc
+  (:option erc-track-position-in-mode-line 'before-modes
+           erc-hide-list '("329" "332" "333" "353" "MODE"
+                           "TOPIC" "JOIN" "PART" "QUIT" "NICK"))
+  ;; https://www.emacswiki.org/emacs/ErcModeline#h5o-1
+  (defface erc-header-line-disconnected
+    '((t (:foreground "black" :background "indianred")))
+    "Face to use when ERC has been disconnected.")
+  
+  (defun erc-update-header-line-show-disconnected ()
+    "Use a different face in the header-line when disconnected."
+    (erc-with-server-buffer
+      (cond ((erc-server-process-alive) 'erc-header-line)
+            (t 'erc-header-line-disconnected))))
+  
+  (:option erc-header-line-face-method
+           #'erc-update-header-line-show-disconnected))
+
 (setup eshell
   (:option eshell-directory-name (acdw/dir "eshell/" t)
            eshell-aliases-file (acdw/dir "eshell/aliases" t)
@@ -1026,11 +1045,12 @@ if ripgrep is installed, otherwise `consult-grep'."
                                acdw-modeline/vc-branch
                                simple-modeline-segment-position)
                               (simple-modeline-segment-misc-info
+                               acdw-modeline/erc
                                acdw-modeline/word-count
-                               acdw-modeline/winum
                                acdw-modeline/text-scale
                                simple-modeline-segment-process
                                acdw-modeline/god-mode-indicator
+                               acdw-modeline/winum
                                acdw-modeline/minions
                                simple-modeline-segment-major-mode)))
   
@@ -30,6 +30,10 @@
                 'font-lock-type-face)
               'help-echo (buffer-file-name)))
 
+(defun acdw-modeline/erc ()
+  "ERC indicator for the modeline."
+  (format-mode-line erc-modified-channels-object))
+
 (defun acdw-modeline/god-mode-indicator ()
   (when (bound-and-true-p god-local-mode)
     " God"))