add get-all-users function and change arg's to &key for update-user.

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."