add bottom page nav to theme package pages

1 files changed, 3 insertions, 1 deletions

diff --git a/fussy.lisp b/fussy.lisp
index a6efb55..005b26c 100644
--- a/fussy.lisp
+++ b/fussy.lisp
@@ -580,7 +580,9 @@ h1 {
                     (dolist (theme (a:subseq* themes
                                               (* page +themes-per-page+)
                                               (* (1+ page) +themes-per-page+)))
-                      (theme-preview-card theme)))))))))
+                      (theme-preview-card theme)))
+              (when (< +themes-per-page+ (length themes))
+                (page-nav page (floor (/ (length themes) +themes-per-page+))))))))))
 
 (lzb:defendpoint* :get "/theme/:pkg a-package:/:theme a-theme:" () ()
   "The page for a particular theme showing its previews for different prog langs"