Public archive for the Return to Ritherdon project.
https://www.nicolaellisandritherdon.com
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
Tree:
9650008ce9
master
stable
unstable
${ noResults }
ritherdon-archive/src/models/site-settings.lisp
51 lines
1.5 KiB
51 lines
1.5 KiB
(in-package #:cl-user)
|
|||
(defpackage #:site-settings
|
|||
(:use #:cl
|
|||
#:ritherdon-archive.db
|
|||
#:mito
|
|||
#:app-constants)
|
|||
(:export #:site-settings
|
|||
#:nav-menu))
|
|||
|
|||
(in-package #:site-settings)
|
|||
|
|||
(defclass site-settings ()
|
|||
((enable-sign-up
|
|||
:documentation "Allow non-registered users to create accounts."
|
|||
:col-type (or :integer :null)
|
|||
:initarg :enable-sign-up
|
|||
:initform +true+ ; SQLite: 0 -> false 1 -> true.
|
|||
:accessor enable-sign-up-p)
|
|||
|
|||
(enable-site-logo
|
|||
:documentation "Show site logo in website's header."
|
|||
:col-type (or :integer :null)
|
|||
:initarg :enable-site-logo
|
|||
:initform +true+ ; SQLite: 0 -> false 1 -> true.
|
|||
:accessor enable-site-logo-p)
|
|||
|
|||
(site-name
|
|||
:documentation "The name of the site, shown in website's header."
|
|||
:col-type (or :text :null)
|
|||
:initarg :site-name
|
|||
:initform "NERA"
|
|||
:accessor site-name-of)
|
|||
|
|||
(home-page
|
|||
:documentation "The page (found in /storage/pages) which is rendered for '/' defroute."
|
|||
:col-type (or :text :null)
|
|||
:initarg :home-page
|
|||
:initform "home"
|
|||
:accessor home-page-of)
|
|||
|
|||
(search-url
|
|||
:documentation "The URL for the Meilisearch instance this site calls out to
|
|||
for it's search features."
|
|||
:col-type (or :text :null)
|
|||
:initarg :search-url
|
|||
:initform "http://localhost:7700" ; Default Meilisearch URL.
|
|||
:accessor search-url-of))
|
|||
|
|||
(:documentation "Model used to track the site-wide settings -- stored in the database.")
|
|||
(:metaclass mito:dao-table-class))
|