 (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]

    (mapv
     (fn [bookmark]
       (update-in
        (zipmap [:url :title :ts] bookmark)
        [:ts]
        #(:db/txInstant (d/entity (d/db conn) %))))
     (d/q query db url email))))

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


