diff options
-rw-r--r-- | init.el | 7 | ||||
-rw-r--r-- | lisp/acdw-erc.el | 4 |
2 files changed, 8 insertions, 3 deletions
diff --git a/init.el b/init.el index 192a040..6a62991 100644 --- a/init.el +++ b/init.el | |||
@@ -394,6 +394,11 @@ | |||
394 | ;; (setup (:straight erc-image) | 394 | ;; (setup (:straight erc-image) |
395 | ;; (:option (append erc-modules) 'image | 395 | ;; (:option (append erc-modules) 'image |
396 | ;; erc-image-inline-rescale 300)) | 396 | ;; erc-image-inline-rescale 300)) |
397 | |||
398 | ;; Rewrite `erc-quit/part-reason-default' | ||
399 | (defun erc-quit/part-reason-default () | ||
400 | "Default quit/part message." | ||
401 | (format "\C-iSee You, Space Cowpokes. . .\C-i")) | ||
397 | 402 | ||
398 | (erc-update-modules))) | 403 | (erc-update-modules))) |
399 | 404 | ||
@@ -842,7 +847,7 @@ like a dumbass." | |||
842 | 847 | ||
843 | ;; Remap C-h to DEL -- <f1> can be the "help" key | 848 | ;; Remap C-h to DEL -- <f1> can be the "help" key |
844 | ;; (define-key key-translation-map [?\C-h] [?\C-?]) | 849 | ;; (define-key key-translation-map [?\C-h] [?\C-?]) |
845 | 850 | ||
846 | (:global "C-c t" acdw/insert-iso-date | 851 | (:global "C-c t" acdw/insert-iso-date |
847 | "C-z" nil)) | 852 | "C-z" nil)) |
848 | 853 | ||
diff --git a/lisp/acdw-erc.el b/lisp/acdw-erc.el index 39af8ea..3e120ad 100644 --- a/lisp/acdw-erc.el +++ b/lisp/acdw-erc.el | |||
@@ -35,8 +35,8 @@ | |||
35 | (defun erc/update-header-line-show-disconnected () | 35 | (defun erc/update-header-line-show-disconnected () |
36 | "Use a different face in the header-line when disconnected." | 36 | "Use a different face in the header-line when disconnected." |
37 | (erc-with-server-buffer | 37 | (erc-with-server-buffer |
38 | (cond ((erc-server-process-alive) 'erc-header-line) | 38 | (cond ((erc-server-process-alive) 'erc-header-line) |
39 | (t 'erc/header-line-disconnected)))) | 39 | (t 'erc/header-line-disconnected)))) |
40 | 40 | ||
41 | 41 | ||
42 | ;;; Convenience functions | 42 | ;;; Convenience functions |