From 97853f694b8610f7515aa60cb268cbbd116b05a2 Mon Sep 17 00:00:00 2001
From: Thanos Apollo <public@thanosapollo.org>
Date: Sun, 3 May 2026 03:57:27 +0300
Subject: prepare-buffer: extract settings into keymap-popup-buffer-parameters

---
 keymap-popup.el | 23 ++++++++++++++++-------
 1 file changed, 16 insertions(+), 7 deletions(-)

diff --git a/keymap-popup.el b/keymap-popup.el
index 852b61f..1cf9fe3 100644
--- a/keymap-popup.el
+++ b/keymap-popup.el
@@ -85,6 +85,20 @@ visibility) when creating the child frame."
   :type '(alist :key-type symbol :value-type sexp)
   :group 'keymap-popup)
 
+(defcustom keymap-popup-buffer-parameters
+  '((buffer-read-only . t)
+    (cursor-type . nil)
+    (mode-line-format . nil)
+    (header-line-format . nil)
+    (tab-line-format . nil)
+    (left-margin-width . 1)
+    (right-margin-width . 1))
+  "Buffer-local parameters applied to the popup buffer.
+Each entry is (VARIABLE . VALUE).  Users can remove entries to
+keep defaults or change values to customize the popup appearance."
+  :type '(alist :key-type symbol :value-type sexp)
+  :group 'keymap-popup)
+
 (defcustom keymap-popup-default-popup-key "h"
   "Default key to open the popup in keymaps defined with `keymap-popup-define'.
 Applied automatically by `keymap-popup-define' when :popup-key is
@@ -812,13 +826,8 @@ Frame parameters are taken from `keymap-popup-child-frame-parameters'."
   "Create and configure the popup buffer."
   (let ((buf (get-buffer-create "*keymap-popup*")))
     (with-current-buffer buf
-      (setq-local buffer-read-only t
-                  cursor-type nil
-                  mode-line-format nil
-                  header-line-format nil
-                  tab-line-format nil
-                  left-margin-width 1
-                  right-margin-width 1))
+      (pcase-dolist (`(,var . ,val) keymap-popup-buffer-parameters)
+        (set (make-local-variable var) val)))
     buf))
 
 (defun keymap-popup--teardown (buf)
-- 
cgit v1.0