diff options
| author | Case Duckworth | 2021-01-02 11:09:43 -0600 |
|---|---|---|
| committer | Case Duckworth | 2021-01-02 11:09:43 -0600 |
| commit | 8ff5f09f715a7acbfed495196563408ec4bab4c1 (patch) | |
| tree | 7b68ffcdd558e8ec266fb1d0c954a68ce7ef17d1 | |
| parent | Change startup visibility (diff) | |
| download | emacs-8ff5f09f715a7acbfed495196563408ec4bab4c1.tar.gz emacs-8ff5f09f715a7acbfed495196563408ec4bab4c1.zip | |
Loop through mouse margin events programmatically
| -rw-r--r-- | config.org | 48 |
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 | |||
| 953 | 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. | 953 | 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. |
| 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 |