           [?uid :user/email ?email]]
         (d/db conn))))
 
-(defn get-all-users []
+
+(defn get-all-users
+  "Retrieve all users"
+  []
   (map
    first
    (d/q '[:find ?email

     (d/q query db email))))


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


(comment

  ;; only once for test purposes
  (d/create-database (str db-uri-base "/lesezeichen"))

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

  (init-schema "schema.edn")

