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)))