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