(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"])))))))