From 13d6cc6f8825cf4cd83da89d9a85d6cc1b7cc5ec Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Mon, 1 Mar 2021 14:44:57 -0600
Subject: Add margin mouse binds

---
 init.el | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

(limited to 'init.el')

diff --git a/init.el b/init.el
index 6fc296b..eee0908 100644
--- a/init.el
+++ b/init.el
@@ -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))
 
-- 
cgit 1.4.1-21-gabe81