diff --git a/navigation.el b/navigation.el index cf587d1..df39764 100644 --- a/navigation.el +++ b/navigation.el @@ -36,6 +36,20 @@ :config (ultra-scroll-mode 1)) +;; Disable mouse input +(defcustom theurgy-mouse-disabled t + "Disable mouse input." + :type 'boolean + :group 'theurgy) + +(when theurgy-mouse-disabled + (dolist (k '([mouse-1] [down-mouse-1] [drag-mouse-1] [double-mouse-1] [triple-mouse-1] + [mouse-2] [down-mouse-2] [drag-mouse-2] [double-mouse-2] [triple-mouse-2] + [mouse-3] [down-mouse-3] [drag-mouse-3] [double-mouse-3] [triple-mouse-3] + [mouse-4] [down-mouse-4] [drag-mouse-4] [double-mouse-4] [triple-mouse-4] + [mouse-5] [down-mouse-5] [drag-mouse-5] [double-mouse-5] [triple-mouse-5])) + (global-unset-key k))) + ;; Keyboard Scrolling (global-set-key (kbd "C-") '(lambda () (interactive) (scroll-up-line))) (global-set-key (kbd "C-") '(lambda () (interactive) (scroll-down-line)))