(ns ldview.models.user
  (:use korma.core
        [ldview.db]))

(defn user-id [username]
  (first (select users
          (fields :id)
          (where {:name username})
          (limit 1))))

(defn exists? [username]
  (not (empty? (user-id username))))

(defn create! [username]
  (insert users (values {:name username})))

(defn unique-user [username]
  (if-not (exists? username) (create! username))
  (user-id username))