More layout tweaks

onerc.el

@@ -1,4 +1,16 @@
-(setq wfot-css "https://cdn.jsdelivr.net/gh/kimeiga/bahunya/dist/bahunya.min.css")
+(setq wfot-styles
+      '((mvp . "https://unpkg.com/mvp.css")
+      (bahunya . "https://cdn.jsdelivr.net/gh/kimeiga/bahunya/dist/bahunya.min.css")
+      (awsm . "https://unpkg.com/awsm.css/dist/awsm.min.css")
+      (holiday . "https://cdn.jsdelivr.net/npm/holiday.css@0.11.2")
+      (tacit . "https://cdn.jsdelivr.net/gh/yegor256/tacit@gh-pages/tacit-css-1.8.1.min.css")
+      (writ . "//writ.cmcenroe.me/1.0.4/writ.min.css")
+      (simple . "https://cdn.simplecss.org/simple.min.css")
+      (pico-amber . "https://cdn.jsdelivr.net/npm/@picocss/pico@2/css/pico.classless.amber.min.css")
+      (pico-fluid . "https://cdn.jsdelivr.net/npm/@picocss/pico@2/css/pico.fluid.classless.min.css")
+      (pico . "https://cdn.jsdelivr.net/npm/@picocss/pico@2/css/pico.classless.min.css")))
+
+(setq wfot-css (alist-get 'pico-amber wfot-styles))
 
 (defun wfot-default (page-tree pages _global)
   "willfullyobtuse default render function
@@ -19,14 +31,13 @@
   	(:link (@ :rel "stylesheet" :href wfot-css))
         (:title ,title))
        (:body
-        (:div.header (:a (@ :href "/") ,website-name))
-        (:div.content
-         (:div.title
+        (:header (:a (@ :href "/") ,website-name))
+        (:main
+         (:section (:h1.title
           ,(if (not (string= path "/"))
                `(:div.title (:h1 ,title))
-             '(:div.title-empty)))
-         ,content
-         ,nav))))))
+             '(:div.title-empty))))
+         (:section (:article ,content))))))))
 
 (defun wfot-default-home-list-pages (page-tree pages _global)
   "Default render function to use in the home page that lists pages.
@@ -49,8 +60,8 @@ Also see `one-render-pages' and `one-default-css'."
         (:link (@ :rel "stylesheet" :type "text/css" :href wfot-css))
         (:title ,title))
        (:body
-        (:div.header (:a (@ :href "/") ,website-name))
-        (:div.content
+        (:header (:a (@ :href "/") ,website-name))
+        (:main
          (:div/home-list-pages ,content)
          (:div/pages (:ul ,(reverse pages-list)))))))))
 
@@ -73,8 +84,8 @@ Also see `one-render-pages' and `one-default-css'."
         (:link (@ :rel "stylesheet" :type "text/css" :href wfot-css))
         (:title ,title))
        (:body
-        (:div.header ,website-name)
-        (:div.content
+        (:header ,website-name)
+        (:main
          (:div/home ,content)))))))
 
 (defun wfot-default-with-sidebar (page-tree pages global)