move all disable mouse code to test and begin mousetrap mode

2 files changed, 59 insertions, 41 deletions

diff --git a/modules/system-defaults.el b/modules/system-defaults.el
index 7aa07eee..2e7db0bb 100644
--- a/modules/system-defaults.el
+++ b/modules/system-defaults.el
@@ -1,4 +1,4 @@
-;;; system-defaults --- Emacs Non-UI Preferences -*- lexical-binding: t; -*-
+;;; system-defaults --- Emacs Non-UI Preferences -*- lexical-binding: t; coding: utf-8-unix; -*-
 ;; author: Craig Jennings <c@cjennings.net>
 
 ;;; Commentary:
@@ -139,20 +139,6 @@ Return non-nil to indicate the warning was handled."
 (global-unset-key (kbd "<pinch>"))
 (global-set-key [remap mouse-wheel-text-scale] 'cj/disabled)
 
-;; disabling mouse prevents accidental mouse moves modifying text
-(use-package inhibit-mouse
-  :demand t ;; run immediately
-  :hook (after-init . inhibit-mouse-mode)
-  :custom
-  (inhibit-mouse-adjust-mouse-highlight t)
-  (inhibit-mouse-adjust-show-help-function t)
-  :bind
-  ("C-c M-m" . inhibit-mouse-mode)  ;; toggle with C-c M-m
-  :config
-  (if (daemonp)
-	  (add-hook 'server-after-make-frame-hook #'inhibit-mouse-mode)
-	(inhibit-mouse-mode 1)))
-
 ;; ------------------------------- Be Quiet(er)! -------------------------------
 ;; reduces "helpful" instructions that distract Emacs power users.
 
diff --git a/modules/test-code.el b/modules/test-code.el
index cbccd105..0dc9cbd7 100644
--- a/modules/test-code.el
+++ b/modules/test-code.el
@@ -20,10 +20,10 @@
   "Pop to a buffer with a mode among MODES, or the current one if not given."
   (interactive)
   (let* ((modes (or modes (list major-mode)))
-		 (pred (lambda (b)
-				 (let ((b (get-buffer (if (consp b) (car b) b))))
-				   (member (buffer-local-value 'major-mode b) modes)))))
-	(pop-to-buffer (read-buffer "Buffer: " nil t pred))))
+         (pred (lambda (b)
+                 (let ((b (get-buffer (if (consp b) (car b) b))))
+                   (member (buffer-local-value 'major-mode b) modes)))))
+    (pop-to-buffer (read-buffer "Buffer: " nil t pred))))
 (global-set-key (kbd "C-x B") 'cj/buffer-same-mode)
 
 ;; --------------------------------- Org Noter ---------------------------------
@@ -75,28 +75,28 @@
 (defun cj/move-org-branch-to-roam ()
   (interactive)
   (when (eq (org-element-type (org-element-at-point)) 'headline)
-	(let* ((headline-components (org-heading-components))
-		   (title (nth 4 headline-components)))
-	  (setq cj/point (point))
-	  (org-cut-subtree)
-	  ;; Switch to org-roam buffer, fill in new node's title.
-	  (org-roam-node-insert
-	   :immediate-finish t
-	   :no-edit t
-	   ;; Pass the current headline title as the default value.
-	   :region (cons (point)
-					 (save-excursion
-					   (insert title)
-					   (point))))
-	  (newline)
-	  ;; Paste the 'cut' subtree and save buffer.
-	  (org-yank)
-	  (save-buffer)
-	  ;; Go back to the initial buffer and position.
-	  (switch-to-buffer (other-buffer))
-	  (goto-char cj/point)
-	  ;; Kill the org-roam link leftover.
-	  (kill-whole-line))))
+    (let* ((headline-components (org-heading-components))
+           (title (nth 4 headline-components)))
+      (setq cj/point (point))
+      (org-cut-subtree)
+      ;; Switch to org-roam buffer, fill in new node's title.
+      (org-roam-node-insert
+       :immediate-finish t
+       :no-edit t
+       ;; Pass the current headline title as the default value.
+       :region (cons (point)
+                     (save-excursion
+                       (insert title)
+                       (point))))
+      (newline)
+      ;; Paste the 'cut' subtree and save buffer.
+      (org-yank)
+      (save-buffer)
+      ;; Go back to the initial buffer and position.
+      (switch-to-buffer (other-buffer))
+      (goto-char cj/point)
+      ;; Kill the org-roam link leftover.
+      (kill-whole-line))))
 
 ;; ----------------------------------- Mpdel -----------------------------------
 
@@ -118,6 +118,38 @@
 ;;   (google-this-mode 1)
 ;;   (setq google-this-browse-url-function 'eww-browse-url))
 
+;; ------------------------------ Mouse Trap Mode ------------------------------
+
+(defvar mouse-trap-mode-map
+  (let* ((prefixes '("" "C-" "M-" "S-" "C-M-" "C-S-" "M-S-" "C-M-S-")) ; modifiers
+         (buttons  (number-sequence 1 5))                             ; mouse-1..5
+         (types    '("mouse" "down-mouse" "drag-mouse"
+                     "double-mouse" "triple-mouse"))
+         (wheel    '("wheel-up" "wheel-down" "wheel-left" "wheel-right"))
+         (map (make-sparse-keymap)))
+    ;; clicks, drags, double, triple
+    (dolist (type types)
+      (dolist (pref prefixes)
+        (dolist (n buttons)
+          (define-key map (kbd (format "<%s%s-%d>" pref type n)) #'ignore))))
+    ;; wheel
+    (dolist (evt wheel)
+      (dolist (pref prefixes)
+        (define-key map (kbd (format "<%s%s>" pref evt)) #'ignore)))
+    map)
+  "Keymap for `mouse-trap-mode'. Unbinds almost every mouse event.
+Disabling mouse prevents accidental mouse moves modifying text.")
+
+(define-minor-mode mouse-trap-mode
+  "Globally disable most mouse and trackpad events.
+When active, <mouse-*>, <down-mouse-*>, <drag-mouse-*>,
+<double-mouse-*>, <triple-mouse-*>, and wheel events are bound to `ignore',
+with or without C-, M-, S- modifiers."
+  :global t
+  :lighter " 🐭"
+  :keymap mouse-trap-mode-map)
+(global-set-key (kbd "C-c M") #'mouse-trap-mode)
+(mouse-trap-mode 1)
 
 (provide 'test-code)
 ;;; test-code.el ends here.