about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el22
-rw-r--r--lisp/acdw-modeline.el4
2 files changed, 25 insertions, 1 deletions
diff --git a/init.el b/init.el index f215f9d..c2fd0b4 100644 --- a/init.el +++ b/init.el
@@ -258,6 +258,25 @@
258 (_ (set-selection-coding-system 'utf-8) 258 (_ (set-selection-coding-system 'utf-8)
259 (set-clipboard-coding-system 'utf-8)))) 259 (set-clipboard-coding-system 'utf-8))))
260 260
261;; I don't really use ERC that much, but if/when I start ... I'll be ready.
262(setup erc
263 (:option erc-track-position-in-mode-line 'before-modes
264 erc-hide-list '("329" "332" "333" "353" "MODE"
265 "TOPIC" "JOIN" "PART" "QUIT" "NICK"))
266 ;; https://www.emacswiki.org/emacs/ErcModeline#h5o-1
267 (defface erc-header-line-disconnected
268 '((t (:foreground "black" :background "indianred")))
269 "Face to use when ERC has been disconnected.")
270
271 (defun erc-update-header-line-show-disconnected ()
272 "Use a different face in the header-line when disconnected."
273 (erc-with-server-buffer
274 (cond ((erc-server-process-alive) 'erc-header-line)
275 (t 'erc-header-line-disconnected))))
276
277 (:option erc-header-line-face-method
278 #'erc-update-header-line-show-disconnected))
279
261(setup eshell 280(setup eshell
262 (:option eshell-directory-name (acdw/dir "eshell/" t) 281 (:option eshell-directory-name (acdw/dir "eshell/" t)
263 eshell-aliases-file (acdw/dir "eshell/aliases" t) 282 eshell-aliases-file (acdw/dir "eshell/aliases" t)
@@ -1026,11 +1045,12 @@ if ripgrep is installed, otherwise `consult-grep'."
1026 acdw-modeline/vc-branch 1045 acdw-modeline/vc-branch
1027 simple-modeline-segment-position) 1046 simple-modeline-segment-position)
1028 (simple-modeline-segment-misc-info 1047 (simple-modeline-segment-misc-info
1048 acdw-modeline/erc
1029 acdw-modeline/word-count 1049 acdw-modeline/word-count
1030 acdw-modeline/winum
1031 acdw-modeline/text-scale 1050 acdw-modeline/text-scale
1032 simple-modeline-segment-process 1051 simple-modeline-segment-process
1033 acdw-modeline/god-mode-indicator 1052 acdw-modeline/god-mode-indicator
1053 acdw-modeline/winum
1034 acdw-modeline/minions 1054 acdw-modeline/minions
1035 simple-modeline-segment-major-mode))) 1055 simple-modeline-segment-major-mode)))
1036 1056
diff --git a/lisp/acdw-modeline.el b/lisp/acdw-modeline.el index 4f78816..d5589a9 100644 --- a/lisp/acdw-modeline.el +++ b/lisp/acdw-modeline.el
@@ -30,6 +30,10 @@
30 'font-lock-type-face) 30 'font-lock-type-face)
31 'help-echo (buffer-file-name))) 31 'help-echo (buffer-file-name)))
32 32
33(defun acdw-modeline/erc ()
34 "ERC indicator for the modeline."
35 (format-mode-line erc-modified-channels-object))
36
33(defun acdw-modeline/god-mode-indicator () 37(defun acdw-modeline/god-mode-indicator ()
34 (when (bound-and-true-p god-local-mode) 38 (when (bound-and-true-p god-local-mode)
35 " God")) 39 " God"))