diff --git a/src/nera.lisp b/src/nera.lisp index b217b5a..5121dcc 100644 --- a/src/nera.lisp +++ b/src/nera.lisp @@ -54,7 +54,8 @@ (defun init-db (request) "Creates the database and creates Admin. in `USER' table." (destructuring-bind - (&key username display-name password allow-sign-up &allow-other-keys) + (&key site-name allow-sign-up show-site-logo username display-name password + &allow-other-keys) (utils:request-params request) (with-connection (db) ;; Add to the list to add more tables. @@ -65,7 +66,9 @@ :password (hermetic::hash password) :administrator +true+) (mito:create-dao 'site-settings - :enable-sign-up (utils:checkbox-to-bool allow-sign-up)) + :site-name site-name + :enable-sign-up (utils:checkbox-to-bool allow-sign-up) + :enable-site-logo (utils:checkbox-to-bool show-site-logo)) (mito:create-dao 'page :title "Home" :slug "home"