comp.clj

(defn comp-decision [^Boolean truthyness fns]
  (fn [initial-ctx]
    (reduce
     (fn [ctx decision-fn]
       (let [decision (decision-fn ctx)
             result (if (vector? decision) (first decision) decision)
             context-update (if (vector? decision) (second decision) decision)]
         (if (= truthyness (boolean result))
           (liberator.core/update-context ctx context-update)
           (reduced decision))))
     initial-ctx
     fns)))

(defn comp-pos-decision [& fns]
  (comp-decision true fns))

(defn comp-neg-decision [& fns]
  (comp-decision false fns))