          (zipmap users)
          aprint))
 
+  (get-all-users conn)
+
   )

(defn get-bookmark
  "Retrieve bookmark"
  [conn {:keys [url email]}]
  (let [query '[:find ?url ?title ?tx
               :in $ ?url ?email
               :where
               [?bm :bookmark/url ?url ?tx]


(def db-uri-base "datomic:free://0.0.0.0:4334")

(defn scratch-conn
  "Create a connection to an anonymous, in-memory database."
  []
  (let [uri (str "datomic:mem://" (d/squuid))]
