diff options
| -rw-r--r-- | fussy.lisp | 21 |
1 files changed, 17 insertions, 4 deletions
@@ -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 |