     (target)
     (with-pass-thru _
       (host-process
-        (apply conch/proc
-          (format-commands
-            ["lumo"
-             "-c" (str "\"" (System/getProperty "fake.class.path") "\"")
-             "-k" "lumo_cache"
-             "-e" (str "\"(require '[mikron.core :as mikron "
-                       ":refer [schema defschema pack unpack gen valid?]])\"")
-             "-r"]))))))
+        (conch/proc
+          "lumo"
+          "-c" (str "\"" (System/getProperty "fake.class.path") "\"")
+          "-k" "lumo_cache"
+          "-e" (str "\"(require '[mikron.core :as mikron "
+                    ":refer [schema defschema pack unpack gen valid?]])\"")
+          "-r")))))


(def windows?
  (.startsWith (.toLowerCase (System/getProperty "os.name")) "windows"))

(defn format-commands
  [& commands]
  (->> (interleave commands (repeat [(if windows? "&" ";")]))
       (butlast)
       (apply concat)
       ((fn [commands]
          (if windows?
            commands
            [(str "'" (string/join " " commands) "'")])))
       (into (if windows? ["cmd" "/c"] ["sh" "-c"]))))

(defn run-commands
  [& commands]
  (->> commands
       (apply format-commands)
       (apply util/dosh)))

(defn fix-slashes
  [^String s]

        (with-pass-thru _
          (host-process
            (conch/proc
              "lumo"
              "-c" (System/getProperty "fake.class.path")
              "-k" "lumo_cache"
              "target/mikron/node.cljs"))))
      (comp
        (compile-cljs :id "node/index")
        (target)
        (with-pass-thru _
          (binding [util/*sh-dir* "target"]
            (util/dosh "node" "index.js")))))))

(deftask autotest
  "Runs the specified tests."
