diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/pics/core.clj | 10 | ||||
-rw-r--r-- | src/pics/handler/home.clj | 5 | ||||
-rw-r--r-- | src/pics/routes.clj | 10 |
3 files changed, 25 insertions, 0 deletions
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)) |