can edit accounts.

src/clj/auto_ap/graphql/accounts.clj

@@ -2,8 +2,20 @@
   (: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]]))
+            [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]
+  @(d/transact (d/connect uri)
+              [(remove-nils
+                {:db/id (:id (:account args))
+                 :account/name (:name (:account args))
+                 :account/type (keyword "account-type" (name (:type (:account args))))
+                 :account/account-set (:account_set (:account args))
+                 :account/numeric-code (if-not (:id (:account args))
+                                         (:numeric_code (:account args)))
+                 })])
+  (:account args))
+