diff options
Diffstat (limited to 'init.el')
-rw-r--r-- | init.el | 43 |
1 files changed, 28 insertions, 15 deletions
diff --git a/init.el b/init.el index b8002a3..2c18993 100644 --- a/init.el +++ b/init.el | |||
@@ -260,22 +260,35 @@ | |||
260 | 260 | ||
261 | ;; I don't really use ERC that much, but if/when I start ... I'll be ready. | 261 | ;; I don't really use ERC that much, but if/when I start ... I'll be ready. |
262 | (setup erc | 262 | (setup erc |
263 | (:option erc-track-position-in-mode-line 'before-modes | 263 | (:require acdw-erc) |
264 | erc-hide-list '("329" "332" "333" "353" "MODE" | 264 | (:also-load erc-autoaway |
265 | "TOPIC" "JOIN" "PART" "QUIT" "NICK")) | 265 | erc-track) |
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 | 266 | ||
271 | (defun erc-update-header-line-show-disconnected () | 267 | (:option erc-auto-discard-away t |
272 | "Use a different face in the header-line when disconnected." | 268 | erc-autoaway-idle-seconds 600 |
273 | (erc-with-server-buffer | 269 | erc-autojoin-channels-alist '(("libera.chat" |
274 | (cond ((erc-server-process-alive) 'erc-header-line) | 270 | "#emacs" "##webpals") |
275 | (t 'erc-header-line-disconnected)))) | 271 | ("tilde.chat" |
276 | 272 | "#meta" "#team" "#gemini")) | |
277 | (:option erc-header-line-face-method | 273 | erc-header-line-face-method |
278 | #'erc-update-header-line-show-disconnected)) | 274 | #'erc/update-header-line-show-disconnected |
275 | erc-hide-list '("JOIN" "NICK" "PART" "QUIT" "MODE" | ||
276 | "324" "329" "332" "333" "353" "477") | ||
277 | erc-interpret-mirc-color t | ||
278 | erc-kill-buffer-on-part t | ||
279 | erc-kill-queries-on-quit t | ||
280 | erc-kill-server-buffer-on-quit t | ||
281 | erc-nick "acdw" | ||
282 | erc-prompt-for-password nil ; use ~/.authinfo | ||
283 | erc/servers '("irc.libera.chat" | ||
284 | "irc.tilde.chat") | ||
285 | erc-server-coding-system '(utf-8 . utf-8) | ||
286 | erc-track-exclude-types erc-hide-list | ||
287 | erc-track-position-in-mode-line 'before-modes) | ||
288 | |||
289 | (:hook erc-autoaway-mode | ||
290 | erc-track-mode | ||
291 | erc-truncate-mode)) | ||
279 | 292 | ||
280 | (setup eshell | 293 | (setup eshell |
281 | (:option eshell-directory-name (acdw/dir "eshell/" t) | 294 | (:option eshell-directory-name (acdw/dir "eshell/" t) |