perf(mousetrap): cache built keymaps per profile

mouse-trap--build-keymap ran on every major-mode hook and rebuilt the whole keymap (~8 prefixes by ~30 events) from scratch each time, so rapid mode-switching paid that cost over and over. I moved the build into mouse-trap--build-keymap-1 and cache its result in mouse-trap--keymap-cache, keyed on the profile name plus its allowed-categories list. The same profile reuses the cached keymap, and editing a profile's categories changes the key so it rebuilds.

Sharing one keymap object across buffers is safe here: the map only binds disallowed events to ignore and is never mutated after it's built. Added mouse-trap--clear-keymap-cache to force a fresh build after editing profiles by hand.

1 files changed, 32 insertions, 2 deletions

diff --git a/modules/mousetrap-mode.el b/modules/mousetrap-mode.el
index 5da66780..4444716c 100644
--- a/modules/mousetrap-mode.el
+++ b/modules/mousetrap-mode.el
@@ -92,6 +92,27 @@ When checking, the mode hierarchy is respected via `derived-mode-p'.")
 
 ;;; Keymap Builder
 
+(defvar mouse-trap--keymap-cache nil
+  "Cache of built keymaps, keyed by profile.
+
+An alist mapping `(profile-name . allowed-categories)' keys to the
+keymap object `mouse-trap--build-keymap' produced for that profile.
+Repeated major-mode switches reuse a cached keymap instead of
+rebuilding it.  The key includes the allowed-categories list so that
+editing a profile's categories at runtime changes the key and forces a
+rebuild.  Sharing one keymap object across buffers with the same
+profile is safe: the map is a read-only \"bind disallowed events to
+`ignore'\" map that is never mutated after it is built.")
+
+(defun mouse-trap--clear-keymap-cache ()
+  "Clear the cached profile keymaps.
+
+Call this after editing `mouse-trap-profiles' or
+`mouse-trap--event-categories' if you want the next keymap build to
+start fresh rather than reuse a previously cached map."
+  (interactive)
+  (setq mouse-trap--keymap-cache nil))
+
 (defun mouse-trap--get-profile-for-mode ()
   "Return the profile for the current major mode.
 
@@ -116,8 +137,17 @@ NOT allowed by the current profile.  This function is called each time
 the mode is toggled, allowing dynamic behavior without reloading config."
   (let* ((profile-name (mouse-trap--get-profile-for-mode))
          (allowed-categories (alist-get profile-name mouse-trap-profiles))
-         (prefixes '("" "C-" "M-" "S-" "C-M-" "C-S-" "M-S-" "C-M-S-"))
-         (map (make-sparse-keymap)))
+         (cache-key (cons profile-name allowed-categories))
+         (cached (cdr (assoc cache-key mouse-trap--keymap-cache))))
+    (or cached
+        (let ((map (mouse-trap--build-keymap-1 allowed-categories)))
+          (push (cons cache-key map) mouse-trap--keymap-cache)
+          map))))
+
+(defun mouse-trap--build-keymap-1 (allowed-categories)
+  "Build a fresh keymap binding events not in ALLOWED-CATEGORIES to `ignore'."
+  (let ((prefixes '("" "C-" "M-" "S-" "C-M-" "C-S-" "M-S-" "C-M-S-"))
+        (map (make-sparse-keymap)))
 
     ;; For each event category, disable it if not in allowed list
     (dolist (category-entry mouse-trap--event-categories)