From e9f679bece8b908af2078ac9f2352667c3cd8d17 Mon Sep 17 00:00:00 2001
From: Craig Oates <craig@craigoates.net>
Date: Thu, 27 Oct 2022 22:00:48 +0100
Subject: [PATCH] add search-url parameter to init-db function in nera package.

search-url is part of the site-settings class. It is used to help tell the
system which URL to use for the Meilisearch instance this website's search
features are utilising/calling out to.
---
 src/nera.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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