remove unused code from archive-entry class.

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