First pass

5 files changed, 148 insertions, 47 deletions

diff --git a/.github/workflows/deploy.yml b/.github/workflows/deploy.yml
new file mode 100644
index 0000000..eb4048a
--- /dev/null
+++ b/.github/workflows/deploy.yml
@@ -0,0 +1,66 @@
+name: Build and Deploy to GitHub Pages
+
+on:
+  push:
+    branches: [ main ]
+  workflow_dispatch:
+
+permissions:
+  contents: read
+  pages: write
+  id-token: write
+
+concurrency:
+  group: "pages"
+  cancel-in-progress: false
+
+jobs:
+  build:
+    runs-on: ubuntu-latest
+    steps:
+    - name: Checkout
+      uses: actions/checkout@v4
+
+    - name: Setup Java
+      uses: actions/setup-java@v4
+      with:
+        distribution: 'temurin'
+        java-version: '17'
+
+    - name: Cache Clojure dependencies
+      uses: actions/cache@v4
+      with:
+        path: |
+          ~/.m2/repository
+          ~/.gitlibs
+          ~/.deps.clj
+        key: ${{ runner.os }}-clojure-${{ hashFiles('**/deps.edn') }}
+        restore-keys: |
+          ${{ runner.os }}-clojure-
+
+    - name: Install Clojure CLI tools
+      uses: DeLaGuardo/setup-clojure@12.5
+      with:
+        cli: 1.11.1.1429
+
+    - name: Build site
+      run: clojure -M -m core
+
+    - name: Setup Pages
+      uses: actions/configure-pages@v5
+
+    - name: Upload artifact
+      uses: actions/upload-pages-artifact@v3
+      with:
+        path: 'target/html'
+
+  deploy:
+    environment:
+      name: github-pages
+      url: ${{ steps.deployment.outputs.page_url }}
+    runs-on: ubuntu-latest
+    needs: build
+    steps:
+    - name: Deploy to GitHub Pages
+      id: deployment
+      uses: actions/deploy-pages@v4
diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..b877d15
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,17 @@
+.DS_Store
+.idea
+*.log
+tmp/
+
+/target
+/classes
+/checkouts
+profiles.clj
+pom.xml
+pom.xml.asc
+*.jar
+*.class
+/.lein-*
+/.nrepl-port
+/.prepl-port
+/.cpcache
diff --git a/deps.edn b/deps.edn
new file mode 100644
index 0000000..0a0f25b
--- /dev/null
+++ b/deps.edn
@@ -0,0 +1,3 @@
+{:paths ["" "src" "resources"]
+ :deps {org.clojure/clojure {:mvn/version "1.12.0"}
+        io.github.borkdude/html {:mvn/version "0.2.2"}}}
diff --git a/index.sh b/index.sh
deleted file mode 100755
index 3133a2a..0000000
--- a/index.sh
+++ /dev/null
@@ -1,47 +0,0 @@
-#!/bin/zsh
-
-SCRIPT_FILE="$0"
-SCRIPT_CONTENT=$(<"$SCRIPT_FILE")
-
-http_response() {
-    local content_length=$(wc -c < "$SCRIPT_FILE")
-    printf "HTTP/1.1 200 OK\r\n"
-    printf "Content-Type: text/plain\r\n"
-    printf "Content-Length: %d\r\n" "$content_length"
-    printf "Connection: close\r\n"
-    printf "\r\n"
-    printf "%s" "$SCRIPT_CONTENT"
-}
-
-handle_client() {
-    while tcp_read; do
-        line=${TCP_LINE%$'\r'}
-        [[ -z "$line" ]] && break
-    done
-    
-    tcp_send "$(http_response)"
-    
-    tcp_close
-}
-
-# Load zsh's TCP module and functions
-zmodload zsh/net/tcp
-autoload -U tcp_open tcp_read tcp_send tcp_close
-
-# Clean up background processes on exit
-cleanup() {
-    jobs -p | xargs -r kill
-    tcp_close -a
-    exit 0
-}
-trap cleanup INT TERM
-
-# Create listening socket once
-ztcp -l 8082
-server_fd=$REPLY
-
-while true; do
-    if tcp_open -a $server_fd; then
-        handle_client
-    fi
-done
diff --git a/src/core.clj b/src/core.clj
new file mode 100644
index 0000000..f13531e
--- /dev/null
+++ b/src/core.clj
@@ -0,0 +1,62 @@
+(ns core
+  (:require [borkdude.html :refer [html]]
+            [clojure.java.io :as io]
+            [clojure.string :as str]))
+
+(defn template [body]
+  (html [:html [:head] [:body [:<> body]]]))
+
+(defn home []
+  (template
+   (html
+    [:h1 "home"])))
+
+(defn about []
+  (template
+   (html
+    [:h1 "about"])))
+
+(defn this-life
+  "blog post about this life"
+  []
+  (template
+   (html
+    [:h1 "This life"])))
+
+(defn something-else
+  "blog post about something else"
+  []
+  (template
+   (html
+    [:h1 "Something else"])))
+
+(something-else)
+
+(def pages
+  {"/" home
+   "/about2" about
+   "/blog/this-life" this-life
+   "/blog/something-else" something-else})
+
+(defn clean []
+  (let [target-dir (io/file "target")]
+    (when (.exists target-dir)
+      (doseq [file (file-seq target-dir)
+              :when (.isFile file)]
+        (io/delete-file file))
+      (doseq [dir (reverse (filter #(.isDirectory %) (file-seq target-dir)))
+              :when (not= dir target-dir)]
+        (.delete dir)))))
+
+(defn compile []
+  (doseq [[path page-fn] pages]
+    (let [target-path (if (= path "/")
+                        "target/html/index.html"
+                        (str "target/html" path "/index.html"))
+          target-file (io/file target-path)]
+      (io/make-parents target-file)
+      (spit target-file (str (page-fn))))))
+
+(defn -main []
+  (clean)
+  (compile))