Makes accounts not loaded.

src/clj/auto_ap/datomic/accounts.clj

@@ -1,7 +1,11 @@
 (ns auto-ap.datomic.accounts
-  (:require [datomic.api :as d]
-            [auto-ap.graphql.utils :refer [->graphql]]
-            [auto-ap.datomic :refer [uri merge-query conn]]))
+  (:require
+   [auto-ap.datomic
+    :refer [add-sorter-fields apply-pagination apply-sort-3 conn merge-query uri]]
+   [clojure.string :as str]
+   [datomic.api :as d]
+   [clojure.tools.logging :as log]))
+
 (defn <-datomic [a]
   (update a :account/applicability :db/ident))
 
@@ -86,4 +90,50 @@
      (map <-datomic)
      (first))))
 
-#_(get-account-by-numeric-code-and-sets 5110 nil)
+(defn raw-graphql-ids [db args]
+  (println args)
+  (let [query (cond-> {:query {:find []
+                               :in ['$]
+                               :where []}
+                       :args [db]}
+                (:sort args) (add-sorter-fields {"name" ['[?e :account/name ?sort-name]]}
+                                                args)
+
+                (:numeric-code args)
+                (merge-query {:query {:in    ['?numeric-code]
+                                      :where ['[?e :account/numeric-code ?numeric-code]]}
+                              :args  [(:numeric-code args)]})
+
+                (not (str/blank? (:name-like args)))
+                (merge-query {:query {:in    ['?name-like]
+                                      :where ['[?e :account/name ?n]
+                                              '[(re-find ?name-like ?n)]]}
+                              :args  [(re-pattern (str "(?i)" (:name-like args)))]})
+
+                true
+                (merge-query {:query {:find  ['?sort-default '?e ]
+                                      :where ['[?e :account/name]
+                                              '[?e :account/numeric-code ?sort-default]]}}))]
+
+    
+    (cond->> query
+      true (d/query)
+      true (apply-sort-3 args)
+      true (apply-pagination args))))
+
+
+(defn graphql-results [ids db args]
+  (let [results (->> (d/pull-many db default-read ids)
+                     (group-by :db/id))
+        accounts (->> ids
+                     (map results)
+                     (map first)
+                     (map <-datomic))]
+    accounts))
+
+(defn get-graphql [args]
+  (log/info "ARGS" args)
+  (let [db                                           (d/db conn)
+        {ids-to-retrieve :ids matching-count :count} (raw-graphql-ids db args)]
+    [(->> (graphql-results ids-to-retrieve db args))
+     matching-count]))