From 984b3d5b2a38b3835f5a702ef0726014636b3940 Mon Sep 17 00:00:00 2001 From: Jaidyn Ann <10477760+JadedCtrl@users.noreply.github.com> Date: Wed, 12 Jun 2024 16:06:17 -0500 Subject: [PATCH] Begin work on ActivityVocabulary classes --- src/activity-vocabulary.lisp | 81 ++++++++++++++++++++++++++++++++++++ 1 file changed, 81 insertions(+) create mode 100644 src/activity-vocabulary.lisp diff --git a/src/activity-vocabulary.lisp b/src/activity-vocabulary.lisp new file mode 100644 index 0000000..9194e38 --- /dev/null +++ b/src/activity-vocabulary.lisp @@ -0,0 +1,81 @@ +;;;; activity-vocabulary: Classes for ActivityVocabulary types. + +;; Copyright © 2024 Jaidyn Ann +;; +;; This program is free software: you can redistribute it and/or +;; modify it under the terms of the GNU General Public License as +;; published by the Free Software Foundation, either version 3 of +;; the License, or (at your option) any later version. +;; +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. +;; +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see . + +(defpackage #:activitypub-servist/activity-vocabulary + (:use #:cl) + (:nicknames "AP-S/AV" "AV")) + +(in-package #:activitypub-servist/activity-vocabulary) + + +;;; Macros +;;; ———————————————————————————————————————— +(defmacro defclass-w-accessors (name direct-superclasses slots &rest options) + `(defclass ,name ,direct-superclasses + ,(mapcar + (lambda (slot) + (typecase slot + (list slot) + (t (list slot :accessor slot :initarg (intern (symbol-name slot) "KEYWORD"))))) + slots) + ,@options)) + + + +;;; Core types +;;; ———————————————————————————————————————— +;; https://www.w3.org/ns/activitystreams#Object +(defclass-w-accessors av-object () + ( + attachment attributed-to audience bcc bto cc content context + duration end-time generator icon image in-reply-to location + media-type name preview published replies start-time summary + tag to updated url)) + +;; https://www.w3.org/ns/activitystreams#Link +(defclass-w-accessors av-link () + (height href hreflang media-type name preview rel width)) + +;; https://www.w3.org/ns/activitystreams#Activity +(defclass-w-accessors av-activity (av-object) + (actor instrument object origin result target)) + +;; Should be ordinary Activity, sans `object`. +;; https://www.w3.org/ns/activitystreams#IntransitiveActivity +(defclass av-intransitive-activity (av-activity) ()) + +;; https://www.w3.org/ns/activitystreams#Collection +(defclass-w-accessors av-collection (av-object) + (current first items last total-items)) + +;; https://www.w3.org/ns/activitystreams#OrderedCollection +(defclass av-ordered-collection (av-collection) ()) + +;; https://www.w3.org/ns/activitystreams#CollectionPage +(defclass-w-accessors av-collection-page (av-collection) + (next part-of prev)) + +;; https://www.w3.org/ns/activitystreams#OrderedCollectionPage +(defclass-w-accessors av-ordered-collection-page (av-collection-page) + (startIndex)) + + + + +;;; Extended Activity types +;;; ———————————————————————————————————————— +(defclass-w-accessors av-