From 37ec669980d66695f8739cf53eab4847b18412a9 Mon Sep 17 00:00:00 2001
From: Craig Oates <craig@craigoates.net>
Date: Sat, 15 Oct 2022 20:40:54 +0100
Subject: [PATCH] add (publish) month and year to archive-entry class
 (archive.lisp).

This is mostly for the Meilisearch database. This addition will mean it's stored
in this site's database, though.
---
 src/models/archive.lisp | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/src/models/archive.lisp b/src/models/archive.lisp
index ff6bffd..24588a8 100644
--- a/src/models/archive.lisp
+++ b/src/models/archive.lisp
@@ -23,6 +23,20 @@
     :initform :null
     :accessor search-id-of)
 
+   (month
+    :documentation "The month the artwork was published."
+    :col-type (or :text :null)
+    :initarg :month
+    :initform :null
+    :accessor month-of)
+
+   (year
+    :documentation "The year the artwork was published."
+    :col-type (or :integer :null)
+    :initarg :year
+    :initform :null
+    :accessor year-of)
+   
    (slug
     :documentation "The slug, used as part of the URL, to access the entry."
     :col-type (or :text :null)