graph-fnk-viz.clj

(require '[graph-fnk-viz :as viz] ;; git clone https://github.com/RedBrainLabs/graph-fnk-viz then lein install
         'plumbing.graph
         ;; Namespaces of graphs
         '…)

(def graphs
  "Would be wonderful if these graphs would be programmatically found with static code analysis.
So we could run this snippet once in a while and store files in a doc/."
  ['…])

(defn- os-specific-file-name
  [would-be-name]
  would-be-name)

(def save-directory "/tmp/graph-svg/")

(defn- graph-filename
  [graph]
  (os-specific-file-name (str save-directory graph ".svg")))

(defn- graph->svg!
  [graph]
  (let [filename (graph-filename graph)]
    (clojure.java.io/make-parents filename)
    (println (name graph))
    (viz/save-svg (eval graph) filename)))

(defn- get-*pwd*
  []
  (.getParent (java.io.File. *file*)))

(do
  (println "Current directory: " (get-*pwd*))
  (doseq [g graphs]
    (graph->svg! g)))