Tweaks

1 files changed, 17 insertions, 4 deletions

diff --git a/fussy.lisp b/fussy.lisp
index 2afd96d..0c44405 100644
--- a/fussy.lisp
+++ b/fussy.lisp
@@ -345,14 +345,22 @@ that they are not loaded during image gen.")
 (defun page-nav (page page-count)
   "relative pagination nav to current page."
   (html:with-html 
-    (:div :class "page-nav"
+     (:div :class "center bigger" 
+           (:span (when (plusp page) (:a :href (format nil "?page=~a" (1- page)) " <<   "))
+                  (when (< page (1- page-count))
+                    (:a :href (format nil "?page=~a" (1+ page)) "   >> "))))
+    (:div
+     :class "page-nav"
      (dotimes (pg (ceiling (/ page-count +themes-per-page+)))
        (if (= pg page)
            (:span (format nil "  ~a  " (1+ pg)))
            (:span " "
                   (:a :href (format nil "?page=~a" pg)
                       (format nil "~a" (1+ pg)))
-                  " "))))))
+                  " ")))
+     
+
+     )))
 
 (defun theme-preview-image (theme &optional variant)
   (html:with-html 
@@ -418,6 +426,7 @@ html, body {
 }
 
 .card {
+  min-width: 500px;
   max-width: 50%;
 }
 
@@ -426,6 +435,10 @@ html, body {
   text-align: center;
 }
 
+.bigger {
+  font-size: 1.25em;
+}
+
 .center {
   text-align: center;
 }
@@ -497,12 +510,12 @@ h1 {
                      (:p
                       "Emacs Themes Gallery for your Daily Procrastination Needs." (:br)
                       (write-to-string (length all-themes)) " themes and counting..."))
-              (page-nav page (length all-themes))
+              (page-nav page (1- (length all-themes)))
               (:div :class "container"
                     (dolist (theme themes)
                       (theme-preview-card theme)))
               (:div :class "foooter"
-                    (page-nav page (length all-themes)))))))))
+                    (page-nav page (1- (length all-themes))))))))))
 
 (defun a-package (string)
   (a:if-let (pkg