(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))