about summary refs log tree commit diff stats
path: root/lisp
diff options
context:
space:
mode:
authorCase Duckworth2021-09-29 17:19:49 -0500
committerCase Duckworth2021-09-29 17:19:49 -0500
commit013424c62ac27cc96317012024bca802dd22c7fe (patch)
tree7ba458538b47b8cfd1bf8b1b7cc6db2f00acec58 /lisp
parentCorrect with-eval-after-loads (diff)
downloademacs-013424c62ac27cc96317012024bca802dd22c7fe.tar.gz
emacs-013424c62ac27cc96317012024bca802dd22c7fe.zip
Move the prompt to acdw-circe
Diffstat (limited to 'lisp')
-rw-r--r--lisp/acdw-circe.el15
1 files changed, 15 insertions, 0 deletions
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 _)