gistfile1.txt

(ns strems.models.user
	(:use somnium.congomongo))

(defn tally [] 
	(fetch-count :users))

(defn find [username]
	(fetch-one :users {:username username}))

(defn create [username & {:keys [email provider] :or {provider "local"}}] 
	insert! :users {:username username :email email :provider provider}
	)