Remove debug prints, improve list style

2 files changed, 8 insertions, 4 deletions

diff --git a/feed.scm b/feed.scm
index 5846ece..b51baa5 100644
--- a/feed.scm
+++ b/feed.scm
@@ -66,15 +66,11 @@
 
   (define (generate-archive-index src-dir archive-subdir)
     (define archive-dir (make-pathname src-dir archive-subdir))
-    (printf "debug archive-dir: ~A~%" archive-dir)
-    (printf "debug glob: ~A~%" (glob (format "~A/*" archive-dir)))
     (define paths (pipe (glob (format "~A/*" archive-dir))
 			(@ filter (@ irregex-search "\\.md$"))))
 
     (define fm (map (λ (path) (cons path (read-md-frontmatter path))) paths))
     (for-each (@ printf "~A~%") fm)
-    (printf "debug fm: ~A~%" fm)
-    (printf "debug list?: ~A~%" (list? fm))
     ;; newest first
     (define (less? a b)
       (string>? (assocdr 'date (cdr a)) (assocdr 'date (cdr b))))
diff --git a/static/style.css b/static/style.css
index 729121b..2e5d84d 100644
--- a/static/style.css
+++ b/static/style.css
@@ -171,3 +171,11 @@ hr {
 small {
     color: var(--blockquote-color);
 }
+
+ul, ol {
+    margin-left: 10px;
+}
+
+li::marker {
+    color: var(--link-color);
+}