vbedegi

(use 'clojure.core.async)


;this is the function you want to use
(defn lazy-channels [chs]
   (lazy-seq (cons (let [ [v _] (alts!! chs)] v) (lazy-channels chs))))


;now for the tesging
(def chs [ (chan) (chan) (chan) ]) ; the channels can come from anywhere, here we are using three channels for testing

vbedegi

[
     {
        "id": "tools",
        "children":
        [{
            "caption": "SublimeREPL",
            "mnemonic": "r",
            "id": "SublimeREPL",
            "children":
            [

vbedegi

(def react-sortable-hoc (aget js/window "deps" "react-sortable-hoc"))

(defn make-sortable-element-component [wrapped-component]
  (let [sortable-element-factory (.-SortableElement react-sortable-hoc)]
    (-> wrapped-component
        r/reactify-component
        sortable-element-factory
        r/adapt-react-class)))

(defn make-sortable-container-component [wrapped-component]

vbedegi

; util

(defn tag-dispatch [dispatch tag]
  (fn [msg]
    (let [tagged (if (vector? tag)
                   (conj tag msg)
                   [tag msg])]
      (dispatch tagged))))

; counter