From 948810e6df323e68905c9850127a8f36d2e8f0ca Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Tue, 1 Dec 2020 20:10:50 -0600 Subject: Add mouse bindings for margin --- config.org | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) diff --git a/config.org b/config.org index 162db1b..681a4a6 100644 --- a/config.org +++ b/config.org @@ -959,8 +959,6 @@ Configurations related to writing prose or verse. Center the text part of the frame within a =fill-column=-sized area in the frame as a whole. -The one thing I need to fix: binding scrolling to = = and friends. - #+begin_src emacs-lisp (use-package visual-fill-column :custom @@ -975,6 +973,18 @@ The one thing I need to fix: binding scrolling to = = and (text-mode . visual-fill-column-mode)) #+end_src +*** Fix mouse bindings + +In =visual-fill-column-mode=, mouse bindings on the margins don't work. In fact, they don't work when /not/ in =visual-fill-column-mode=. Let's bind those bindings. + +#+begin_src emacs-lisp + (bind-key [left-margin wheel-down] 'scroll-down-command) + (bind-key [right-margin wheel-down] 'scroll-down-command) + + (bind-key [left-margin wheel-up] 'scroll-up-command) + (bind-key [right-margin wheel-up] 'scroll-up-command) +#+end_src + ** [[https://orgmode.org/][org-mode]] Pretty self-explanatory, I think... -- cgit 1.4.1-21-gabe81