ClojureScript Integrant REPL

user.cljs

(ns cljs.user
  (:require-macros [x.macros :as m])
  (:require [integrant.core :as ig]))

(enable-console-print!)

(def config (m/read-config "config.edn"))
(def system nil)

(defn- halt-system [system]
  (when system (ig/halt! system)))

(defn- build-system [build wrap-ex]
  (try
    (build)
    (catch ExceptionInfo ex
      (if-let [system (:system (ex-data ex))]
        (try
          (ig/halt! system)
          (catch ExceptionInfo halt-ex
            (throw (wrap-ex ex halt-ex)))))
      (throw ex))))

(defn- init-system [config]
  (build-system
    #(ig/init config)
    #(ex-info "Config failed to init; also failed to halt failed system"
              {:init-exception %1}
              %2)))

(defn go []
  (halt-system system)
  (set! system (init-system config))
  :initiated)

(defn halt []
  (halt-system system)
  (set! system nil)
  :halted)

(defn reset []
  (halt)
  (go))