(defdbop uuids
"Generates on UUID by default. Supply a second parameter to generate
that many UUIDs."
([db]
(let [url (assoc db :path "/_uuids")]
(http/couchdb-request :get url)))
([db count]
(let [url (assoc db :path (str "/_uuids?count=" count))]
(http/couchdb-request :get url))))