From 013424c62ac27cc96317012024bca802dd22c7fe Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 29 Sep 2021 17:19:49 -0500
Subject: Move the prompt to acdw-circe

---
 lisp/acdw-circe.el | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'lisp')

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 @@
   (let ((short-url (0x0-shorten-uri (0x0--choose-server) url)))
     (circe-command-SAY short-url)))
 
+;;; Hooks
+
+(defun circe-chat@set-prompt ()
+  "Set the prompt to the buffer name, shortening it."
+  (interactive) ; set interactive to unfuck the prompt when need be
+  (lui-set-prompt
+   (propertize
+    (concat
+     (acdw-irc/margin-format (buffer-name) "" ">")
+     " ")  
+    'face 'circe-prompt-face
+    'read-only t
+    'intangible t
+    'cursor-intangible t)))
+
 ;;; Advices
 
 (defun circe-part@kill-buffer (&rest _)
-- 
cgit 1.4.1-21-gabe81