From 119cf7f780375187dbe3d064263a9de3a17f538d Mon Sep 17 00:00:00 2001 From: Jake Zerrer Date: Sun, 30 Nov 2025 12:31:01 -0500 Subject: Move from github pages to server --- src/pages.clj | 79 ----------------------------------------------------------- 1 file changed, 79 deletions(-) delete mode 100644 src/pages.clj (limited to 'src/pages.clj') diff --git a/src/pages.clj b/src/pages.clj deleted file mode 100644 index a793fd3..0000000 --- a/src/pages.clj +++ /dev/null @@ -1,79 +0,0 @@ -(ns pages - (:require [borkdude.html :refer [html]] - #_ - [pages.missionary :refer [missionary]] - [pages.second-sex :refer [second-sex]] - [components :refer [template page]])) - -(def home-uri "/") -(def books-2025-uri "/books-2025") -(def second-sex-uri "/second-sex-quotes") -(def past-work-uri "/past-work") -#_ -(def missionary-uri "/code/missionary") - -(defn home [] - (template - (html - [:<> - [:p "Hello."] - [:p "My name is Jake Zerrer. This is where I keep things online. Look around."] - [:ul - (map - (fn [[uri name]] - (html - [:li [:a {:href (str uri)} name]])) - [[books-2025-uri "Selected reading list, 2025"] - [second-sex-uri "The Second Sex: Selected Excerpts"] - [past-work-uri "Past work"]])]]))) - -(defn books-2025 - [] - (page - (html - [:<> - [:h1 "Selected reading list, 2025"] - [:ul - [:li "The Second Sex (Simone de Beauvior)"] - [:li "The Places in Between (Rory Stewart)"] - [:li "Either/Or: A Fragment of Life (Søren Kierkegaard)"] - [:li "The Philosophy of History (G. W. F. Hegel)"] - [:li "This Life: Secular Faith and Spiritual Freedom (Martin Hägglund)"] - [:li "The Power Broker (Robert Caro)"] - [:li "Mating (Normal Rush)"]]]))) - -(defn past-work - [] - (page - (html - [:<> - [:h1 "Past work"] - [:p "I have spent most of my professional life working as a software engineer:"] - [:ul - [:li "In 2024, I ran product engineering at Normal Computing"] - [:li "In the summer of 2023, I traveled and prototyped a devex tool called refuge"] - [:li "From 2018 to 2023, I worked as a software engineer at Flexport"] - [:li "From 2014 to 2017, I worked as a software engineer at a small startup"]] - [:p "I had a previous career as a theatrical sound designer in New York City."]]))) - -(defn e-404 [] - (page - (html - [:<> - [:h1 "404 Oh, be some other path!"] - [:p "What's in a path? That which we call a page" - [:br] - "by any other path would fail to load"]]))) - -(defn pages [] - {home-uri home - books-2025-uri books-2025 - past-work-uri past-work - #_#_ - missionary-uri missionary - second-sex-uri second-sex}) - -(comment - (require '[repl :refer [restart build]]) - (restart) - (build)) -- cgit v1.2.3