From d6f68e919db51d366c8ca3c1509bea12aa81d692 Mon Sep 17 00:00:00 2001
From: Cédric <cedric.pineau@taelys.com>
Date: Mon, 14 Oct 2024 22:16:11 +0200
Subject: Add clojure evaluator

---
 clojure/src/lccl/fwk/middlewares.clj | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 clojure/src/lccl/fwk/middlewares.clj

(limited to 'clojure/src/lccl/fwk')

diff --git a/clojure/src/lccl/fwk/middlewares.clj b/clojure/src/lccl/fwk/middlewares.clj
new file mode 100644
index 0000000..973cffc
--- /dev/null
+++ b/clojure/src/lccl/fwk/middlewares.clj
@@ -0,0 +1,15 @@
+(ns lccl.fwk.middlewares
+  (:require [ring.middleware.reload :as reload]))
+
+; https://bogoyavlensky.com/blog/auto-reloading-ring/
+(defn reloading-ring-handler
+  "Reload ring handler on each request."
+  [f]
+  (let [reload! (#'reload/reloader ["src"] true)]
+    (fn
+      ([request]
+       (reload!)
+       ((f) request))
+      ([request respond raise]
+       (reload!)
+       ((f) request respond raise)))))
\ No newline at end of file
-- 
cgit v1.2.3