From b46f81caf3dc4277d309a2e7cbe477fc9ba84b11 Mon Sep 17 00:00:00 2001
From: Jaidyn Ann <10477760+JadedCtrl@users.noreply.github.com>
Date: Wed, 12 Jun 2024 22:29:27 -0500
Subject: [PATCH] =?UTF-8?q?Add=20ActivityVocab=20extended=20object=20types?=
 =?UTF-8?q?=E2=80=99=20classes?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/activity-vocabulary.lisp | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/src/activity-vocabulary.lisp b/src/activity-vocabulary.lisp
index 9bcef05..20c3176 100644
--- a/src/activity-vocabulary.lisp
+++ b/src/activity-vocabulary.lisp
@@ -123,3 +123,29 @@ of NAME."
 ;;; ————————————————————————————————————————
 (defclass-empty-children actor
   (application group organization person service))
+
+
+
+;;; Extended Object types
+;;; ————————————————————————————————————————
+(defclass-empty-children object
+  (article document event note))
+
+(defclass-empty-children document
+  (audio image page video))
+
+;; https://www.w3.org/ns/activitystreams#Place
+(defclass-w-accessors place (object)
+  (accuracy altitude latitude longitude radius units))
+
+;;  https://www.w3.org/ns/activitystreams#Profile
+(defclass-w-accessors profile (object)
+  (describes))
+
+;; https://www.w3.org/ns/activitystreams#Relationship
+(defclass-w-accessors relationship (object)
+  (object relationship subject))
+
+;; https://www.w3.org/ns/activitystreams#Tombstone
+(defclass-w-accessors tombstone (object)
+  (former-type deleted))