From be99876af5bb751a471cf79f2787d6d83e1ab5b5 Mon Sep 17 00:00:00 2001 From: James Brechtel Date: Sat, 5 Oct 2024 09:15:16 -0400 Subject: [PATCH] More layout tweaks --- one.org | 15 ++++----------- onerc.el | 33 ++++++++++++++++++++++----------- 2 files changed, 26 insertions(+), 22 deletions(-) diff --git a/one.org b/one.org index 97ac0c4..2e0cb80 100644 --- a/one.org +++ b/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 #+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 @@ -275,7 +268,7 @@ I've never liked working at [[#/large-companies/][large companies]]. Mostly beca they complicate things, but some things are more complicated at small companies. -* TODO Managing Expectations +* TODO Managing Expectations :PROPERTIES: :ONE: wfot-default :CUSTOM_ID: /managing-expectations/ diff --git a/onerc.el b/onerc.el index 8759e93..a623672 100644 --- a/onerc.el +++ b/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)