diff options
Diffstat (limited to 'src/operationnull/theme.scm')
| -rw-r--r-- | src/operationnull/theme.scm | 92 |
1 files changed, 51 insertions, 41 deletions
diff --git a/src/operationnull/theme.scm b/src/operationnull/theme.scm index a899575..a398372 100644 --- a/src/operationnull/theme.scm +++ b/src/operationnull/theme.scm @@ -12,6 +12,53 @@ '(a (@ (href "https://creativecommons.org/licenses/by-sa/4.0/")) "CC-BY-SA 4.0")) +(define %intro + (let ((desc + '(p "cs graduate student @ " + (a (@ (href "https://www.cics.umass.edu/")) + "UMass Amherst"))) + (nav + '(nav + (div (ul (li (a (@ (href "gemini://porphyrion.operationnull.com/")) + "porphyrion")) + (li (a (@ (href "https://git.operationnull.com/")) + "git")) + (li (a (@ (href "/posts/")) + "blog")) + (li (a (@ (href "/contact.html")) + "contact")) + (li (a (@ (href "/")) + "home"))))))) + `(intro + (div (img (@ (alt "raven") (class "no-border") + (src "/assets/raven.png")))) + (div (@ (style "text-align: left;")) + (h1 (span (@ (class "white")) bdunahu)) + ,desc + ,nav)))) + +(define %footer + `(footer (@ (class "footer")) + (script (@ (id "umaring_js") + (src "https://umaring.mkr.cx/ring.js?id=bdunahu"))) + (div (@ (id "umaring"))) + ,(date->string (current-date) "Copyright © 2024-~Y bdunahu") + (br) + "Site content available under the " ,%cc-by-sa-link " license " + (a (@ (href "https://git.operationnull.com/operationnull.git/")) + "here") + "." + (br) + "Last updated on " + ,(date->string (current-date) "~b ~d, ~Y") + ". Generated with " + (a (@ (href "https://dthompson.us/projects/haunt.html")) + "Haunt") + " and " + (a (@ (href "https://gnu.org/software/guile")) + "Guile Scheme") + ".")) + (define (first-paragraph post) (let loop ((sxml (post-sxml post))) (match sxml @@ -39,48 +86,11 @@ (href "/assets/favicon.ico"))) (title ,(string-append title " — " (site-title site))) ,(stylesheet "site")) + ,%intro (body - (intro - (div (img (@ (alt "raven") (class "no-border") - (src "/assets/raven.png")))) - (div (@ (style "text-align: left;")) - (h1 (span (@ (class "white")) bdunahu)) - (p "cs graduate student @ " - (a (@ (href "https://www.cics.umass.edu/")) - "UMass Amherst")) - (nav - (div (ul (li (a (@ (href "gemini://porphyrion.operationnull.com/")) - "porphyrion")) - (li (a (@ (href "https://git.operationnull.com/")) - "git")) - (li (a (@ (href "/posts/")) - "blog")) - (li (a (@ (href "/contact.html")) - "contact")) - (li (a (@ (href "/")) - "home"))))))) - (div (@ (class "container")) - ,body) - (footer (@ (class "footer")) - (script (@ (id "umaring_js") - (src "https://umaring.mkr.cx/ring.js?id=bdunahu"))) - (div (@ (id "umaring"))) - "Copyright © 2024-2026 bdunahu" - (br) - "Site content available under the " ,%cc-by-sa-link " license " - (a (@ (href "https://git.operationnull.com/operationnull.git/")) - "here") - "." - (br) - "Last updated on " - ,(date->string (current-date) "~b ~d, ~Y") - ". Generated with " - (a (@ (href "https://dthompson.us/projects/haunt.html")) - "Haunt") - " and " - (a (@ (href "https://gnu.org/software/guile")) - "Guile Scheme") - ".")))) + (div (@ (class "container")) + ,body)) + ,%footer)) #:post-template (lambda (post) `((article |