Browse Source

add pages in init-db and write system-data func. in nera package.

stable
Craig Oates 2 years ago
parent
commit
4c1b99fa08
  1. 21
      src/nera.lisp

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

Loading…
Cancel
Save