model.clj

(ns dbstuff.model
  (:require [monger.core :as mg]
            [monger.collection :as mc]))

(defn uuid []
  (str (java.util.UUID/randomUUID))) ;; CastClassException: clojure.lang.PersistentList cannot be cast to clojure.lang.Symbol

(deftype Database [conn table]
  (create-user [username]
    (mc/insert table "documents" { :_id (uuid) :username username })))

(defn init-db []
  (let [conn (mg/connect)
        table (mg/get-db "main")]
    (Database. conn table)))