yoyo with cont-m from algo.monads

yoyo-algo-monads.clj

(require '[clojure.algo.monads :refer :all])

(defn with-something
  [config]
  (fn [cc]
    (prn (str "setting up something: " (pr-str config)))
    (let [r (cc :something)]
      (prn "tearing down something")
      r)))

(defn with-other-thing
  [config]
  (fn [cc]
    (prn (str "setting up other-thing: " (pr-str config)))
    (let [r (cc :other-thing)]
      (prn "tearing down other-thing")
      r)))

(def s (domonad
        cont-m
        [config (m-result {:foo 10})
         a (with-something config)
         b (with-other-thing (merge config {:bar a}))]
        [config a b]))

(def p (promise))
(def r (future
         (s (fn [v] (prn (str "running system with: " (prn-str v))) (deref p)))))

(deliver p :hi!)
@p