about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--config.org35
1 files 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
392 (horizontal-scroll-bar-mode -1) 392 (horizontal-scroll-bar-mode -1)
393#+end_src 393#+end_src
394 394
395** Silky scrolling
396
397from [[https://pizza.eli.li/wiki/emacs-config/][elioat]]
398
399#+begin_src emacs-lisp
400 (cuss scroll-margin 0)
401 (cuss scroll-conservatively 10000)
402 (cuss scroll-preserve-screen-position t)
403 (cuss auto-window-vscroll nil)
404#+end_src
405
395** Tabs 406** Tabs
396 407
397I'm kind of getting into Emacs tabs -- but I like not showing the =tab-bar= when there's only one. 408I'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
1012 1023
1013#+begin_src emacs-lisp 1024#+begin_src emacs-lisp
1014 (dolist (vec '([left-margin wheel-down] 1025 (dolist (vec '([left-margin wheel-down]
1015 [left-margin mouse-5] 1026 [right-margin wheel-down]))
1016 [right-margin wheel-down]
1017 [right-margin mouse-5]))
1018 (bind-key vec 'scroll-down-command)) 1027 (bind-key vec 'scroll-down-command))
1019 1028
1020 (dolist (vec '([left-margin wheel-up] 1029 (dolist (vec '([left-margin wheel-up]
1021 [left-margin mouse-4] 1030 [right-margin wheel-up]))
1022 [right-margin wheel-up]
1023 [right-margin mouse-4]))
1024 (bind-key vec 'scroll-up-command)) 1031 (bind-key vec 'scroll-up-command))
1025#+end_src 1032#+end_src
1026 1033
1034=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.
1035
1036#+begin_src emacs-lisp
1037 (dolist (vec '([left-margin mouse-4]
1038 [right-margin mouse-4]))
1039 (if (string= system-name "larry")
1040 (bind-key vec 'scroll-down-command)
1041 (bind-key vec 'scroll-up-command)))
1042
1043 (dolist (vec '([left-margin mouse-5]
1044 [right-margin mouse-5]))
1045 (if (string= system-name "larry")
1046 (bind-key vec 'scroll-up-command)
1047 (bind-key vec 'scroll-down-command)))
1048#+end_src
1049
1027** [[https://orgmode.org/][org-mode]] 1050** [[https://orgmode.org/][org-mode]]
1028 1051
1029Pretty self-explanatory, I think... 1052Pretty self-explanatory, I think...