diff --git a/src/models/archive.lisp b/src/models/archive.lisp index 4804ce6..ff6bffd 100644 --- a/src/models/archive.lisp +++ b/src/models/archive.lisp @@ -30,26 +30,19 @@ :initform :null :accessor slug-of) - (thumbnail + (thumbnail-slug :documentation "The name of the thumbnail, for particular entry." :col-type (or :text :null) - :initarg :thumbnail + :initarg :thumbnail-slug :initform :null - :accessor thumbnail-of) + :accessor thumbnail-slug-of) - (thumbnail-url - :documentation "The URL for the thumbnail -- for Meilisearch." + (thumbnail-file-type + :documentation "The file type of the thumbnail, used when serving image." :col-type (or :text :null) - :initarg :thumbnail-url + :initarg :thumbnail-file-type :initform :null - :accessor thumbnail-url-of) - - (entry-type - :documentation "Specifies the type of entry (image, audio, video, text Etc.)" - :col-type (or :text :null) - :initarg :entry-type - :initform :null - :accessor entry-type-of) + :accessor thumbnail-file-type-of) (keywords :documentation "Text for Meilisearch's filter options. An example @@ -59,31 +52,7 @@ :col-type (or :text :null) :initarg :keywords :initform :null - :accessor keywords-of) - - (year - :documentation "The year the entry was published. Used for - Meilisearch's filtering options." - :col-type (or :integer :null) - :initarg :year - :initform :null - :accessor year-of) - - (month - :documentation "The month the entry was published. Used for - Meilisearch's filtering options." - :col-type (or :integer :null) - :initarg :month - :initform :null - :accessor month-of) - - (day - :documentation "The day the entry was published. Used for - Meilisearch's filtering options." - :col-type (or :integer :null) - :initarg :day - :initform :null - :accessor day-of)) + :accessor keywords-of)) (:documentation "`ARCHIVE-ENTRY' represents the model used by Mito to map database between the system and the 'archive_entry' table in