BirDt/theurgy
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

disable mouse navigation

Browse source
This commit is contained in:
BirDt_ 2025-08-20 18:12:00 +08:00 • committed by BirDt
parent 8ad42f6283
commit 50bde24534
1 changed files with 14 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

14
navigation.el
View file

@ -36,6 +36,20 @@
:config :config
(ultra-scroll-mode 1)) (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 ;; Keyboard Scrolling
(global-set-key (kbd "C-<down>") '(lambda () (interactive) (scroll-up-line))) (global-set-key (kbd "C-<down>") '(lambda () (interactive) (scroll-up-line)))
(global-set-key (kbd "C-<up>") '(lambda () (interactive) (scroll-down-line))) (global-set-key (kbd "C-<up>") '(lambda () (interactive) (scroll-down-line)))