Getting call graph (vars structure) in Clojure

user.clj

(ns user)
; Hey, I've been playing a bit with graphing out the structure of a module for Lightpad.
; It worked well, I've found the target function that I'll need change to add a new feature.
; Tweet with a screenshot https://twitter.com/spacegangster/status/1324760381735272450

; lein coordinate 
; [com.gfredericks/clj-usage-graph "0.3.0"]
; https://github.com/gfredericks/clj-usage-graph


(defn gcal-graph []
  (let [graph-desc
        (with-out-str
          (clj-graph/var-graph
            "gcal-embassy/src/gcal_embassy/gcal_api.clj"
            "gcal-embassy/src/gcal_embassy/logic.clj"
            "gcal-embassy/src/gcal_embassy/persist.clj"
           ;"gcal-embassy/src/gcal_embassy/persist__digest_event.clj"
            "gcal-embassy/src/gcal_embassy/polling.clj"
            "gcal-embassy/src/gcal_embassy/push.clj"
            "gcal-embassy/src/gcal_embassy/sync_facade.clj"))]
    (spit "gcal-embassy/call-graph.gv" graph-desc)
    (let [cwd (System/getProperty "user.dir")]
      (clojure.java.shell/sh "dot" "-Tsvg" "-o" "call-graph.svg"
                :in graph-desc
                :dir (str cwd  "/gcal-embassy"))))
  
  (comment
    (gcal-graph))