- [gemini] allowed scrolling of a gemini page when focus is on the TOC.

etc/init.lisp

@@ -367,10 +367,14 @@
 
 (define-key "down"      #'gemini-toc-scroll-down                     *gemini-toc-keymap*)
 
-(define-key "C-J"       #'gemini-toc-jump-to-entry                   *gemini-toc-keymap*)
-
 (define-key "q"         #'gemini-toc-close                           *gemini-toc-keymap*)
 
+(define-key "p"         #'gemini-toc-scroll-down-page                *gemini-toc-keymap*)
+
+(define-key "C-J"       #'gemini-toc-scroll-down-page                *gemini-toc-keymap*)
+
+(define-key "n"         #'gemini-toc-scroll-up-page                  *gemini-toc-keymap*)
+
 ;; gemini stream window keymap
 
 (define-key "a"         #'gemini-abort-download                      *gemini-downloads-keymap*)

src/package.lisp

@@ -2559,6 +2559,8 @@
    :gemini-toc-scroll-down
    :gemini-toc-jump-to-entry
    :gemini-toc-close
+   :gemini-toc-scroll-down-page
+   :gemini-toc-scroll-up-page
    :pass-focus-on-left
    :pass-focus-on-right
    :pass-focus-on-bottom

src/ui-goodies.lisp

@@ -1977,3 +1977,9 @@ gemini page the program is rendering."
 
 (defun gemini-toc-close ()
   (close-window-and-return-to-message *gemini-toc-window*))
+
+(defun gemini-toc-scroll-down-page ()
+  (message-window:scroll-down *message-window*))
+
+(defun gemini-toc-scroll-up-page ()
+  (message-window:scroll-up *message-window*))