|
|
@ -54,7 +54,8 @@ |
|
|
|
(defun init-db (request) |
|
|
|
(defun init-db (request) |
|
|
|
"Creates the database and creates Admin. in `USER' table." |
|
|
|
"Creates the database and creates Admin. in `USER' table." |
|
|
|
(destructuring-bind |
|
|
|
(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) |
|
|
|
(utils:request-params request) |
|
|
|
(with-connection (db) |
|
|
|
(with-connection (db) |
|
|
|
;; Add to the list to add more tables. |
|
|
|
;; Add to the list to add more tables. |
|
|
@ -65,7 +66,9 @@ |
|
|
|
:password (hermetic::hash password) |
|
|
|
:password (hermetic::hash password) |
|
|
|
:administrator +true+) |
|
|
|
:administrator +true+) |
|
|
|
(mito:create-dao 'site-settings |
|
|
|
(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 |
|
|
|
(mito:create-dao 'page |
|
|
|
:title "Home" |
|
|
|
:title "Home" |
|
|
|
:slug "home" |
|
|
|
:slug "home" |
|
|
|