 (println cbfg.ddl/hi)
 
 ;; ------------------------------------------------
+
+(defn no-prefix [s] (string/join "-" (rest (string/split s #"-"))))
 
 (defn get-el-value [elId] (.-value (gdom/getElement elId)))
 

           (make-fenced-pump world in-ch out-ch @max-inflight)))
    (let [toggle-ch (listen (gdom/getElement (str el-prefix "-html")) "click")]
      (go-loop []
        (let [actx-id (string/join "-" (rest (string/split (.-id (.-target (<! toggle-ch)))
                                                           #"-")))]
          (doseq [[actx actx-info] (:actxs @vis)]
            (when (= actx-id (last actx))
              (swap! vis #(assoc-in % [:actxs actx :closed] (not (:closed actx-info))))))

                                      (put! step-ch true))}]
    (go-loop [run-control-ch (merge (map #(listen (gdom/getElement (str el-prefix "-" %)) "click")
                                         (keys run-controls)))]
      ((get run-controls (no-prefix (.-id (.-target (<! run-control-ch))))))
      (recur run-control-ch))))

;; ------------------------------------------------
