(in-package :inangulis.user)

(defclass user () 
  ((id :col-type serial)
   (uid :initarg :uid :col-type text)
   (email :initarg :email :col-type text)
   (name :initarg :name :col-type text)
   (moderator :initarg :moderator :initform nil :col-type bool))
  (:metaclass pomo:dao-class)
  (:keys id))

(pomo:deftable user
  (pomo:!dao-def))

(defun user-alist (user)
  (with-slots (email name moderator) user
    (pairlis '("name" "email" "moderator")
             `(,name  ,email  ,moderator))))