From 98056e815a6dcd36d7377d3cd823a4aaf5a3d9fa Mon Sep 17 00:00:00 2001
From: "Gabriel A. Giovanini" <mail@gabrielgio.me>
Date: Sat, 17 Feb 2018 13:55:55 -0200
Subject: Initial commit

---
 env/dev/clj/queue_api/dev_middleware.clj | 10 ++++++++++
 env/dev/clj/queue_api/env.clj            | 14 ++++++++++++++
 env/dev/clj/user.clj                     | 16 ++++++++++++++++
 3 files changed, 40 insertions(+)
 create mode 100644 env/dev/clj/queue_api/dev_middleware.clj
 create mode 100644 env/dev/clj/queue_api/env.clj
 create mode 100644 env/dev/clj/user.clj

(limited to 'env/dev/clj')

diff --git a/env/dev/clj/queue_api/dev_middleware.clj b/env/dev/clj/queue_api/dev_middleware.clj
new file mode 100644
index 0000000..ece7a25
--- /dev/null
+++ b/env/dev/clj/queue_api/dev_middleware.clj
@@ -0,0 +1,10 @@
+(ns queue-api.dev-middleware
+  (:require [ring.middleware.reload :refer [wrap-reload]]
+            [selmer.middleware :refer [wrap-error-page]]
+            [prone.middleware :refer [wrap-exceptions]]))
+
+(defn wrap-dev [handler]
+  (-> handler
+      wrap-reload
+      wrap-error-page
+      wrap-exceptions))
diff --git a/env/dev/clj/queue_api/env.clj b/env/dev/clj/queue_api/env.clj
new file mode 100644
index 0000000..1f31ba5
--- /dev/null
+++ b/env/dev/clj/queue_api/env.clj
@@ -0,0 +1,14 @@
+(ns queue-api.env
+  (:require [selmer.parser :as parser]
+            [clojure.tools.logging :as log]
+            [queue-api.dev-middleware :refer [wrap-dev]]))
+
+(def defaults
+  {:init
+   (fn []
+     (parser/cache-off!)
+     (log/info "\n-=[queue-api started successfully using the development profile]=-"))
+   :stop
+   (fn []
+     (log/info "\n-=[queue-api has shut down successfully]=-"))
+   :middleware wrap-dev})
diff --git a/env/dev/clj/user.clj b/env/dev/clj/user.clj
new file mode 100644
index 0000000..843b558
--- /dev/null
+++ b/env/dev/clj/user.clj
@@ -0,0 +1,16 @@
+(ns user
+  (:require 
+            [mount.core :as mount]
+            [queue-api.core :refer [start-app]]))
+
+(defn start []
+  (mount/start-without #'queue-api.core/repl-server))
+
+(defn stop []
+  (mount/stop-except #'queue-api.core/repl-server))
+
+(defn restart []
+  (stop)
+  (start))
+
+
-- 
cgit v1.2.3