Change other stuff for scroll-margin changes

1 files changed, 9 insertions, 1 deletions

@@ -344,6 +344,10 @@
                   (apply f r))))
 
   (add-hook 'kill-emacs-hook #'erc/disconnect)
+
+  (add-hook 'erc-mode-hook
+            (defun erc-mode@setup ()
+              (setq-local scroll-margin 0)))
   
   (:hook erc-autoaway-mode
          erc-track-mode
@@ -655,7 +659,11 @@ like a dumbass."
   (defun recenter-to-top (&rest _)
     "Recenter the cursor to the top of the window."
     (when (called-interactively-p 'any)
-      (recenter 5)))
+      (recenter (if (or (null scroll-margin)
+                        (zerop scroll-margin))
+                    3
+                  scroll-margin))))
+
   (:advise forward-page :after #'recenter-to-top
            backward-page :after #'recenter-to-top)