Recreate hierarchy

gistfile1.clj

;; This one is inadequate, kept for history, use the one in the second file. 

(defn sort-hierarchy [coll]
  (if (every? #(= (count %) 1) coll)
    [:files (map first coll)]
    (map (fn [x] 
           [(ffirst x) (sort-hierarchy (map rest x))]) (partition-by first coll))))

(defn hash-hierarchy [coll]
  (if (= (first coll) :files)
    (last coll)
    (apply merge (map (fn [x] {(first x) (hash-hierarchy (last x))}) coll))))

(defn restore-hierarchy [coll]
  (-> coll sort-hierarchy hash-hierarchy))

gistfile2.clj

(defn restore-hierarchy [coll]
  (let [files (map first (filter #(= (count %) 1) coll))
        levels (remove #(= (count %) 1) coll)]
       (merge 
        (if (empty? files) {} {:files files})
        (apply merge
               (map (fn [x]
                        {(ffirst x) (restore-hierarchy (map rest x))})      
                    (partition-by first levels))))))