 (defn modal-show [app]
   (om/transact!
    app :show
-   (fn [i] (if i (inc i) 0))))
+   (fn [i] (if i (inc i) 1))))
 
 (defn modal-hide [app]
   (om/transact!

    om/IWillUnmount
    (will-unmount [_]
      (swap! modals-status disj (om/get-state owner :id)))
    om/IRenderState
    (render-state [this {id :id}]
      (println "modal id:" id)
      (let [show? (:show app)]
        (swap! modals-status (if show? conj disj) id)
        (dom/div #js {:aria-hidden "true"
                      :aria-labelledby label
                      :style (if show?
                               #js {:display "block" :paddingLeft 0}

     (let[tag-body (aget (query "body") 0)]
       (if (empty? new)
         (goog.dom.classes/remove tag-body "modal-open")
         (goog.dom.classes/add    tag-body "modal-open")))

     (let [d (clojure.set/difference new old)]
       (when (not (empty? d))
         (let [new-dialog-id (first d)]
           (println "Открылся " new-dialog-id)))))))

(defn modal [app owner {:keys [label
                               header
