Add meow-keypad-message-prefix

meow-edit · Dec 11, 2024 · 3f8f5f3 · 3f8f5f3
1 parent 73f2dd2
commit 3f8f5f3
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 4 deletions.
diff --git a/meow-keypad.el b/meow-keypad.el
@@ -331,8 +331,9 @@ Argument CONTROL, non-nils stands for current input is prefixed with Control."
               (max-mini-window-height 1.0))
           (save-window-excursion
             (with-temp-message
-                (format "%s\nKEYPAD: %s%s"
+                (format "%s\n%s%s%s"
                         msg
+                        meow-keypad-message-prefix
                         (let ((pre (meow--keypad-format-prefix)))
                           (if (string-blank-p pre)
                               ""
@@ -374,8 +375,9 @@ Returning DEF will result in a generated title."
 (defun meow--keypad-show-message ()
   "Show message for current keypad input."
   (let ((message-log-max))
-    (message "KEYPAD%s: %s%s"
-             (if meow--keypad-help " describe key" "")
+    (message "%s%s %s%s"
+             meow-keypad-message-prefix
+             (if meow--keypad-help "(describe key)" "")
              (let ((pre (meow--keypad-format-prefix)))
                (if (string-blank-p pre)
                    ""

diff --git a/meow-shims.el b/meow-shims.el
@@ -399,7 +399,7 @@ Argument ENABLE non-nil means turn on."
        which-key-use-C-h-commands nil
        meow-keypad-describe-keymap-function
 	(lambda (keymap)
-	  (which-key--create-buffer-and-show nil keymap nil (concat "Meow: " (meow--keypad-format-keys))))
+	  (which-key--create-buffer-and-show nil keymap nil (concat meow-keypad-message-prefix (meow--keypad-format-keys))))
         meow-keypad-clear-describe-keymap-function 'which-key--hide-popup)
 
     (setq meow-keypad-describe-keymap-function 'meow-describe-keymap

diff --git a/meow-var.el b/meow-var.el
@@ -708,6 +708,10 @@ If `meow-replace-pop' is run and the previous command is not
 `meow-replace-pop' signals an error."
   :type '(alist :key-type function :value-type natnum))
 
+(defcustom meow-keypad-message-prefix "Keypad: "
+  "The prefix string for keypad messages."
+  :type 'string)
+
 (defvar meow--replace-pop-index nil
   "The index of the previous replacement in the `kill-ring'.
 See also the command `meow-replace-pop'.")