13 lines
453 B
Clojure
13 lines
453 B
Clojure
(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)))
|
|
|