                       <>))
            [])
    :set (if tags
-          (-> summary
-              :set
-              (or #{})
-              (conj tags))
+          (-<> summary
+               :set
+               (or #{})
+               (apply conj <> tags))
           #{})})
 
 (defn merge-children-tag-summary

  ((or *get-tags-mz* get-tags)
   node
   pred-map))

#_ (get-tags' {:id 1} {:a #(-> % :id #{1}) :b #(-> % :id #{1})})

(defn insert-tags-into-parent-tag-summary
  [& [tags summary]]

              (right-sib-zips d))
    []))

(defn set-zip-children
  [z c]
  (z/edit z #(z/make-node z
