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 --- home/dev/repl.clj | 41 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 41 insertions(+) create mode 100644 home/dev/repl.clj (limited to 'home/dev/repl.clj') diff --git a/home/dev/repl.clj b/home/dev/repl.clj new file mode 100644 index 0000000..ced6fae --- /dev/null +++ b/home/dev/repl.clj @@ -0,0 +1,41 @@ +(ns repl + (:require [core :refer [-main]] + [ring.adapter.jetty :as jetty] + [ring.middleware.file :as file] + [ring.middleware.content-type :as content-type] + [ring.util.response :as response])) + +(defonce server (atom nil)) + +(defn app [request] + (or ((file/wrap-file identity "target/html") request) + (response/not-found "Not Found"))) + +(def handler + (-> app + content-type/wrap-content-type)) + +(defn start [] + (when-not @server + (reset! server (jetty/run-jetty handler {:port 8080 :join? false})) + (println "Server started on http://localhost:8080"))) + +(defn stop [] + (when @server + (.stop @server) + (reset! server nil) + (println "Server stopped"))) + +(defn restart [] + (stop) + (start)) + +(defn serve [] + (start)) + +(defn build [] + (-main)) + +(comment + (restart) + (build)) -- cgit v1.2.3