    (if (and (:in-tree? @mouse) (:dragging? @mouse))
      [display (:drag-node @state) (:drag-path @state)])])
 
-(defn attach-node-attr [block node path]
+(defn attach-node-attr [block node path root-node]
   (if (and (vector? block)
            (map? (second block)))
     (assoc block 1

      [:div
       {:class (visible-if (not= (:id node)
                                 (get-in @state [:drag-node :id])))}
       (let [b (-> (display node path) (set-attrs node path))]
         b)])
    [:div.children
     {:class (visible-if (not= (:id node)
                               (get-in @state [:drag-node :id])))}

                                  (swap! mouse assoc :down? false))))


(defn tree-node [node path display root-node is-root?]
  [:div
   ^{:key (:id node)}
   (node-attr node path)
