From b05f9e765e95f36ffd5f0ba0ea38a32a42deaa69 Mon Sep 17 00:00:00 2001
From: Jaidyn Ann <10477760+JadedCtrl@users.noreply.github.com>
Date: Wed, 18 Dec 2024 14:07:15 -0600
Subject: [PATCH] Tweak Litepub package to define LP:PERSON
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

… and switch DEFCONSTANT→DEFVAR for +NEW-CLASSES+
& +NEW-SLOTS+.
---
 src/litepub.lisp | 32 ++++++++++++++++++--------------
 1 file changed, 18 insertions(+), 14 deletions(-)

diff --git a/src/litepub.lisp b/src/litepub.lisp
index 660aad5..f77ae0b 100644
--- a/src/litepub.lisp
+++ b/src/litepub.lisp
@@ -39,24 +39,22 @@ canonical URL for it. This URI will be used in encoded LITEPUB:OBJECTs in the
 @CONTEXT.
 Defaults to a copy at jam.xwx.moe — because why not? ¯\_(ツ)_/¯")
 
-(unless +new-classes+
-  (defconstant +new-classes+ '(chat-message emoji emoji-react hashtag property-value)
-    "Simple list of classes/JSON types defined in this package.
-Used by our overloaded JSON-LD:@CONTEXT to help choose the appropriate JSON-LD context."))
+(defvar +new-classes+ '(chat-message emoji emoji-react hashtag property-value)
+  "Simple list of classes/JSON types defined in this package.
+Used by our overloaded JSON-LD:@CONTEXT to help choose the appropriate JSON-LD context.")
 
 ;; This isn’t pretty… but it helps us avoid bringing in another dependency! :^)
 ;; (closer-mop, that is.)
-(unless +new-slots+
-  (defconstant +new-slots+
-    '(atom-uri sensitivep non-anonymous direct-message-p former-representations
-      public-key discoverablep manually-approves-followers-p also-known-as
-      capabilities            ; Object ←↑
-      invisiblep list-message ; Activity
-      conversation            ; Update
-      quote-url quote-uri)    ; Note
-    "List of slots added to subclasses corresponding AS/VOCAB/ACTIVITY classes.
+(defvar +new-slots+
+  '(atom-uri sensitivep non-anonymous direct-message-p former-representations
+    public-key discoverablep manually-approves-followers-p also-known-as
+    capabilities            ; Object ←↑
+    invisiblep list-message ; Activity
+    conversation            ; Update
+    quote-url quote-uri)    ; Note
+  "List of slots added to subclasses corresponding AS/VOCAB/ACTIVITY classes.
 For example, slots in our OBJECT that aren’t in AS/V/A:OBJECT.
-Used by our overloaded JSON-LD:@CONTEXT to help choose the appropriate JSON-LD context."))
+Used by our overloaded JSON-LD:@CONTEXT to help choose the appropriate JSON-LD context.")
 
 
 ;;; Core types
@@ -117,6 +115,12 @@ One known capabilitity-name is Pleroma’s “acceptsChatMessages”.")))
             (call-next-method)))))
 
 
+;; We want our new Actor-specific slots to take effect.
+(json-ld:define-json-type (person "Person") (as/v/a:actor object) *litepub-uri*
+  ()
+  (:documentation "Represents an individual person."))
+
+
 (json-ld:define-json-type (activity "Activity") (as/v/a:activity object) *litepub-uri*
   (;; https://blog.dereferenced.org/leveraging-json-ld-compound-typing-for-behavioural-hinting-in-activitypub
    (invisiblep