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