diff options
| -rw-r--r-- | fussy.lisp | 27 |
1 files changed, 12 insertions, 15 deletions
@@ -340,7 +340,7 @@ that they are not loaded during image gen.") (defun nav () (html:with-html (:nav - (:a :href "/" "Fussy")))) + (:a :href "/" (:h1 "FUSSY"))))) (defun page-nav (page page-count) "relative pagination nav to current page." @@ -486,11 +486,10 @@ h1 { (style)) (:body (:div :class "main" - (:h1 "FUSSY") + (nav) (:p :class "center" "Emacs Themes Gallery for your Daily Procrastination Needs." (:br) (write-to-string (length all-themes)) " themes and counting...") - (nav) (page-nav page (length all-themes)) (:div ) (:div :class "container" @@ -523,17 +522,15 @@ h1 { (style)) (:body (:div :class "main" - (:h1 (package-namestring pkg) ) (nav) - (:div :class "info" - (:dl - (:dt "Description") - (:dd (theme-pkg-description pkg)) - (:dt "URL") - (:dd (:a :href (theme-pkg-url pkg) - (theme-pkg-url pkg))) - (:dt "Number of Themes") - (:dd (length themes)))) + (:div :class "center" + (:h2 (package-namestring pkg) ) + (:p (theme-pkg-description pkg)) + (:p "This package contains" + (length themes) + (if (= 1 (length themes)) " theme" " themes")) + (:p (:a :href (theme-pkg-url pkg) + (theme-pkg-url pkg)))) (:div :class "container" (dolist (theme themes) (theme-preview-card theme))))))))) @@ -553,9 +550,9 @@ h1 { (style)) (:body (:div :class "main" - (:h1 theme) (nav) - (:div + (:div :class "center" + (:h2 theme) (:p "A theme in the package " (:a :href (url-path pkg) (package-namestring pkg)))) (:div :class "container" |