      (d/q query db email))))
 
 
-(defn get-all-bookmarks []
+(defn get-all-bookmarks
+  "Retrieve all bookmarks"
+  []
   (map
    #(zipmap [:url :title :user] %)
    (d/q '[:find ?url ?title ?email


(comment

  (d/create-database (str db-uri-base "/bookmarks"))

  (d/delete-database (str db-uri-base "/bookmarks"))

  (init-schema "schema.edn")


     (d/q query db url email))))


(defn add-bookmark
  "Transact bookmark and return the resulting datom"
  [{:keys [url title email] :as bookmark}]
  (do
    (transact-bookmark bookmark)
    (get-bookmark bookmark)))


(defn get-user-bookmarks
  "Find user's bookmarks"
  [email]
  (let [query '[:find ?url ?title ?tx
                :in $ ?email
                :where
