summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el13
-rw-r--r--lisp/acdw-circe.el15
2 files changed, 18 insertions, 10 deletions
diff --git a/init.el b/init.el index f1419c1..20fb9f9 100644 --- a/init.el +++ b/init.el
@@ -1051,7 +1051,8 @@ specific to most general, they are these:
1051 ((t (:inherit (modus-themes-slant)))))) 1051 ((t (:inherit (modus-themes-slant))))))
1052 1052
1053 (:bind "C-c C-p" #'circe-command-PART 1053 (:bind "C-c C-p" #'circe-command-PART
1054 "C-l" #'lui-track-jump-to-indicator) 1054 "C-l" #'lui-track-jump-to-indicator
1055 "<C-return>" #'circe-chat@set-prompt)
1055 1056
1056 (:advise circe-command-PART :after #'circe-part@kill-buffer 1057 (:advise circe-command-PART :after #'circe-part@kill-buffer
1057 circe-command-QUIT :after #'circe-quit@kill-buffer 1058 circe-command-QUIT :after #'circe-quit@kill-buffer
@@ -1062,15 +1063,7 @@ specific to most general, they are these:
1062 #'enable-circe-color-nicks 1063 #'enable-circe-color-nicks
1063 ;; #'enable-circe-display-images 1064 ;; #'enable-circe-display-images
1064 #'enable-circe-new-day-notifier 1065 #'enable-circe-new-day-notifier
1065 (defun circe-chat@set-prompt () 1066 #'circe-chat@set-prompt))
1066 (lui-set-prompt
1067 (concat
1068 (propertize
1069 (acdw-irc/margin-format (buffer-name) " " "> ")
1070 'face 'circe-prompt-face
1071 'read-only t
1072 'intangible t
1073 'cursor-intangible t))))))
1074 1067
1075 (autoload 'circe-nick-color-reset "circe-color-nicks") 1068 (autoload 'circe-nick-color-reset "circe-color-nicks")
1076 (add-hook 'modus-themes-after-load-theme-hook 1069 (add-hook 'modus-themes-after-load-theme-hook
diff --git a/lisp/acdw-circe.el b/lisp/acdw-circe.el index 69b10be..e85587b 100644 --- a/lisp/acdw-circe.el +++ b/lisp/acdw-circe.el
@@ -17,6 +17,21 @@
17 (let ((short-url (0x0-shorten-uri (0x0--choose-server) url))) 17 (let ((short-url (0x0-shorten-uri (0x0--choose-server) url)))
18 (circe-command-SAY short-url))) 18 (circe-command-SAY short-url)))
19 19
20;;; Hooks
21
22(defun circe-chat@set-prompt ()
23 "Set the prompt to the buffer name, shortening it."
24 (interactive) ; set interactive to unfuck the prompt when need be
25 (lui-set-prompt
26 (propertize
27 (concat
28 (acdw-irc/margin-format (buffer-name) "" ">")
29 " ")
30 'face 'circe-prompt-face
31 'read-only t
32 'intangible t
33 'cursor-intangible t)))
34
20;;; Advices 35;;; Advices
21 36
22(defun circe-part@kill-buffer (&rest _) 37(defun circe-part@kill-buffer (&rest _)