diff --git a/src/nera.lisp b/src/nera.lisp index ced9391..ecaaeb6 100644 --- a/src/nera.lisp +++ b/src/nera.lisp @@ -15,7 +15,8 @@ #:delete-user #:create-user #:get-site-settings - #:migrate-all)) + #:migrate-all + #:get-all-users)) (in-package #:nera-db) (defparameter *tables* '(user site-settings) @@ -62,7 +63,7 @@ (with-connection (db) (mito:delete-by-values 'user:user :username username))) -(defun update-user (username &optional display-name new-password) +(defun update-user (username &key display-name new-password) "Updates `USER' in database." (with-connection (db) (let ((user-to-update @@ -84,7 +85,11 @@ (with-connection (db) (mito:find-dao 'user :username username))) -;; (site-settings::enable-sign-up-p (nera:get-site-settings 'enable-sign-up)) +(defun get-all-users () + "Returns a list of all `USER' entries in the database." + (with-connection (db) + (mito:select-dao 'user + (sxql:order-by (:asc :display-name))))) (defun get-site-settings () "Gets the settings for the website from the database."