diff --git a/src/models/user.lisp b/src/models/user.lisp index b6e21a6..fb1f5fb 100644 --- a/src/models/user.lisp +++ b/src/models/user.lisp @@ -2,12 +2,11 @@ (:use #:cl #:ritherdon-archive.db #:mito - #:mito-auth #:app-constants) (:export #:user)) (in-package #:user) -(defclass user (has-secure-password) +(defclass user () ((username :documentation "The name the user uses to log into the website." :col-type :text @@ -16,10 +15,16 @@ (display-name :documentation "The name used in the website GUI (the pretty name)." - :col-type (or :text :null) + :col-type :text :initarg :display-name :accessor display-name-of) + (password + :documentation "The user's password." + :col-type :text + :initarg :password + :accessor password-of) + (administrator :documentation "States if user has admin. priveledges. At the time of writing (11/09/2022), SQLite is the current database and it