jadedctrl/activity-servist
jadedctrl/ activity-servist
1
0
Disbranĉigi 0
Fontkodo Issues Tirpetoj Activity

Only encode LitePub context for LP classes/slots 

Why add a context if we don’t need it? ^^
This commit is contained in:
Jaidyn Ann 2024-10-21 03:54:52 -05:00
parent e0341343db
commit 2d377f5b9b
1 changed files with 28 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
src/litepub.lisp
View File

@ -39,6 +39,24 @@ canonical URL for it. This URI will be used in encoded LITEPUB:OBJECTs in the
@CONTEXT. @CONTEXT.
Defaults to a copy at jam.xwx.moe — because why not? ¯\_(ツ)_/¯") 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."))
;; 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.
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."))
;;; Core types ;;; Core types
@ -87,14 +105,16 @@ One known capabilitity-name is Pleroma’s “acceptsChatMessages”.")))
(defmethod json-ld:@context ((obj litepub:object)) (defmethod json-ld:@context ((obj litepub:object))
(let ((class (class-name (class-of obj)))) (let ((lp-context (list "https://www.w3.org/ns/activitystreams" *litepub-uri*)))
(case class ;; Only use LitePub context for newly-defined classes.
;; Only use LitePub context for newly-defined classes. (if (member obj +new-classes+ :test #'typep)
(('property-value 'emoji-react 'chat-message 'hashtag 'emoji) lp-context
*litepub-uri*) ;; … or for derivative classes with new slots.
;; TODO: Also use LitePub context for old classes when new slots are used. (or (dolist (slot +new-slots+)
(otherwise (when (and (slot-exists-p obj slot)
(call-next-method))))) (slot-boundp obj slot))
(return lp-context)))
(call-next-method)))))
(json-ld:define-json-type (activity "Activity") (as/v/a:activity object) *litepub-uri* (json-ld:define-json-type (activity "Activity") (as/v/a:activity object) *litepub-uri*