39 lines
1.8 KiB
Clojure
39 lines
1.8 KiB
Clojure
(ns auto-ap.graphql.accounts
|
|
(:require [datomic.api :as d]
|
|
[auto-ap.datomic.accounts :as d-accounts]
|
|
[auto-ap.graphql.utils :refer [->graphql <-graphql] ]
|
|
[auto-ap.datomic :refer [uri merge-query remove-nils]]))
|
|
|
|
(defn get-accounts [context args value]
|
|
(->graphql (d-accounts/get-accounts (<-graphql args))))
|
|
|
|
(defn upsert-account [context args value]
|
|
(let [{{:keys [id numeric-code account-set name type]} :account} (<-graphql args)]
|
|
(when-not id
|
|
(when (seq (d/query {:query {:find ['?e]
|
|
:in '[$ ?account-set ?numeric-code]
|
|
:where ['[?e :account/account-set ?account-set]
|
|
'[?e :account/numeric-code ?numeric-code]]}
|
|
:args [(d/db (d/connect uri)) account-set numeric-code]}))
|
|
|
|
(throw (ex-info (str "Account set " account-set " already has an account for code " numeric-code)
|
|
{} ))))
|
|
|
|
(let [
|
|
result @(d/transact (d/connect uri)
|
|
[(remove-nils
|
|
{:db/id (or id "new-account")
|
|
:account/name name
|
|
:account/type (keyword "account-type" (clojure.core/name type))
|
|
:account/account-set account-set
|
|
:account/numeric-code (if-not id
|
|
numeric-code)
|
|
:account/code (if-not id
|
|
(str numeric-code))})])]
|
|
(->graphql
|
|
(if id
|
|
(:account args)
|
|
(assoc (:account args)
|
|
:id (get-in result [:tempids "new-account"])))))))
|
|
|