From 324229dea49f7df843c124a0089b6061e05fb534 Mon Sep 17 00:00:00 2001
From: Craig Oates <craig@craigoates.net>
Date: Sun, 9 Oct 2022 17:11:24 +0100
Subject: [PATCH] modify init-db func. in nera package.

This is part of a refactoring to allow the user to set more settings in the
initial set-up/first run process.
---
 src/nera.lisp | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

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"