      (mapv (fn [ch-ch-info]
              (let [ch-info (second ch-ch-info)
                    ch-id (:id ch-info)]
-               (assign-position positions ch-id)
                ["<li id='ch-" ch-id "'>" ch-id ": " (:msgs ch-info) "</li>"]))
            (get actx-ch-ch-infos actx))
      "</ul></div>"
      ["<ul>" (mapv (fn [child-actx]
-                     ["<li>" (vis-html-actx vis child-actx positions actx-ch-ch-infos)
+                     ["<li>" (vis-html-actx vis child-actx
+                                            actx-ch-ch-infos (:closed actx-info))
                       "</li>"])
                    (sort #(compare (last %1) (last %2)) (keys children)))
       "</ul>"]

  ; (swap! positions (fn [x] (merge {id (count x)} x)))
  (swap! positions #(update-in % [id] (fn [v] (if v v (count %))))))

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

(defn vis-html-ch [vis ch]

                                                               deltas :prev))))
          (when (> @event-delay 0) (<! (timeout @event-delay)))
          (when (< @event-delay 0) (<! step-ch)))
        (assign-positions @vis @root-actx vis-positions actx-ch-ch-infos false)
        (set-el-innerHTML (str el-prefix "-html")
                          (apply str (flatten (vis-html-actx @vis @root-actx
                                                             actx-ch-ch-infos false))))
        (set-el-innerHTML (str el-prefix "-svg")
                          (apply str (flatten (vis-svg-actxs @vis @vis-positions
                                                             deltas :curr))))
