about 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 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