diff options
author | Case Duckworth | 2021-08-12 08:42:12 -0500 |
---|---|---|
committer | Case Duckworth | 2021-08-12 08:42:12 -0500 |
commit | 1d869e5329b31ee91adab2cc9c70e8984ac0a3d0 (patch) | |
tree | 4856cce2ed28927f8dc9836195b7ba462fcb4f6c | |
parent | Enhance `customize' buffer for browsing (diff) | |
download | emacs-1d869e5329b31ee91adab2cc9c70e8984ac0a3d0.tar.gz emacs-1d869e5329b31ee91adab2cc9c70e8984ac0a3d0.zip |
Customize quit message
-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 92a74b0..ee08c4d 100644 --- a/init.el +++ b/init.el | |||
@@ -391,6 +391,11 @@ | |||
391 | ;; (setup (:straight erc-image) | 391 | ;; (setup (:straight erc-image) |
392 | ;; (:option (append erc-modules) 'image | 392 | ;; (:option (append erc-modules) 'image |
393 | ;; erc-image-inline-rescale 300)) | 393 | ;; erc-image-inline-rescale 300)) |
394 | |||
395 | ;; Rewrite `erc-quit/part-reason-default' | ||
396 | (defun erc-quit/part-reason-default () | ||
397 | "Default quit/part message." | ||
398 | (format "\C-iSee You, Space Cowpokes. . .\C-i")) | ||
394 | 399 | ||
395 | (erc-update-modules))) | 400 | (erc-update-modules))) |
396 | 401 | ||
@@ -828,7 +833,7 @@ like a dumbass." | |||
828 | 833 | ||
829 | ;; Remap C-h to DEL -- <f1> can be the "help" key | 834 | ;; Remap C-h to DEL -- <f1> can be the "help" key |
830 | (define-key key-translation-map [?\C-h] [?\C-?]) | 835 | (define-key key-translation-map [?\C-h] [?\C-?]) |
831 | 836 | ||
832 | (:global "C-c t" acdw/insert-iso-date | 837 | (:global "C-c t" acdw/insert-iso-date |
833 | "C-z" nil)) | 838 | "C-z" nil)) |
834 | 839 | ||
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 |