about summary refs log tree commit diff stats
path: root/lisp
diff options
context:
space:
mode:
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 _)