diff options
| author | Case Duckworth | 2021-09-29 17:19:49 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-09-29 17:19:49 -0500 |
| commit | 013424c62ac27cc96317012024bca802dd22c7fe (patch) | |
| tree | 7ba458538b47b8cfd1bf8b1b7cc6db2f00acec58 /lisp | |
| parent | Correct with-eval-after-loads (diff) | |
| download | emacs-013424c62ac27cc96317012024bca802dd22c7fe.tar.gz emacs-013424c62ac27cc96317012024bca802dd22c7fe.zip | |
Move the prompt to acdw-circe
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/acdw-circe.el | 15 |
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 _) |