From 6c5fe711469e5e21cfb181343c93935eeea053d3 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Fri, 4 Dec 2020 00:04:26 -0600 Subject: Tweak scrolling --- config.org | 35 +++++++++++++++++++++++++++++------ 1 file changed, 29 insertions(+), 6 deletions(-) diff --git a/config.org b/config.org index 5607fcc..6b5f93a 100644 --- a/config.org +++ b/config.org @@ -392,6 +392,17 @@ The [[*Frame defaults][Frame Defaults]] section sets up the frame to be free of (horizontal-scroll-bar-mode -1) #+end_src +** Silky scrolling + +from [[https://pizza.eli.li/wiki/emacs-config/][elioat]] + +#+begin_src emacs-lisp + (cuss scroll-margin 0) + (cuss scroll-conservatively 10000) + (cuss scroll-preserve-screen-position t) + (cuss auto-window-vscroll nil) +#+end_src + ** Tabs I'm kind of getting into Emacs tabs -- but I like not showing the =tab-bar= when there's only one. @@ -1012,18 +1023,30 @@ In =visual-fill-column-mode=, mouse bindings on the margins don't work. In fact #+begin_src emacs-lisp (dolist (vec '([left-margin wheel-down] - [left-margin mouse-5] - [right-margin wheel-down] - [right-margin mouse-5])) + [right-margin wheel-down])) (bind-key vec 'scroll-down-command)) (dolist (vec '([left-margin wheel-up] - [left-margin mouse-4] - [right-margin wheel-up] - [right-margin mouse-4])) + [right-margin wheel-up])) (bind-key vec 'scroll-up-command)) #+end_src +=mouse-4= and =mouse-5= are also =wheel-up= and =wheel-down=, but they're reversed on *larry*, which uses "natural scrolling." I don't know, I like it. + +#+begin_src emacs-lisp + (dolist (vec '([left-margin mouse-4] + [right-margin mouse-4])) + (if (string= system-name "larry") + (bind-key vec 'scroll-down-command) + (bind-key vec 'scroll-up-command))) + + (dolist (vec '([left-margin mouse-5] + [right-margin mouse-5])) + (if (string= system-name "larry") + (bind-key vec 'scroll-up-command) + (bind-key vec 'scroll-down-command))) +#+end_src + ** [[https://orgmode.org/][org-mode]] Pretty self-explanatory, I think... -- cgit 1.4.1-21-gabe81