diff options
Diffstat (limited to 'src/operationnull')
| -rw-r--r-- | src/operationnull/pages.scm | 17 | ||||
| -rw-r--r-- | src/operationnull/theme.scm | 78 |
2 files changed, 50 insertions, 45 deletions
diff --git a/src/operationnull/pages.scm b/src/operationnull/pages.scm index fe90925..a1f78ee 100644 --- a/src/operationnull/pages.scm +++ b/src/operationnull/pages.scm @@ -10,7 +10,7 @@ (p "My name is Benjamin. operationnull is my personal site.") (p "My interests often revolve around processing and manipulating text--code generation, interpreters, Norse mythology, sword and sorcery, and GNU Emacs, the ultimate text-based operating system. I graduated from CSU with a B.S. in computer science Spring 2024.") (ul (@ (type "bullet")) - (li "I have an interest in poetry/fiction though the quality of my work is up to your interpretation (" + (li "I sometimes practice poetry/fiction writing (" (a (@ (href "/gold.html")) "gold") ").") @@ -19,12 +19,16 @@ (li "A few of my personal projects can be found on my " (a (@ (href "https://git.operationnull.com/")) "git server") - ", all of which are libre.") + ".") (li "I host a small gemlog on the link titled 'porphyrion'.")))) (define contact-content '(article (h2 "Contact") - (p "I am reachable by email:") + (p "I am on Matrix and IRC:") + (ul (@ (type "bullet")) + (li (b "IRC: ") "@ bdunahu @ libera.chat or @ Gondul @ libera.chat") + (li (b "matrix: ") "@bdunahu:tchncs.de")) + (p "If you don't use those:") (ul (@ (type "bullet")) (li (b "email: ") "bdunahu @ this domain")) (ul (@ (style "font-size: 80%;")) @@ -33,11 +37,8 @@ (br) "Fingerprint: " (code "5550 5CA6 9DE5 D342 7F31 F9AE 5F86 6C65 2A34 C996"))) - (p "Additionally, these accounts belong to me.") - (ul (@ (type "bullet")) - (li (b "IRC: ") "@ Isaz @ libera.chat") - (i "And: ") "@ Gondul @ libera.chat" - (li (b "matrix: ") "@bdunahu:tchncs.de")))) + (br) + (p "I do not have any accounts open with any big-tech services. Reluctantly, I do have a discord account."))) (define e404 '(article (h2 "403/404 Error") diff --git a/src/operationnull/theme.scm b/src/operationnull/theme.scm index 70e81e6..7a90a60 100644 --- a/src/operationnull/theme.scm +++ b/src/operationnull/theme.scm @@ -41,43 +41,47 @@ ,(stylesheet "site") ) (body - (intro - (br) - '(div (@ (class "container")) - (img (@ (alt "raven") (class "no-border") - (src "/assets/raven.png"))) - (h1 (span (@ (class "white")) bdunahu)) - (p "cs graduate student @ " - (a (@ (href "https://www.cics.umass.edu/")) - "UMass Amherst")))) - (nav - '(div (@ (class "container")) - (ul (li (a (@ (href "gemini://porphyrion.operationnull.com/")) - "porphyrion")) - (li (a (@ (href "https://git.operationnull.com/")) - "git")) - (li (a (@ (href "/contact.html")) - "contact")) - (li (a (@ (href "/")) - "home"))))) - ,body - (footer (@ (class "footer")) - "Copyright © 2025 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")) + (intro + (div (@ (style "contain: size; justify-self: end;")) + (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 "/contact.html")) + "contact")) + (li (a (@ (href "/")) + "home"))))) + ,body + (footer (@ (class "footer")) + (script (@ (id "umaring_js") + (src "https://umaring.mkr.cx/ring.js?id=bdunahu"))) + (div (@ (id "umaring"))) + "Copyright © 2025 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") + "."))))) #:post-template (lambda (post) `((article |