Add margin mouse binds

1 files changed, 18 insertions, 1 deletions

@@ -269,9 +269,26 @@
     (local-set-key (kbd "C-k") #'org-kill-line)))
 (add-hook 'visual-line-mode-hook #'hook--visual-line-fix-org-keys)
 
+(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)
+  (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))))
+
 (use-package visual-fill-column
     :init (setq-default visual-fill-column-center-text t)
-    :hook visual-fill-column-mode
+    (add-hook 'visual-fill-column-mode-hook #'visual-line-mode)
     :config
     (advice-add 'text-scale-adjust :after #'visual-fill-column-adjust))