                                                       (:id node))
                                                 (add-as-child? event node))
                              :drag-path path)))})
-
-(defn remove-click [node path]
-  (fn [] (println "Remove" node path)))
 
 (defn mouse-down [node path]
   (fn [event]

       [placeholder display path])
     (if-not (empty? (:children node))
       (for [[pos child] (map vector (range) (:children node))]
         [tree-node child (conj path pos) display false]))]
    (if-not (or is-root? (:add-as-child @state))
      [placeholder display path])]])


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