From 1217c428b007087aa37e63fed7257fcec33b820e Mon Sep 17 00:00:00 2001 From: G Date: Sun, 9 Mar 2025 05:42:56 -0500 Subject: [PATCH] add base for backend --- src/main/backend/server.clj | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100644 src/main/backend/server.clj diff --git a/src/main/backend/server.clj b/src/main/backend/server.clj new file mode 100644 index 0000000..32b016f --- /dev/null +++ b/src/main/backend/server.clj @@ -0,0 +1,19 @@ +(ns server + (:require [ring.middleware.resource :refer [wrap-resource]] + [ring.middleware.defaults :refer [wrap-defaults site-defaults]] + [compojure.core :refer [routes defroutes GET POST]] + [org.httpkit.server :as server])) + +(defroutes app-routes + (GET "/api/data" [] {:status 200 :headers {"Content-Type" "application/json"} :body "{\"message\": \"Something I guess\"}"}) + (POST "/api/data" [data] {:status 200 :headers {"Content-Type" "application/json"} :body (str "{\"received\": \"" data "\"}")}) + (GET "*" [] {:status 404 :headers {"Content-Type" "text/plain"} :body "Not Found"})) + +(def app + (-> (routes app-routes) + (wrap-resource "") + (wrap-defaults site-defaults))) + +(defn -main [] + (println "Server running at http://localhost:8080") + (server/run-server app {:port 8080}))