summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el7
-rw-r--r--lisp/acdw-erc.el4
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