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

  [conn]
  (map
   first
   (d/q '[:find ?email
          :where
          [?e :user/email ?email]]
        (d/db conn))))



     [{:db/id (d/tempid :db.part/user)
       :user/token token
       :user/email email}])
    #_(send-registry email token)
    token))


(defn- get-user-id [conn email]
