summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-01-02 11:09:43 -0600
committerCase Duckworth2021-01-02 11:09:43 -0600
commit8ff5f09f715a7acbfed495196563408ec4bab4c1 (patch)
tree7b68ffcdd558e8ec266fb1d0c954a68ce7ef17d1
parentChange startup visibility (diff)
downloademacs-8ff5f09f715a7acbfed495196563408ec4bab4c1.tar.gz
emacs-8ff5f09f715a7acbfed495196563408ec4bab4c1.zip
Loop through mouse margin events programmatically
-rw-r--r--config.org48
1 files 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
953This has to be done /before/ loading the package. It's included in =visual-fill-column=, too, but for some reason isn't loaded there. 953This has to be done /before/ loading the package. It's included in =visual-fill-column=, too, but for some reason isn't loaded there.
954 954
955#+BEGIN_SRC emacs-lisp 955#+BEGIN_SRC emacs-lisp
956 (global-set-key [right-margin mouse-1] (global-key-binding [mouse-1])) ; #'mouse-set-point 956 (dolist (margin '(right-margin left-margin))
957 (global-set-key [right-margin mouse-2] (global-key-binding [mouse-2])) ; #'mouse-yank-primary 957 (dolist (button '(mouse-1 mouse-2 mouse-3))
958 (global-set-key [right-margin mouse-3] (global-key-binding [mouse-3])) ; #'mouse-save-then-kill 958 (global-set-key (vector margin button)
959 (global-set-key [right-margin drag-mouse-1] #'ignore) 959 (global-key-binding (vector button)))))
960 (global-set-key [right-margin drag-mouse-2] #'ignore)
961 (global-set-key [right-margin drag-mouse-3] #'ignore)
962 (global-set-key [right-margin double-mouse-1] #'ignore)
963 (global-set-key [right-margin double-mouse-2] #'ignore)
964 (global-set-key [right-margin double-mouse-3] #'ignore)
965 (global-set-key [right-margin triple-mouse-1] #'ignore)
966 (global-set-key [right-margin triple-mouse-2] #'ignore)
967 (global-set-key [right-margin triple-mouse-3] #'ignore)
968 (global-set-key [left-margin mouse-1] (global-key-binding [mouse-1])) ; #'mouse-set-point
969 (global-set-key [left-margin mouse-2] (global-key-binding [mouse-2])) ; #'mouse-yank-primary
970 (global-set-key [left-margin mouse-3] (global-key-binding [mouse-3])) ; #'mouse-save-then-kill
971 (global-set-key [left-margin drag-mouse-1] #'ignore)
972 (global-set-key [left-margin drag-mouse-2] #'ignore)
973 (global-set-key [left-margin drag-mouse-3] #'ignore)
974 (global-set-key [left-margin double-mouse-1] #'ignore)
975 (global-set-key [left-margin double-mouse-2] #'ignore)
976 (global-set-key [left-margin double-mouse-3] #'ignore)
977 (global-set-key [left-margin triple-mouse-1] #'ignore)
978 (global-set-key [left-margin triple-mouse-2] #'ignore)
979 (global-set-key [left-margin triple-mouse-3] #'ignore)
980 960
981 (mouse-wheel-mode +1) 961 (mouse-wheel-mode +1)
982 962
983 (when (bound-and-true-p mouse-wheel-mode) 963 (when (bound-and-true-p mouse-wheel-mode)
984 (global-set-key [right-margin mouse-wheel-down-event] #'mwheel-scroll) 964 (dolist (margin '(right-margin left-margin))
985 (global-set-key [right-margin mouse-wheel-up-event] #'mwheel-scroll) 965 (dolist (event '(mouse-wheel-down-event
986 (global-set-key [right-margin wheel-down] #'mwheel-scroll) 966 mouse-wheel-up-event
987 (global-set-key [right-margin wheel-up] #'mwheel-scroll) 967 wheel-down
988 (global-set-key [left-margin mouse-wheel-down-event] #'mwheel-scroll) 968 wheel-up
989 (global-set-key [left-margin mouse-wheel-up-event] #'mwheel-scroll) 969 mouse-4
990 (global-set-key [left-margin wheel-down] #'mwheel-scroll) 970 mouse-5))
991 (global-set-key [left-margin wheel-up] #'mwheel-scroll) 971 (global-set-key (vector margin event) #'mwheel-scroll))))
992 (global-set-key [right-margin mouse-4] #'mwheel-scroll)
993 (global-set-key [right-margin mouse-5] #'mwheel-scroll)
994 (global-set-key [left-margin mouse-4] #'mwheel-scroll)
995 (global-set-key [left-margin mouse-5] #'mwheel-scroll))
996#+END_SRC 972#+END_SRC
997 973
998*** Load the package 974*** Load the package