diff options
Diffstat (limited to 'src/operationnull/theme.scm')
| -rw-r--r-- | src/operationnull/theme.scm | 64 |
1 files changed, 31 insertions, 33 deletions
diff --git a/src/operationnull/theme.scm b/src/operationnull/theme.scm index a398372..1b47d81 100644 --- a/src/operationnull/theme.scm +++ b/src/operationnull/theme.scm @@ -13,42 +13,40 @@ "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)))) + `(intro + (a (@ (class "intro-ava") (href "/"))) + (div (@ (class "divider"))) + (div (@ (class "intro-main")) + (div (@ (class "intro-left")) + (nav + (div (ul (li (a (@ (href "/contact.html")) + "contact")) + (li (a (@ (href "/posts/")) + "blog")) + (li (a (@ (href "https://git.operationnull.com/")) + "git")) + (li (a (@ (href "gemini://porphyrion.operationnull.com/")) + "porphyrion")))))) + (div (@ (class "intro-right")) + (nav (@ (id "umaring-id"))) + (script (@ (id "umaring_js") + (src "/assets/ring.js"))))))) (define %footer `(footer (@ (class "footer")) - (script (@ (id "umaring_js") - (src "https://umaring.mkr.cx/ring.js?id=bdunahu"))) - (div (@ (id "umaring"))) + (div (@ (class "footer-head")) + (nav (div (@ (class "umaring-id"))))) ,(date->string (current-date) "Copyright © 2024-~Y bdunahu") + "." (br) - "Site content available under the " ,%cc-by-sa-link " license " + "Art by " + (a (@ (href "https://rottngutt.rf.gd/about.php")) + "rottngutt") + ", other content available under the " ,%cc-by-sa-link " license " (a (@ (href "https://git.operationnull.com/operationnull.git/")) "here") - "." - (br) + "." + (br) "Last updated on " ,(date->string (current-date) "~b ~d, ~Y") ". Generated with " @@ -57,7 +55,7 @@ " and " (a (@ (href "https://gnu.org/software/guile")) "Guile Scheme") - ".")) + ".")) (define (first-paragraph post) (let loop ((sxml (post-sxml post))) @@ -81,9 +79,9 @@ (meta (@ (charset "utf-8"))) (meta (@ (name "viewport") (content "width=device-width, initial-scale=1"))) - (link (@ (rel "icon") - (type "image/x-icon") - (href "/assets/favicon.ico"))) + ;; (link (@ (rel "icon") + ;; (type "image/x-icon") + ;; (href "/assets/favicon.ico"))) (title ,(string-append title " — " (site-title site))) ,(stylesheet "site")) ,%intro |