ActivityVocabulary class and example-test tweaks

This commit is contained in:
Jaidyn Ann 2024-06-23 22:49:11 -05:00
parent bb361465c3
commit 16613eba51
2 changed files with 15 additions and 8 deletions

View File

@ -18,12 +18,12 @@
(defpackage #:activity-servist/activity-vocabulary
(:use #:cl)
(:nicknames "AS/AV" "ACTIVITY-VOCABULARY")
(:shadow #:delete #:ignore #:listen #:read #:remove)
(:shadow #:block #:delete #:ignore #:listen #:read #:remove)
;; One should never USE this package, since some class-names shadow
;; core Common Lisp symbols! Beware! :P
(:export
;; Classes
:accept :activity :add :announce :application :arrive :article :audio
:accept :activity :add :announce :application :arrive :article :audio :block
:collection :collection-page :create :delete :dislike :document :event :flag
:follow :group :ignore :ignore :image :intransitive-activity :invite :join
:leave :like :link :listen :move :note :object :offer :ordered-collection
@ -37,7 +37,7 @@
:collection-total-items
:collection-page-next :collection-page-part-of :collection-page-prev
:link-height :link-href :link-hreflang :link-media-type :link-name
:link-preview :link-rel :link-width
:link-preview :link-rel :link-summary :link-width
:object-attachment :object-attributed-to :object-audience :object-bcc
:object-bto :object-cc :object-content :object-context :object-duration
:object-end-time :object-generator :object-icon :object-image
@ -45,9 +45,10 @@
:object-preview :object-published :object-replies :object-start-time
:object-summary :object-tag :object-to :object-type :object-updated
:object-url
:ordered-collection-page-start-index
:ordered-collection-page-start-index ordered-collection-ordered-items
:place-accuracy :place-altitude :place-latitude :place-longitude
:place-radius :place-units
:question-all-of :question-closed :question-one-of
:profile-describes
:relationship-object :relationship-relationship :relationship-subject
:tombstone-former-type :tombstone-deleted))
@ -105,8 +106,10 @@ of NAME."
tag to updated url))
;; https://www.w3.org/ns/activitystreams#Link
;; “summary” here isnt real! Its not a property Link should have (just
;; looking at Links properties), but its implied by the Mention example.
(defclass-w-accessors link (activity-servist/activity-streams:object)
(height href hreflang media-type name preview rel width))
(height href hreflang media-type name preview rel summary width))
;; https://www.w3.org/ns/activitystreams#Activity
(defclass-w-accessors activity (object)
@ -139,8 +142,8 @@ of NAME."
;;; Extended Activity types
;;; ————————————————————————————————————————
(defclass-empty-children activity
(accept add announce create delete dislike flag follow ignore join leave
like listen move offer read reject remove travel undo update view))
(accept add announce block create delete dislike flag follow ignore join leave
like listen move offer read reject remove travel undo update view))
(defclass arrive (intransitive-activity) ())
(defclass ignore (block) ())
@ -149,6 +152,9 @@ of NAME."
(defclass tentative-accept (accept) ())
(defclass tentative-reject (reject) ())
(defclass-w-accessors question (intransitive-activity)
(any-of closed one-of))
;;; Extended Actor types
@ -197,4 +203,4 @@ of NAME."
(as/as:define-class-encoders
(mapcar #'find-class
'(object link activity collection collection-page ordered-collection
ordered-collection-page place profile relationship tombstone)))
ordered-collection-page place profile question relationship tombstone)))

View File

@ -1,4 +1,5 @@
{
"@context": "https://www.w3.org/ns/activitystreams",
"type": "OrderedCollection",
"totalItems": 3,
"name": "Vacation photos 2016",