From e24e3687944295f8bb1c634d6186c8bb651c18c2 Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Thu, 6 Apr 2023 17:28:29 -0700
Subject: Tweaking display

---
 fussy.lisp | 27 ++++++++++++---------------
 1 file changed, 12 insertions(+), 15 deletions(-)

(limited to 'fussy.lisp')

diff --git a/fussy.lisp b/fussy.lisp
index b67a8cb..11b3f4c 100644
--- a/fussy.lisp
+++ b/fussy.lisp
@@ -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"
-- 
cgit v1.2.3