From 84b6d6c6a7e55a606373607c054906f95d0f4ad3 Mon Sep 17 00:00:00 2001 From: Duncan Wilkie Date: Mon, 18 Sep 2023 08:33:40 -0500 Subject: Emacs Lisp -> Scheme transpiler, implementing forms.el logic. --- dnw/static-pages.scm | 18 ++++++++++++++---- 1 file changed, 14 insertions(+), 4 deletions(-) (limited to 'dnw/static-pages.scm') diff --git a/dnw/static-pages.scm b/dnw/static-pages.scm index ab51b02..eab7e46 100644 --- a/dnw/static-pages.scm +++ b/dnw/static-pages.scm @@ -4,9 +4,11 @@ #:use-module (ice-9 match) #:use-module (ice-9 rdelim) #:use-module (ice-9 popen) + #:use-module (ice-9 textual-ports) #:use-module (dnw utils) #:use-module (dnw theme) #:use-module (dnw tags) + #:use-module (dnw forms) #:use-module (srfi srfi-1) #:use-module (srfi srfi-19) #:use-module (sxml simple) @@ -28,7 +30,7 @@ (p "My name is Duncan. I live below the Mason-Dixon.") (p "I write down thoughts I think are interesting here; the content is mirrored to " ,(hyperlink "http://dnw.i2p" "I2P") " and " ,(hyperlink "gemini://functorial.xyz" "Gemini") - " . I couldn't make heads or tails of Tor onion services; email me if you know how to marry a torrc with an nginx.conf.")))) + ". I couldn't make heads or tails of Tor onion services; email me if you know how to marry a torrc with an nginx.conf.")))) (define (recents site posts) `(section (@ (id "recent")) @@ -59,7 +61,7 @@ (ul (p "Github: " ,(hyperlink "https://github.com/Antigravityd" "Antigravityd")))) ;; TODO: consider moving to Sourcehut. (section (@ (id "prose")) (h1 "About Me") - (p "My name is Duncan. I am 20, and have lived most of my life in rural Arkansas. I graduated in 2023 from LSU, cum laude, " + (p "My name is Duncan. I am 21, and have lived most of my life in rural Arkansas. I graduated in 2023 from LSU, cum laude, " "with dual degrees in math and physics, and have at various times been employed as a dishwasher, maintainence guy, tutor, " "data science intern, embedded developer, and research scientist. I am currently unemployed.") (p "Had I my druthers, I would like to be able to make a career out of decentralized science, " @@ -169,11 +171,19 @@ (define influences `((h1 "Influences") (p "Any and every third-party I can think of that's affected how I think. ") - (h2 "Blogs") - (h2 "Books and Monographs") + (h2 "My Library") + (p "The books I physically own, or want to own. I haven't quite digitized everything yet (just one moving box of like 4).") + ,(forms.el->sxml (get-string-all (open-input-file "assets/library/library.el")) + (get-string-all (open-input-file "assets/library/library.tsv")) + '()) + (h2 "Blogs and Podcasts") + (ul + (li "Not Related")) + (h2 "Scholarly Articles") (h2 "Videos and Talks"))) + (define (influences-page site posts) (make-page "/pages/influences.html" (base-template site influences #:title "Influences") -- cgit v1.2.3