css, default: Make navigation bar into a list

This looks better in browsers that ignore css, e.g. lynx.

diff --git a/css/default.css b/css/default.css
index df77946..234c731 100644 (file)
--- a/css/default.css
+++ b/css/default.css
@@ -222,6 +222,11 @@ span > a {
        padding: 0px 0px 30px 0px;
 }
 
+#navigation > li {
+       list-style: none;
+       display: inline-block;
+}
+
 #navigation a {
        color: #C2CBCE;
        font-size: 20px;

diff --git a/templates/default.lisp b/templates/default.lisp
index 66b8c31..36a6af1 100644 (file)
--- a/templates/default.lisp
+++ b/templates/default.lisp
@@ -167,9 +167,9 @@ document.onmousedown = document.onmouseup = function(e) {
                       (:li
                        (:a :href "/" "The Tar Pit")))
                  (:ul :id "navigation"
-                      (:a :href "/about.html" "about")
-                      (:a :href "/archive.html" "archive")
-                      (:a :href "/rss.xml" "rss"))
+                      (:li (:a :href "/about.html" "about"))
+                      (:li (:a :href "/archive.html" "archive"))
+                      (:li (:a :href "/rss.xml" "rss")))
                  (:div :id "content"
                        (:h1 (cl-who:str title))
                        (cl-who:str body))