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.
50 lines
1.5 KiB
50 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))
|
|
|