From b13e679aa5370d1e27cf7037e0f0a325bdf018cc Mon Sep 17 00:00:00 2001
From: Tim <contact@bytim.eu>
Date: Sun, 20 Apr 2025 23:26:33 +0200
Subject: Initial commit
---
src/pics/core.clj | 10 ++++++++++
src/pics/handler/home.clj | 5 +++++
src/pics/routes.clj | 10 ++++++++++
3 files changed, 25 insertions(+)
create mode 100644 src/pics/core.clj
create mode 100644 src/pics/handler/home.clj
create mode 100644 src/pics/routes.clj
(limited to 'src/pics')
diff --git a/src/pics/core.clj b/src/pics/core.clj
new file mode 100644
index 0000000..68826f9
--- /dev/null
+++ b/src/pics/core.clj
@@ -0,0 +1,10 @@
+(ns pics.core
+ (:require [org.httpkit.server :as http-server]
+ [pics.routes :as proutes]
+ [dotenv :as env])
+ (:gen-class))
+
+(defn -main [& args]
+ (let [port (or (env/env "PORT") 8080)]
+ (println (str "Starting server on port " port "..."))
+ (http-server/run-server proutes/ring-handler {:port port})))
diff --git a/src/pics/handler/home.clj b/src/pics/handler/home.clj
new file mode 100644
index 0000000..a02ec33
--- /dev/null
+++ b/src/pics/handler/home.clj
@@ -0,0 +1,5 @@
+(ns pics.handler.home
+ (:require [ring.util.response :as ruresp]))
+
+(defn handle [req]
+ (ruresp/not-found "Coming soon..."))
diff --git a/src/pics/routes.clj b/src/pics/routes.clj
new file mode 100644
index 0000000..67793f9
--- /dev/null
+++ b/src/pics/routes.clj
@@ -0,0 +1,10 @@
+(ns pics.routes
+ (:require [reitit.ring :as rring]
+
+ [pics.handler.home :as phhome]))
+
+(def ^:private router
+ (rring/router [["/" {:get {:handler phhome/handle}}]]))
+
+(def ring-handler
+ (rring/ring-handler router))
--
cgit v1.2.3