jbrechtel/willfullyobtuse.com
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

More layout tweaks

Browse Source
This commit is contained in:
James Brechtel
2024-10-05 09:15:16 -04:00
parent 3f42924242
commit be99876af5
2 changed files with 26 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
one.org
View File

@@ -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
@@ -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/

33
onerc.el
View File

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