graph_bot.clj

(time (let [baos (ByteArrayOutputStream.)
            data [[:foo :bar]]]
        (-> (apply uber/multidigraph data)
            (uber/viz-graph {:save {:format   :svg
                                    :filename baos}}))
        (-> (xml/parse (io/input-stream (.toByteArray baos)))
            (assoc-in [:attrs :data] (pr-str data))
            (xml/emit-str)
            (.getBytes)
            (io/input-stream)
            (xml/parse)
            :attrs
            :data
            edn/read-string)))