From bfcef81763cb3465706f7aca59bb215eea1834a5 Mon Sep 17 00:00:00 2001 From: Craig Oates Date: Sat, 17 Sep 2022 18:10:58 +0100 Subject: [PATCH] add home-page slot to site-settings class. --- src/models/site-settings.lisp | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/src/models/site-settings.lisp b/src/models/site-settings.lisp index 603723a..a4864ad 100644 --- a/src/models/site-settings.lisp +++ b/src/models/site-settings.lisp @@ -11,9 +11,17 @@ (defclass site-settings () ((enable-sign-up :documentation "Allow non-registered users to create accounts." - :col-type :integer + :col-type (or :integer :null) :initarg :enable-sign-up :initform +true+ ; SQLite: 0 -> false 1 -> true. - :accessor enable-sign-up-p)) + :accessor enable-sign-up-p) + + (home-page + :documentation "The page (found in /storage) which is rendered for '/' defroute." + :col-type (or :text :null) + :initarg :home-page + :initform "default-home" + :accessor home-page-of)) + (:documentation "Model used to track the site-wide settings -- stored in the database.") (:metaclass mito:dao-table-class))