(defn get-examples
([ns-sym var-sym]
(let [examples (get-in @ex/registry-ref [ns-sym var-sym])]
(vec
(for [i (range (count examples))]
(-> (get examples i)
u/process-example
(assoc :id (str ns-sym "/" var-sym "/" i)))))))
([ns-sym]
(reduce
(fn [m [k v]]
(assoc m k {:sym k
:examples (vec
(for [i (range (count v))]
(-> (get v i)
u/process-example
(assoc :id (str ns-sym "/" k "/" i)))))}))
{}
(get @ex/registry-ref ns-sym))))