Made tweaks to support datomic

src/clj/auto_ap/ssr/company_dropdown.clj

@@ -6,15 +6,15 @@
    [auto-ap.ssr.components.navbar-dropdown :refer [navbar-dropdown]]
    [auto-ap.ssr.utils :refer [html-response]]
    [bidi.bidi :as bidi]
-   [datomic.api :as d]
+   [datomic.client.api :as dc]
    [hiccup2.core :as hiccup]))
 
 (defn dropdown-contents [{:keys [identity]}]
-  (let [options (->> (d/q '[:find ?c ?n
+  (let [options (->> (dc/q '[:find ?c ?n
                             :in $ ?user
                             :where [?c :client/name ?n]
                             [(auto-ap.graphql.utils/can-see-client? ?user ?c)]]
-                          (d/db conn)
+                          (dc/db conn)
                           identity)
                      (map (fn [[k v]]
                             {"key"   k
@@ -105,7 +105,7 @@ document.getElementById(\"company-search-value\").dispatchEvent(new Event('chang
       (assert-can-see-client identity client-id))
     (let [new-session (assoc (:session request) :client
                              (when client-id
-                               (d/pull (d/db conn) [:db/id :client/name :client/code] client-id)))]
+                               (dc/pull (dc/db conn) [:db/id :client/name :client/code] client-id)))]
       (assoc 
         (html-response 
           (dropdown (assoc request :session new-session)))