Documentation and acknowledgement

src/clj_activitypub/core.clj

@@ -1,4 +1,7 @@
 (ns clj-activitypub.core
+  "copied from [Jahfer's clj-activitypub library](https://github.com/jahfer/clj-activitypub). 
+   If and when Jahfer issues a release of that library, this directory will be deleted and a 
+   dependency on that library will be added to the project."
   (:require [clj-activitypub.internal.crypto :as crypto]
             [clj-activitypub.internal.thread-cache :as thread-cache]
             [clj-activitypub.internal.http-util :as http]

src/clj_activitypub/webfinger.clj

@@ -1,4 +1,7 @@
 (ns clj-activitypub.webfinger
+  "copied from [Jahfer's clj-activitypub library](https://github.com/jahfer/clj-activitypub). 
+   If and when Jahfer issues a release of that library, this directory will be deleted and a 
+   dependency on that library will be added to the project."
   (:require [clj-http.client :as client]
             [clj-activitypub.internal.http-util :as http]
             [clj-activitypub.internal.thread-cache :as thread-cache]))

src/dog_and_duck/quack/quack.clj

@@ -112,7 +112,19 @@
    true))
 
 (defn activity?
-  "`true` iff `x` quacks like an activity, else false."
+  "`true` iff `x` quacks like an activity, else false.
+   
+   **NOTE THAT** [Section 4.1 of the spec]
+   (https://www.w3.org/TR/activitypub/#actor-objects) says explicitly that
+   
+   >  Actor objects MUST have, in addition to the properties mandated by 3.1 Object Identifiers, the following properties:
+   >
+   >  inbox
+   >    A reference to an [ActivityStreams] OrderedCollection comprised of all the messages received by the actor; see 5.2 Inbox. 
+   > outbox
+   >    An [ActivityStreams] OrderedCollection comprised of all the messages produced by the actor; see 5.1 Outbox. 
+   
+   However, none of the provided examples in the [activitystreams-test-documents repository]() does in fact have these properties"
   [x]
   (try
     (and (object? x)

src/dog_and_duck/scratch/parser.clj

@@ -43,3 +43,5 @@
             (count objects) 
             (map :type objects))))
  (file-seq (file "resources/activitystreams-test-documents")))
+
+(-> "resources/activitystreams-test-documents/simple0020.json" slurp clean first :actor)

src/dog_and_duck/scratch/scratch.clj

@@ -57,4 +57,5 @@
       private (-> kp .getPrivateKey .getPrivateKeyDataPacket .getEncoded)]
   (println (str "Public key:  " public))
   (println (str "Private key: " private))
-  )
+  )
+