Set up typewriter-style scrolling

diff --git a/init.el b/init.el
index e63b8bd71acc2a6de0c44200b292d317941b0c24..ffc185ba0e19576ee2b4a1f9b41e47b37be12cd6 100644 (file)
--- a/init.el
+++ b/init.el
@@ -553,6 +553,14 @@ installed."
 (keymap-global-set "<next>" #'forward-page)\r
 (keymap-global-set "<prior>" #'backward-page)\r
 \f\r
+;;; Typewriter scrolling\r
+;; Puts the active line always in the middle of the screen\r
+\r
+(setq scroll-preserve-screen-position t\r
+      scroll-conservatively 0\r
+      maximum-scroll-margin 0.5\r
+      scroll-margin 65535)\r
+\f\r
 ;;; Macro to open something in its own named frame\r
 ;; Start a repl in a new frame, open dired in a new frame, etc. etc.\r
 \r