From b6582e25375d16f8b5819f0ec7940b5ff9b2e636 Mon Sep 17 00:00:00 2001
From: Jaidyn Ann <10477760+JadedCtrl@users.noreply.github.com>
Date: Sun, 16 Jun 2024 22:51:09 -0500
Subject: [PATCH] =?UTF-8?q?Encode=20AV=20object=E2=80=99s=20=E2=80=9Ctype?=
 =?UTF-8?q?=E2=80=9D=20into=20JSON=20objects?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/activity-vocabulary.lisp | 16 +++++++++++++---
 1 file changed, 13 insertions(+), 3 deletions(-)

diff --git a/src/activity-vocabulary.lisp b/src/activity-vocabulary.lisp
index 94e816b..6dae25e 100644
--- a/src/activity-vocabulary.lisp
+++ b/src/activity-vocabulary.lisp
@@ -44,7 +44,8 @@
    :object-end-time :object-generator :object-icon :object-image
    :object-in-reply-to :object-location :object-media-type :object-name
    :object-preview :object-published :object-replies :object-start-time
-   :object-summary :object-tag :object-to :object-updated :object-url
+   :object-summary :object-tag :object-to :object-type :object-updated
+   :object-url
    :ordered-collection-page-start-index
    :place-accuracy :place-altitude :place-latitude :place-longitude
    :place-radius :place-units
@@ -115,12 +116,17 @@ CLASS’es slots with JSON keys based on the camel-cased slot name."
    attachment attributed-to audience bcc bto cc content context
    duration end-time generator icon id image in-reply-to location
    media-type name preview published replies start-time summary
-   tag to updated url
+   tag to type updated url
    (@context :initform "https://www.w3.org/ns/activitystreams")))
 
 (defmethod yason:encode ((obj object) &optional (stream *standard-output*))
   (yason:with-output (stream)
-    (yason:encode-object obj)))
+    (yason:with-object ()
+      (yason:encode-object obj)
+      (yason:encode-object-element
+       "type"
+       (or (object-type obj)
+           (class-pretty-name (class-of obj)))))))
 
 ;; https://www.w3.org/ns/activitystreams#Link
 (defclass-w-accessors link ()
@@ -239,3 +245,7 @@ to us) removed."
                    (string (aref string 0))
                    (str:camel-case string))
       (str:camel-case string)))
+
+(defun class-pretty-name (class)
+  "Return a CLASS’es name in a “pretty” (sentence-capitalized) string."
+  (string-capitalize (symbol-name (class-name class))))