From 4c1b99fa08536dc2b97b2fadba948684d9c64968 Mon Sep 17 00:00:00 2001
From: Craig Oates <craig@craigoates.net>
Date: Mon, 19 Sep 2022 19:17:40 +0100
Subject: [PATCH] add pages in init-db and write system-data func. in nera
 package.

---
 src/nera.lisp | 21 ++++++++++++++++++---
 1 file changed, 18 insertions(+), 3 deletions(-)

diff --git a/src/nera.lisp b/src/nera.lisp
index 000a179..8ae23fa 100644
--- a/src/nera.lisp
+++ b/src/nera.lisp
@@ -15,7 +15,7 @@
 	    #:get-user-id
 	    #:delete-user
 	    #:create-user
-	    #:get-site-settings
+	    #:site-settings
 	    #:migrate-all
 	    #:get-all-users
 	    #:update-enable-sign-on-settings
@@ -28,7 +28,8 @@
 	    #:delete-page
 	    #:get-all-pages
 	    #:nav-menu-slugs
-	    #:update-nav-menu))
+	    #:update-nav-menu
+	    #:system-data))
 (in-package #:nera-db)
 
 (defparameter *tables* '(user site-settings page)
@@ -73,6 +74,16 @@
 		       :title "Archive"
 		       :slug "archive"
 		       :enable-nav-menu +true+
+		       :can-delete +false+)
+      (mito:create-dao 'page
+		       :title "Sign-Up"
+		       :slug "sign-up"
+		       :enable-nav-menu +true+
+		       :can-delete +false+)
+      (mito:create-dao 'page
+		       :title "Log-In"
+		       :slug "login"
+		       :enable-nav-menu +true+
 		       :can-delete +false+))))
 
 (defun ensure-tables-exist ()
@@ -167,7 +178,7 @@
 	   (mito:delete-dao (mito:find-dao 'page :slug slug)))
 	  (t nil))))
 
-(defun get-site-settings ()
+(defun site-settings ()
   "Gets the settings for the website from the database."
   (with-connection (db)
     (mito:find-dao 'site-settings)))
@@ -213,3 +224,7 @@
   (with-connection (db)
     (mito:select-dao 'page
       (sxql:where (:= :enable-nav-menu +true+)))))
+
+(defun system-data ()
+  "Gets the website's settings and nav-menu from database."
+  (list (site-settings) (nav-menu-slugs)))