diff options
| -rw-r--r-- | modules/mousetrap-mode.el | 27 |
1 files changed, 20 insertions, 7 deletions
diff --git a/modules/mousetrap-mode.el b/modules/mousetrap-mode.el index 0d5210d9..fa9ee6dd 100644 --- a/modules/mousetrap-mode.el +++ b/modules/mousetrap-mode.el @@ -1,12 +1,12 @@ ;;; mousetrap-mode.el --- -*- coding: utf-8; lexical-binding: t; -*- ;; ;;; Commentary: -;; Mouse Trap Mode is a minor mode for Emacs that globally disables most mouse and +;; Mouse Trap Mode is a minor mode for Emacs that disables most mouse and ;; trackpad events to prevent accidental text modifications. Hitting the trackpad and ;; finding my text is being inserted in an unintended place is quite annoying, ;; especially when you're overcaffeinated. ;; -;; The mode unbinds almost every mouse event, including clicks, drags, and wheel +;; The mode unbinds almost every mouse event, including clicks, drags, and wheel ;; movements, with various modifiers like Control, Meta, and Shift. ;; ;; Inspired by this blog post from Malabarba @@ -38,16 +38,29 @@ Disabling mouse prevents accidental mouse moves modifying text.") (define-minor-mode mouse-trap-mode - "Globally disable most mouse and trackpad events. + "Buffer-locally 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) + :keymap mouse-trap-mode-map + :group 'convenience) + +(defvar mouse-trap-excluded-modes + '(nov-mode pdf-view-mode dashboard-mode image-mode eww-mode Info-mode dired-mode) + "Major modes where `mouse-trap-mode' should not be enabled.") + +(defun mouse-trap-maybe-enable () + "Enable `mouse-trap-mode' unless in an excluded mode." + (unless (apply #'derived-mode-p mouse-trap-excluded-modes) + (mouse-trap-mode 1))) + +;; Enable in text and prog modes +(add-hook 'text-mode-hook #'mouse-trap-maybe-enable) +(add-hook 'prog-mode-hook #'mouse-trap-maybe-enable) + +(keymap-global-set "C-c M" #'mouse-trap-mode) (provide 'mousetrap-mode) ;;; mousetrap-mode.el ends here. |