Monad-like helpers to run spire's shell commands emulating `-e` (exit on error)

shell-exit-on-error.clj

(require '[spire.module.shell :refer [shell]])

;; >>= :: m a -> (a -> m b) -> m b
(defn >>= [{:keys [result out-lines] :as prev} f]
  (if (= result :ok)
    (f out-lines)
    prev))

;; return :: a -> m a
(defn return [cmd]
  (shell {:cmd cmd}))

;; liftm :: (a -> b) -> m a -> m b
(defn liftm [f ma]
  (>>= ma (comp return f)))

(defmacro dom [bindings & body]
  (if (= (count bindings) 0)
    `(do ~@body)
    `(>>= ~(bindings 1)
          (fn [~(bindings 0)]
            (dom ~(subvec bindings 2) ~@body)))))