Add main function

Signed-off-by: Sebastian Crane <seabass-labrax@gmx.com>
2022-02-19 23:20:52 +00:00 · 2022-02-19 23:20:52 +00:00 · 7857a1acf5
parent a2a041c9d1
commit 7857a1acf5
1 changed files with 6 additions and 0 deletions
--- a/src/system.clj
+++ b/src/system.clj
@ -60,3 +60,9 @@
    (swap! system-atom stop)
    (reset! system-atom (system))
    (swap! system-atom start)))
+
+(defn -main [& args]
+  (let [main-system (atom (system/system))]
+    (swap! main-system system/start)
+    (.addShutdownHook (Runtime/getRuntime)
+                      (Thread. (partial swap! main-system stop)))))