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

Compare commits

base: jadedctrl:df994f324004f6284c415da37c24c1d5f99c56aa
Branches Etikedoj
jadedctrl:master
...
compare: jadedctrl:a12e02c51bd00df71a8e282eac7d3446a6420551
Branches Etikedoj
jadedctrl:master

2 Enmetoj
df994f3240 ... a12e02c51b

Author SHA1 Message Date
Jaidyn Ann a12e02c51b Re-organization, no functional change 2024-06-16 22:52:11 -05:00
Jaidyn Ann b6582e2537 Encode AV object’s “type” into JSON objects 2024-06-16 22:51:09 -05:00
1 changed files with 16 additions and 6 deletions
Show Stats Expand all files Collapse all files

22
src/activity-vocabulary.lisp
View File

@ -44,7 +44,8 @@
:object-end-time :object-generator :object-icon :object-image :object-end-time :object-generator :object-icon :object-image
:object-in-reply-to :object-location :object-media-type :object-name :object-in-reply-to :object-location :object-media-type :object-name
: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-updated :object-url :object-summary :object-tag :object-to :object-type :object-updated
:object-url
:ordered-collection-page-start-index :ordered-collection-page-start-index
:place-accuracy :place-altitude :place-latitude :place-longitude :place-accuracy :place-altitude :place-latitude :place-longitude
:place-radius :place-units :place-radius :place-units
@ -115,13 +116,9 @@ CLASS’es slots with JSON keys based on the camel-cased slot name."
attachment attributed-to audience bcc bto cc content context attachment attributed-to audience bcc bto cc content context
duration end-time generator icon id image in-reply-to location duration end-time generator icon id image in-reply-to location
media-type name preview published replies start-time summary 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"))) (@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)))
;; https://www.w3.org/ns/activitystreams#Link ;; https://www.w3.org/ns/activitystreams#Link
(defclass-w-accessors link () (defclass-w-accessors link ()
(height href hreflang media-type name preview rel width)) (height href hreflang media-type name preview rel width))
@ -208,6 +205,15 @@ CLASS’es slots with JSON keys based on the camel-cased slot name."
;;; JSON serialization ;;; JSON serialization
;;; ———————————————————————————————————————— ;;; ————————————————————————————————————————
(defmethod yason:encode ((obj object) &optional (stream *standard-output*))
(yason:with-output (stream)
(yason:with-object ()
(yason:encode-object obj)
(yason:encode-object-element
"type"
(or (object-type obj)
(class-pretty-name (class-of obj)))))))
;; Ensure all classes have their slots’ encodings defined with YASON. ;; Ensure all classes have their slots’ encodings defined with YASON.
(mapcar (lambda (class) (mapcar (lambda (class)
(closer-mop:finalize-inheritance class) (closer-mop:finalize-inheritance class)
@ -239,3 +245,7 @@ to us) removed."
(string (aref string 0)) (string (aref string 0))
(str:camel-case string)) (str:camel-case string))
(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))))