From 8ff5f09f715a7acbfed495196563408ec4bab4c1 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Sat, 2 Jan 2021 11:09:43 -0600 Subject: Loop through mouse margin events programmatically --- config.org | 48 ++++++++++++------------------------------------ 1 file changed, 12 insertions(+), 36 deletions(-) diff --git a/config.org b/config.org index 2d57c3e..55779d9 100644 --- a/config.org +++ b/config.org @@ -953,46 +953,22 @@ For right now, I’m /just/ using Anzu – I don’t like parts of =isearch= but This has to be done /before/ loading the package. It's included in =visual-fill-column=, too, but for some reason isn't loaded there. #+BEGIN_SRC emacs-lisp - (global-set-key [right-margin mouse-1] (global-key-binding [mouse-1])) ; #'mouse-set-point - (global-set-key [right-margin mouse-2] (global-key-binding [mouse-2])) ; #'mouse-yank-primary - (global-set-key [right-margin mouse-3] (global-key-binding [mouse-3])) ; #'mouse-save-then-kill - (global-set-key [right-margin drag-mouse-1] #'ignore) - (global-set-key [right-margin drag-mouse-2] #'ignore) - (global-set-key [right-margin drag-mouse-3] #'ignore) - (global-set-key [right-margin double-mouse-1] #'ignore) - (global-set-key [right-margin double-mouse-2] #'ignore) - (global-set-key [right-margin double-mouse-3] #'ignore) - (global-set-key [right-margin triple-mouse-1] #'ignore) - (global-set-key [right-margin triple-mouse-2] #'ignore) - (global-set-key [right-margin triple-mouse-3] #'ignore) - (global-set-key [left-margin mouse-1] (global-key-binding [mouse-1])) ; #'mouse-set-point - (global-set-key [left-margin mouse-2] (global-key-binding [mouse-2])) ; #'mouse-yank-primary - (global-set-key [left-margin mouse-3] (global-key-binding [mouse-3])) ; #'mouse-save-then-kill - (global-set-key [left-margin drag-mouse-1] #'ignore) - (global-set-key [left-margin drag-mouse-2] #'ignore) - (global-set-key [left-margin drag-mouse-3] #'ignore) - (global-set-key [left-margin double-mouse-1] #'ignore) - (global-set-key [left-margin double-mouse-2] #'ignore) - (global-set-key [left-margin double-mouse-3] #'ignore) - (global-set-key [left-margin triple-mouse-1] #'ignore) - (global-set-key [left-margin triple-mouse-2] #'ignore) - (global-set-key [left-margin triple-mouse-3] #'ignore) + (dolist (margin '(right-margin left-margin)) + (dolist (button '(mouse-1 mouse-2 mouse-3)) + (global-set-key (vector margin button) + (global-key-binding (vector button))))) (mouse-wheel-mode +1) (when (bound-and-true-p mouse-wheel-mode) - (global-set-key [right-margin mouse-wheel-down-event] #'mwheel-scroll) - (global-set-key [right-margin mouse-wheel-up-event] #'mwheel-scroll) - (global-set-key [right-margin wheel-down] #'mwheel-scroll) - (global-set-key [right-margin wheel-up] #'mwheel-scroll) - (global-set-key [left-margin mouse-wheel-down-event] #'mwheel-scroll) - (global-set-key [left-margin mouse-wheel-up-event] #'mwheel-scroll) - (global-set-key [left-margin wheel-down] #'mwheel-scroll) - (global-set-key [left-margin wheel-up] #'mwheel-scroll) - (global-set-key [right-margin mouse-4] #'mwheel-scroll) - (global-set-key [right-margin mouse-5] #'mwheel-scroll) - (global-set-key [left-margin mouse-4] #'mwheel-scroll) - (global-set-key [left-margin mouse-5] #'mwheel-scroll)) + (dolist (margin '(right-margin left-margin)) + (dolist (event '(mouse-wheel-down-event + mouse-wheel-up-event + wheel-down + wheel-up + mouse-4 + mouse-5)) + (global-set-key (vector margin event) #'mwheel-scroll)))) #+END_SRC *** Load the package -- cgit 1.4.1-21-gabe81