diff --git a/src/nera.lisp b/src/nera.lisp index e8d6ede..f5e255b 100644 --- a/src/nera.lisp +++ b/src/nera.lisp @@ -57,8 +57,8 @@ (defun init-db (request) "Creates the database and creates Admin. in `USER' table." (destructuring-bind - (&key site-name allow-sign-up show-site-logo username display-name password - &allow-other-keys) + (&key site-name allow-sign-up show-site-logo username display-name + password search-url &allow-other-keys) (utils:request-params request) (with-connection (db) ;; Add to the list to add more tables. @@ -70,6 +70,7 @@ :administrator +true+) (mito:create-dao 'site-settings :site-name site-name + :search-url search-url :enable-sign-up (utils:checkbox-to-bool allow-sign-up) :enable-site-logo (utils:checkbox-to-bool show-site-logo)) (mito:create-dao 'page