15 lines
424 B
Clojure
15 lines
424 B
Clojure
(ns proto-play
|
|
(:require [mount.tools.graph :as mg]
|
|
[proto-repl-charts.graph :as proto]))
|
|
|
|
(defn mount->proto [graph]
|
|
(reduce (fn [g {:keys [name deps]}]
|
|
(-> g
|
|
(update :nodes conj name)
|
|
(update :edges conj (-> deps (conj name) vec))))
|
|
{}
|
|
graph))
|
|
|
|
(->> (mg/states-with-deps)
|
|
mount->proto
|
|
(proto/graph "a proto graph of mount states"))
|