    ::pcrg/available-data    {}
    ::p/placeholder-prefixes #{">"}})
 
-(defn render-graph [{::pcrg/keys [nodes root] :as graph}]
+(defn render-graph [{::pcrg/keys [nodes root] :as graph} env]
   (let [edges (into []
                     (mapcat
                       (fn [{::pcrg/keys [run-next node-id] :as node}]

    (io/copy (tangle/dot->image dot "png") (io/file "out.png"))
    graph))

(defn compute-run-graph* [{::keys     [resolvers out]
                           ::eql/keys [query]
                           :as        options}]
  (pcrg/compute-run-graph
    (merge (pcrg/base-out) out)
    (cond-> (merge (base-graph-env)
                   (-> options
                       (dissoc ::eql/query)
                       (assoc :edn-query-language.ast/node (eql/query->ast query))))
      resolvers
      (pc/merge-indexes (register-index resolvers)))))

(defn compute-run-graph [{::keys     [render-graphviz? time?]
                          :or        {render-graphviz? true
                                      time?            false}
                          :as        options}]
  (cond->
    (if time?
      (time (compute-run-graph* options))
      (compute-run-graph* options))
    render-graphviz?
    (render-graph)))

(deftest test-compute-root-or
  (testing "set root when no root is the current"

                                                         (or (::pc/sym node)
                                                             (if (::pcrg/run-and node) "AND")
                                                             (if (::pcrg/run-or node) "OR")))}
                                         (get-in env [::pc/index-resolvers (::pc/sym node) ::pc/dynamic-resolver?])
                                         (assoc
                                           :style "filled"
                                           :fontcolor "white"
                                           :fillcolor "black")

                                         (::pcrg/run-and node)
                                         (assoc
                                           :style "filled"
