From: Lucian Mogosanu <lucian.mogosanu@gmail.com>
Date: Mon, 29 Jan 2018 14:24:12 +0000 (+0200)
Subject: css, default: Make navigation bar into a list
X-Git-Tag: v0.11~127
X-Git-Url: https://git.mogosanu.ro/?a=commitdiff_plain;h=fd351aa386387b65b072e1a07256f17485e70fff;p=thetarpit.git

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
--- 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
--- 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))