feat(mousetrap): Add profile-based architecture and clickable lighter

Implement comprehensive profile-based system for selective mouse event
control with dynamic lighter and interactive toggling.

Features:
- Profile-based architecture (7 profiles: disabled, scroll-only,
  primary-click, scroll+primary, read-only, interactive, full)
- Mode-specific configuration (dashboard, pdf-view, nov)
- Dynamic keymap building based on current major mode
- Clickable modeline lighter (🐭 when off, 🪤 when on)
- Dynamic reconfiguration without Emacs reload
- Mode inheritance support via derived-mode-p

Profiles define which event categories are allowed:
- primary-click: Left mouse button only
- secondary-click: Middle and right buttons
- drags: Drag selections
- multi-clicks: Double and triple clicks
- scroll: Mouse wheel/trackpad scrolling

Default configuration:
- dashboard-mode: primary-click (left-click only)
- pdf-view-mode: full (all events)
- nov-mode: full (all events)
- Other modes: disabled (all events blocked)

Tests:
- 66 comprehensive tests across 5 test files
- Unit tests for profile lookup and keymap building
- Integration tests for mode switching and dynamic config
- Lighter functionality and click interaction tests
- All tests passing

Known issue:
- Dashboard-mode clicks blocked despite primary-click profile
- Documented in todo.org for investigation

🤖 Generated with [Claude Code](https://claude.com/claude-code)

Co-Authored-By: Claude <noreply@anthropic.com>

1 files changed, 98 insertions, 0 deletions

diff --git a/tests/test-mousetrap-mode--get-profile-for-mode.el b/tests/test-mousetrap-mode--get-profile-for-mode.el
new file mode 100644
index 00000000..bfeb0bcd
--- /dev/null
+++ b/tests/test-mousetrap-mode--get-profile-for-mode.el
@@ -0,0 +1,98 @@
+;;; test-mousetrap-mode--get-profile-for-mode.el --- Tests for profile lookup -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;; Unit tests for mouse-trap--get-profile-for-mode function.
+;; Tests profile lookup logic including exact matches, inheritance,
+;; and fallback to default profile.
+
+;;; Code:
+
+(require 'ert)
+(require 'mousetrap-mode)
+
+;;; Normal Cases
+
+(ert-deftest test-mousetrap-mode--get-profile-for-mode-normal-exact-match-returns-profile ()
+  "Test exact mode match returns mapped profile."
+  (let ((major-mode 'dashboard-mode))
+    (should (eq 'primary-click (mouse-trap--get-profile-for-mode)))))
+
+(ert-deftest test-mousetrap-mode--get-profile-for-mode-normal-inherited-mode-returns-parent-profile ()
+  "Test that org-mode inherits disabled profile from text-mode."
+  (with-temp-buffer
+    (org-mode)
+    (should (eq 'disabled (mouse-trap--get-profile-for-mode)))))
+
+(ert-deftest test-mousetrap-mode--get-profile-for-mode-normal-unmapped-mode-returns-default ()
+  "Test unmapped mode returns default profile."
+  (with-temp-buffer
+    (emacs-lisp-mode)
+    (should (eq 'disabled (mouse-trap--get-profile-for-mode)))))
+
+(ert-deftest test-mousetrap-mode--get-profile-for-mode-normal-special-mode-derivative-returns-disabled ()
+  "Test that help-mode inherits disabled from special-mode."
+  (with-temp-buffer
+    (help-mode)
+    (should (eq 'disabled (mouse-trap--get-profile-for-mode)))))
+
+(ert-deftest test-mousetrap-mode--get-profile-for-mode-normal-pdf-view-mode-returns-full ()
+  "Test pdf-view-mode returns full profile."
+  (let ((major-mode 'pdf-view-mode))
+    (should (eq 'full (mouse-trap--get-profile-for-mode)))))
+
+;;; Boundary Cases
+
+(ert-deftest test-mousetrap-mode--get-profile-for-mode-boundary-empty-mode-profiles-returns-default ()
+  "Test empty mode profiles list returns default."
+  (let ((mouse-trap-mode-profiles nil))
+    (with-temp-buffer
+      (emacs-lisp-mode)
+      (should (eq 'disabled (mouse-trap--get-profile-for-mode))))))
+
+(ert-deftest test-mousetrap-mode--get-profile-for-mode-boundary-exact-match-priority-over-inheritance ()
+  "Test exact mode match takes priority over inherited match."
+  (let ((major-mode 'text-mode))
+    ;; text-mode is explicitly mapped to disabled
+    (should (eq 'disabled (mouse-trap--get-profile-for-mode)))))
+
+(ert-deftest test-mousetrap-mode--get-profile-for-mode-boundary-first-parent-match-wins ()
+  "Test first matching parent profile wins with multiple inheritance.
+When a mode could match multiple parent profiles, the first one
+in mouse-trap-mode-profiles should win."
+  (let ((mouse-trap-mode-profiles
+         '((special-mode . disabled)
+           (text-mode . scroll-only)))
+        (major-mode 'derived-test-mode))
+    ;; Simulate a mode that derives from special-mode
+    (put 'derived-test-mode 'derived-mode-parent 'special-mode)
+    (with-temp-buffer
+      (setq major-mode 'derived-test-mode)
+      (should (eq 'disabled (mouse-trap--get-profile-for-mode))))))
+
+(ert-deftest test-mousetrap-mode--get-profile-for-mode-boundary-deeply-nested-inheritance ()
+  "Test profile lookup works through deep inheritance chain."
+  ;; Create a deep inheritance chain: level3 -> level2 -> level1 -> text-mode
+  (let ((mouse-trap-mode-profiles
+         '((text-mode . disabled)))
+        (major-mode 'level3-mode))
+    (put 'level1-mode 'derived-mode-parent 'text-mode)
+    (put 'level2-mode 'derived-mode-parent 'level1-mode)
+    (put 'level3-mode 'derived-mode-parent 'level2-mode)
+    (with-temp-buffer
+      (setq major-mode 'level3-mode)
+      (should (eq 'disabled (mouse-trap--get-profile-for-mode))))))
+
+;;; Error Cases
+
+(ert-deftest test-mousetrap-mode--get-profile-for-mode-error-nil-major-mode-returns-default ()
+  "Test nil major-mode returns default profile gracefully."
+  (let ((major-mode nil))
+    (should (eq 'disabled (mouse-trap--get-profile-for-mode)))))
+
+(ert-deftest test-mousetrap-mode--get-profile-for-mode-error-invalid-symbol-returns-default ()
+  "Test invalid major-mode symbol returns default profile."
+  (let ((major-mode 'not-a-real-mode-symbol))
+    (should (eq 'disabled (mouse-trap--get-profile-for-mode)))))
+
+(provide 'test-mousetrap-mode--get-profile-for-mode)
+;;; test-mousetrap-mode--get-profile-for-mode.el ends here