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/components.clj | 50 -------------------------------------------------- 1 file changed, 50 deletions(-) delete mode 100644 src/components.clj (limited to 'src/components.clj') diff --git a/src/components.clj b/src/components.clj deleted file mode 100644 index ed0444d..0000000 --- a/src/components.clj +++ /dev/null @@ -1,50 +0,0 @@ -(ns components - (:require [borkdude.html :refer [html]] - [highlight :refer [highlight-styles]])) - -(defn template [body] - (html - [:html - {:style {:font-family "monospace"}} - [:head - [:style - [:$ - (str - (highlight-styles :code "default") - (highlight-styles :output "default") - "li { line-height: 1.6; }" - "p { line-height: 1.6; font-family: Palatino; }" - ".page-body p { max-width: 44em; }" - ".page-body blockquote { max-width: 44em; }" - ".highlight { padding: 1px; padding-left: 6px; }")]] - [:meta {:charset "UTF-8"}]] - [:body - [:<> body] - [:footer - [:br] - [:br] - [:p "---"] - [:span - [:a {:href "https://github.com/telekid/jakezerrer"} "page src"] - " | " - [:a {:href "mailto:contact@jakezerrer.com?subject=Blog post"} "contact me"]]]]])) - -(defn page [body] - (template - (html - [:<> - [:p [:a {:href "/"} "< home"]] - [:div {:class "page-body"} - body]]))) - -(defn blockquote [body [from to]] - (html - [:figure - {:style {:margin-left "0" :margin-bottom "2"}} - [:blockquote - body] - [:figcaption - (html - (if (nil? to) - (html [:<> (str "p. " from)]) - (html [:<> (str "pp. " from "-" to)])))]])) -- cgit v1.2.3