More layout tweaks

one.org

@@ -1,4 +1,4 @@
-* circumlocuting
+* I'm being willfully obtuse
 :PROPERTIES:
 :ONE: wfot-default-home-list-pages
 :CUSTOM_ID: /
@@ -193,7 +193,7 @@ of your application code to take advantage of. Cloudwatch Metrics is one
 of those services and you can get a lot of value out of it with not much
 effort.
 
-* Simple CSS frameworks - 2024-09-30
+* Simple CSS frameworks
 :PROPERTIES:
 :ONE: wfot-default
 :CUSTOM_ID: /simple-css-frameworks/
@@ -212,7 +212,7 @@ Using tacit is a matter of incluing this link tag in the page's HEAD element:
 #+BEGIN_SRC html
   <link rel="stylesheet" href="https://cdn.jsdelivr.net/npm/@picocss/pico@2/css/pico.min.css">
 #+END_SRC
-* Let people fail - 2024-09-25
+* Let people fail
 :PROPERTIES:
 :ONE: wfot-default
 :CUSTOM_ID: /let-people-fail/
@@ -258,13 +258,6 @@ I don't have a hard-and-fast rule about the size of a place I want to work but t
 
 Of course, this is all kind of theoretical at this point, as [[https://flipstone.com][Flipstone]] is my forever home.
 
-#+BEGIN_SRC haskell
-
-doThings :: String -> T.Text -> NEL.NonEmpty Char -> BS.ByteString -> IO ()
-doThings = error "WTF is this"
-
-#+END_SRC
-
 * TODO Just what is it you do here?
 :PROPERTIES:
 :ONE: wfot-default

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))
+        (:header (:a (@ :href "/") ,website-name))
-        (:div.content
+        (:main
-         (:div.title
+         (:section (:h1.title
           ,(if (not (string= path "/"))
                `(:div.title (:h1 ,title))
-             '(:div.title-empty)))
+             '(:div.title-empty))))
-         ,content
+         (:section (:article ,content))))))))
-         ,nav))))))
 
 (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))
+        (:header (:a (@ :href "/") ,website-name))
-        (:div.content
+        (: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)
+        (:header ,website-name)
-        (:div.content
+        (:main
          (:div/home ,content)))))))
 
 (defun wfot-default-with-sidebar (page-tree pages global)