gistfile1.clj

(defn flatten-preprocessed-node
  "convert preprocessed tree to linear sequence of items"
  [[node-attrs children]]
  (let [node-flags (:Flags node-attrs)
        is-after (:after node-flags)
        node-attrs-1 (update-in node-attrs [:Name] #(or % get-default-node-name))
        ;node-name (or (:Name node-attrs) get-default-node-name)
        flatten-children (mapcat flatten-preprocessed-node children)]
    (if is-after ;move node after children in output seq and in :Sort (index-path)
      (vec (concat flatten-children [(update-in node-attrs-1 [:Path] conj 9999)]))
      (vec (concat [node-attrs-1] flatten-children)))))