From a921181505370e8db61d79606d8530105022ff18 Mon Sep 17 00:00:00 2001 From: Jake Zerrer Date: Tue, 12 Aug 2025 10:49:35 -0400 Subject: Create repl workflow --- dev/repl.clj | 38 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 38 insertions(+) create mode 100644 dev/repl.clj (limited to 'dev') diff --git a/dev/repl.clj b/dev/repl.clj new file mode 100644 index 0000000..dc9dc43 --- /dev/null +++ b/dev/repl.clj @@ -0,0 +1,38 @@ +(ns repl + (:require [core :refer [-main] :rename {-main build}] + [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)) + +(comment + (restart) + (build)) -- cgit v1.2.3