Add more classes

src/as2.lisp

@@ -171,3 +171,45 @@
 (defclass ordered-collection-page (ordered-collection collection-page) ())
 (define-property-methods ordered-collection-page
   start-index)
+
+;;; Activity Types
+
+(define-extend-classes activity
+  intransitive-activity
+  accept
+  add
+  annouce
+  create
+  delete-as2
+  dislike
+  flag
+  follow
+  ignore-as2
+  join
+  leave
+  like
+  move
+  offer
+  read-as2
+  reject
+  remove-as2
+  undo
+  update
+  view)
+
+(define-extend-classes accept
+  tentative-accept)
+
+(define-extend-classes intransitive-activity
+  arrive
+  travel
+  question)
+
+(define-extend-classes offer
+  invite)
+
+(define-extend-classes reject
+  tentative-reject)
+
+(define-extend-class ignore
+  block-as2)