(ns auto-ap.datomic.ledger
  (:require [datomic.api :as d]
            [auto-ap.datomic :refer [uri]]))

(defn get-graphql [args]
  (->> (d/q '[:find (pull ?e [* {:general-ledger/client [:client/name :client/code :db/id]
                                 :general-ledger/vendor [:vendor/name :db/id]
                                 }])
              :where [?e :general-ledger/original-entity]]
            (d/db (d/connect uri)))
       (map first)))