diff options
Diffstat (limited to 'src/operationnull')
| -rw-r--r-- | src/operationnull/pages.scm | 30 | ||||
| -rw-r--r-- | src/operationnull/site.scm | 14 | ||||
| -rw-r--r-- | src/operationnull/theme.scm | 17 |
3 files changed, 31 insertions, 30 deletions
diff --git a/src/operationnull/pages.scm b/src/operationnull/pages.scm index 319199a..d317570 100644 --- a/src/operationnull/pages.scm +++ b/src/operationnull/pages.scm @@ -8,22 +8,23 @@ (define index-content '(article (h2 "Welcome.") (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, traditional 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.") - (p "I've dabbled in poetry/fiction (" - (a (@ (href "/gold.html")) - "example") - "), though I am still an amateur writer. I am working on another short sword and sorcery story (10,000+ words) about an outlandish werewolf named Gǫndul and her creator---the master-conjurer Gullveig. I am not sure if it will ever appear publicly or on this site.") - (p "A few of my personal projects can be found on my " - (a (@ (href "https://git.operationnull.com/")) - "git server") - ", all of which are " - (a (@ (href "https://en.wikipedia.org/wiki/Free_software")) - "libre") - "."))) + (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 (" + (a (@ (href "/gold.html")) + "gold") + ").") + (li "I am working on a short sword and sorcery story about a frankensteinish werewolf, and possibly, blood.") + (li "I am currently learning (guile) scheme, and using it to design a C compiler.") + (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 "Contact me about the content of this site here:") + (p "I am reachable by email:") (ul (@ (type "bullet")) (li (b "email: ") "bdunahu @ this domain")) (ul (p (@ (style "font-size: 80%;")) @@ -33,9 +34,10 @@ (br) "Fingerprint: " (code "5550 5CA6 9DE5 D342 7F31 F9AE 5F86 6C65 2A34 C996"))) - (p "Additionally, these accounts are/belong to me.") + (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")))) (define e404 diff --git a/src/operationnull/site.scm b/src/operationnull/site.scm index f1acfce..c6cfe31 100644 --- a/src/operationnull/site.scm +++ b/src/operationnull/site.scm @@ -1,11 +1,9 @@ (define-module (operationnull site) #:use-module (haunt builder assets) - #:use-module (haunt builder atom) - #:use-module (haunt builder blog) #:use-module (haunt html) #:use-module (haunt post) #:use-module (haunt reader) - #:use-module (haunt reader commonmark) + #:use-module (haunt reader skribe) #:use-module (haunt site) #:use-module (operationnull pages) #:use-module (operationnull static) @@ -14,7 +12,7 @@ (define %blog-collection - `(("Recent Posts" "/posts/index.html" ,posts/reverse-chronological))) + `(("Infrequently Updated Notes" "/posts/index.html" ,posts/reverse-chronological))) (define main-site (site #:title "operationnull" @@ -23,15 +21,9 @@ #:build-directory "target" #:default-metadata '((author . "bdunahu")) - #:readers (list commonmark-reader) + #:readers (list skribe-reader) #:builders (list (static-page index-content "index.html" "home") (static-page contact-content "/contact.html" "contact") - (blog #:theme main-theme - #:prefix "/posts/" - #:collections %blog-collection) (static-page e404 "/404.html" "404 Error") (static-page gold-content "/gold.html" "More Worthless than Gold") - (atom-feed #:file-name "atom.xml" - #:subtitle "Recent Posts") - ;; (atom-feeds-by-tag) (static-directory "content/assets" "assets")))) diff --git a/src/operationnull/theme.scm b/src/operationnull/theme.scm index d44881a..db5a157 100644 --- a/src/operationnull/theme.scm +++ b/src/operationnull/theme.scm @@ -56,13 +56,13 @@ "UMass Amherst")))) (nav '(div (@ (class "container")) - (ul (li (a (@ (href "https://git.operationnull.com/")) + (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 "/posts/")) - ;; "blog")) - (li (a (@ (href "/")) + (li (a (@ (href "/")) "home"))))) ,body (footer (@ (class "footer")) @@ -88,7 +88,14 @@ (h3 (@ (class "title")),(post-ref post 'title)) (div (@ (class "date")) ,(date->string (post-date post) - "~B ~d, ~Y")) + "created: ~B ~d, ~Y")) + (div (@ (class "tags")) + "tags:" + (ul ,@(map (lambda (tag) + `(li (a (@ (href ,(string-append "/feeds/tags/" + tag ".xml"))) + ,tag))) + (assq-ref (post-metadata post) 'tags)))) (div (@ (class "post")) ,(post-sxml post))))) #:collection-template |