Move the prompt to acdw-circe

2 files changed, 18 insertions, 10 deletions

@@ -1051,7 +1051,8 @@ specific to most general, they are these:
            ((t (:inherit (modus-themes-slant))))))
   
   (:bind "C-c C-p" #'circe-command-PART
-         "C-l" #'lui-track-jump-to-indicator)
+         "C-l" #'lui-track-jump-to-indicator
+         "<C-return>" #'circe-chat@set-prompt)
 
   (:advise circe-command-PART :after #'circe-part@kill-buffer           
            circe-command-QUIT :after #'circe-quit@kill-buffer
@@ -1062,15 +1063,7 @@ specific to most general, they are these:
             #'enable-circe-color-nicks
             ;; #'enable-circe-display-images
             #'enable-circe-new-day-notifier
-            (defun circe-chat@set-prompt ()
-              (lui-set-prompt
-               (concat
-                (propertize
-                 (acdw-irc/margin-format (buffer-name) " " "> ")
-                 'face 'circe-prompt-face
-                 'read-only t
-                 'intangible t
-                 'cursor-intangible t))))))
+            #'circe-chat@set-prompt))
 
   (autoload 'circe-nick-color-reset "circe-color-nicks")
   (add-hook 'modus-themes-after-load-theme-hook
@@ -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 _)