     (d/create-database uri)
     (d/connect uri)))
 
-
-(def conn (d/connect (str db-uri-base "/bookmarks")))
+(def conn (d/connect (str db-uri-base "/lesezeichen")))
 
 
 (defn init-schema [path]

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


(defn add-bookmark [{:keys [url title email] :as bookmark}]
  (do
    (transact-bookmark bookmark)
    (get-bookmark bookmark)))


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

     (d/q query db email))))


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