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.
|
|
|
(in-package #:cl-user)
|
|
|
|
(defpackage #:site-settings
|
|
|
|
(:use #:cl
|
|
|
|
#:ritherdon-archive.db
|
|
|
|
#:mito
|
|
|
|
#:app-constants)
|
|
|
|
(:export #:site-settings))
|
|
|
|
|
|
|
|
(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)
|
|
|
|
|
|
|
|
(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))
|