2014-09-28 01:41:01 +02:00
|
|
|
(ns luduverse.db-models.user
|
|
|
|
(:require [korma.core :refer :all]
|
|
|
|
[luduverse.db :refer :all]))
|
|
|
|
|
|
|
|
(defn user-id [username]
|
|
|
|
(first (select users
|
|
|
|
(fields :id)
|
2014-09-28 13:30:37 +02:00
|
|
|
(where {:username username})
|
2014-09-28 01:41:01 +02:00
|
|
|
(limit 1))))
|
|
|
|
|
|
|
|
(defn exists? [username]
|
|
|
|
(not (empty? (user-id username))))
|
|
|
|
|
|
|
|
(defn create! [username]
|
2014-09-28 13:30:37 +02:00
|
|
|
(insert users (values {:username username})))
|
2014-09-28 01:41:01 +02:00
|
|
|
|
|
|
|
(defn unique-user [username]
|
|
|
|
(if-not (exists? username) (create! username))
|
|
|
|
(user-id username))
|