From 675047fdad356994d2903766919825552a8641c7 Mon Sep 17 00:00:00 2001 From: Benson Chu Date: Fri, 18 Jul 2025 13:36:43 -0500 Subject: [PATCH] I should really read documentation more... --- config-min.org | 23 +++-------------------- 1 file changed, 3 insertions(+), 20 deletions(-) diff --git a/config-min.org b/config-min.org index fd1695d..3d98e01 100644 --- a/config-min.org +++ b/config-min.org @@ -295,34 +295,17 @@ #+end_src * navigation #+begin_src emacs-lisp - ;; Scrollkeeper is helpful for scrolling up and down - (defvar window-third-height nil) + (setq next-screen-context-lines 30) (defun update-window-third-height (win &rest args) ;; (message "Updating window height for %s" (window-buffer win)) - (setq window-third-height - (max 1 (/ (window-height win) 3)))) + (setq next-screen-context-lines + (max 1 (* 2 (/ (window-height win) 3))))) (advice-add #'select-window :after 'update-window-third-height) - (defun scroll-up-third () - (interactive) - ;; (pulse-momentary-highlight-one-line (point)) - (scroll-up (or window-third-height 10))) - - (defun scroll-down-third () - (interactive) - ;; (pulse-momentary-highlight-one-line (point)) - (scroll-down (or window-third-height 10))) - - (global-set-key (kbd "C-v") 'scroll-up-third) - (global-set-key (kbd "M-v") 'scroll-down-third) - ;; (use-package scrollkeeper) - ;; (global-set-key (kbd "C-v") 'scrollkeeper-down) - ;; (global-set-key (kbd "M-v") 'scrollkeeper-up) - ;; Word navigation (global-set-key (kbd "M-f") 'forward-to-word) (global-set-key (kbd "M-F") 'forward-word)