allpaths.cljs

(defprotocol KeyAddressable
  (kv-seq [this]))

(extend-protocol KeyAddressable
  cljs.core/PersistentVector
  (kv-seq [v] (map-indexed (fn [n x] [n x]) v))

  cljs.core/PersistentArrayMap
  (kv-seq [x] (seq x))

  cljs.core/PersistentHashMap
  (kv-seq [x] (seq x))

  default
  (kv-seq [x] []))


(defn all-paths [coll]
  (mapcat (fn [[key val]]
            (let [ps (all-paths val)]
              (if (empty? ps)
                [[key]]
                (map (partial cons key) ps))))
          (kv-seq coll)))