|
|
@ -15,7 +15,7 @@ |
|
|
|
#:get-user-id |
|
|
|
#:get-user-id |
|
|
|
#:delete-user |
|
|
|
#:delete-user |
|
|
|
#:create-user |
|
|
|
#:create-user |
|
|
|
#:get-site-settings |
|
|
|
#:site-settings |
|
|
|
#:migrate-all |
|
|
|
#:migrate-all |
|
|
|
#:get-all-users |
|
|
|
#:get-all-users |
|
|
|
#:update-enable-sign-on-settings |
|
|
|
#:update-enable-sign-on-settings |
|
|
@ -28,7 +28,8 @@ |
|
|
|
#:delete-page |
|
|
|
#:delete-page |
|
|
|
#:get-all-pages |
|
|
|
#:get-all-pages |
|
|
|
#:nav-menu-slugs |
|
|
|
#:nav-menu-slugs |
|
|
|
#:update-nav-menu)) |
|
|
|
#:update-nav-menu |
|
|
|
|
|
|
|
#:system-data)) |
|
|
|
(in-package #:nera-db) |
|
|
|
(in-package #:nera-db) |
|
|
|
|
|
|
|
|
|
|
|
(defparameter *tables* '(user site-settings page) |
|
|
|
(defparameter *tables* '(user site-settings page) |
|
|
@ -73,6 +74,16 @@ |
|
|
|
:title "Archive" |
|
|
|
:title "Archive" |
|
|
|
:slug "archive" |
|
|
|
:slug "archive" |
|
|
|
:enable-nav-menu +true+ |
|
|
|
: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+)))) |
|
|
|
:can-delete +false+)))) |
|
|
|
|
|
|
|
|
|
|
|
(defun ensure-tables-exist () |
|
|
|
(defun ensure-tables-exist () |
|
|
@ -167,7 +178,7 @@ |
|
|
|
(mito:delete-dao (mito:find-dao 'page :slug slug))) |
|
|
|
(mito:delete-dao (mito:find-dao 'page :slug slug))) |
|
|
|
(t nil)))) |
|
|
|
(t nil)))) |
|
|
|
|
|
|
|
|
|
|
|
(defun get-site-settings () |
|
|
|
(defun site-settings () |
|
|
|
"Gets the settings for the website from the database." |
|
|
|
"Gets the settings for the website from the database." |
|
|
|
(with-connection (db) |
|
|
|
(with-connection (db) |
|
|
|
(mito:find-dao 'site-settings))) |
|
|
|
(mito:find-dao 'site-settings))) |
|
|
@ -213,3 +224,7 @@ |
|
|
|
(with-connection (db) |
|
|
|
(with-connection (db) |
|
|
|
(mito:select-dao 'page |
|
|
|
(mito:select-dao 'page |
|
|
|
(sxql:where (:= :enable-nav-menu +true+))))) |
|
|
|
(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))) |
|
|
|