Change page-handling logic

See the following urls:

http://endlessparentheses.com/improving-page-navigation.html
https://ericjmritz.wordpress.com/2015/08/29/using-page-breaks-in-gnu-emacs/

1 files changed, 13 insertions, 3 deletions

@@ -603,11 +603,21 @@ like a dumbass."
   (fset 'yes-or-no-p #'y-or-n-p))
 
 (setup page
-  (defun recenter-to-top (&rest _args)
+
+  (:option page-delimiter
+           (rx bol (or "\f" ";;;")
+               (not (any "#")) (* not-newline) "\n"
+               (* (* blank) (opt ";" (* not-newline)) "\n")))
+  
+  (defun recenter-to-top (&rest _)
     "Recenter the cursor to the top of the window."
-    (recenter 0))
+    (when (called-interactively-p 'any)
+      (recenter 5)))
   (:advise forward-page :after #'recenter-to-top
-           backward-page :after #'recenter-to-top))
+           backward-page :after #'recenter-to-top)
+
+  (:global "C-x C-n" forward-page
+           "C-x C-p" backward-page))
 
 (setup prog
   (:option smie-indent-basic tab-width)