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.
36 lines
936 B
36 lines
936 B
(in-package #:cl-user)
|
|||
(defpackage #:files
|
|||
(:use #:cl
|
|||
#:ritherdon-archive.db
|
|||
#:app-constants
|
|||
#:mito)
|
|||
(:export #:storage-file))
|
|||
(in-package #:files)
|
|||
|
|||
(defclass storage-file ()
|
|||
((name
|
|||
:documentation "The filename of the file being stored in /storage/media."
|
|||
:col-type (or :text :null)
|
|||
:initarg :name
|
|||
:initform :null
|
|||
:accessor name-of)
|
|||
|
|||
(slug
|
|||
:documentation "The slugified version of the file's `NAME'. This is what is
|
|||
used when constructing links and accessing the file from the browser."
|
|||
:col-type (or :text :null)
|
|||
:initarg :slug
|
|||
:initform :null
|
|||
:accessor slug-of)
|
|||
|
|||
(file-type
|
|||
:documentation "The MIME type of the file (E.G. 'image/png."
|
|||
:col-type (or :text :null)
|
|||
:initarg :file-type
|
|||
:initform :null
|
|||
:accessor file-type-of))
|
|||
|
|||
(:documentation "Model describing the 'storage_file' table in the database --
|
|||
used by Mito.")
|
|||
(:metaclass mito:dao-table-class))
|