From 7792f81ffafb70f6b60a269873957571454718b8 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 25 Aug 2021 23:05:22 -0500
Subject: Change other stuff for scroll-margin changes

---
 init.el | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'init.el')

diff --git a/init.el b/init.el
index 3d739ef..162c86c 100644
--- a/init.el
+++ b/init.el
@@ -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)
 
-- 
cgit 1.4.1-21-gabe81