on the way to recursion

src/main/cljc/org/domaindrivenarchitecture/activity_pub_poc/core.cljc

@@ -1,22 +1,30 @@
 (ns org.domaindrivenarchitecture.activity-pub-poc.core
   (:require [clojure.spec.alpha :as s]
+            [clojure.walk :as walk] 
             [orchestra.core :refer [defn-spec]]
             [org.domaindrivenarchitecture.activity-pub-poc.spec-helper :as sh]
-            [org.domaindrivenarchitecture.activity-pub-poc.activitystreams2 :as as]
             [clojure.data.json :as json]))
 
-( defn serialize-element [elem]
- (if (and (sh/is-functional-property? (key elem))
-            (sequential? (val elem)))
-   {(key elem) (first (val elem))}
-   {(key elem) (val elem)}))
+(defn normalize-value [v]
+  (cond (map? v)
+        (walk/walk normalize-functional-property identity v)
+        (sequential? v)
+        (map normalize-value v)
+        :else v))
+
+(defn normalize-functional-property [elem]
+ (let [k (first elem)
+       v (second elem)]
+   (cond (and
+          (sequential? v)
+          (sh/is-functional-property? k))
+         {k (first (normalize-value v))}
+         :else {k (normalize-value v)})))
 
 (defn serialize
   [as-map]
   (json/write-str
-   (map
-    serialize-element
-    (merge
-     {(keyword "@context") "https://www.w3.org/ns/activitystreams"}
-     as-map))
+   (merge
+    {(keyword "@context") "https://www.w3.org/ns/activitystreams"}
+    (walk/walk normalize-functional-property identity as-map))
    :escape-slash false))

src/main/cljc/org/domaindrivenarchitecture/activity_pub_poc/spec_helper.cljc

@@ -17,4 +17,8 @@
   is-functional-property? boolean?
   "Checks whether spec is a FunctionalProperty."
   [spec s/spec?]
-  (some #(clojure.string/includes? % "FunctionalProperty") (s/describe spec)))
+  (if ( s/get-spec spec)
+    (some
+     #(clojure.string/includes? % "FunctionalProperty")
+     (s/describe spec))
+    false))

src/test/cljc/org/domaindrivenarchitecture/activity_pub_poc/core_test.cljc

@@ -3,14 +3,16 @@
    [clojure.test :refer [deftest is are testing run-tests]]
    [clojure.spec.alpha :as s]
    [clojure.string :as str]
+   [org.domaindrivenarchitecture.activity-pub-poc.activitystreams2 :as as]
    [org.domaindrivenarchitecture.activity-pub-poc.core :as sut]))
 
-(deftest should-serailize
+(deftest should-serialize
   (is (=  (str "{\"@context\":\"https://www.w3.org/ns/activitystreams\","
                "\"id\":\"http://example.org/likes/1\","
                "\"summary\":\"Sally liked a note\","
                "\"type\":\"Like\","
                "\"actor\":{"
+               "\"id\":\"http://example.org/persons/1\","
                "\"type\":\"Person\","
                "\"name\":\"Sally\"},"
                "\"object\":\"http://example.org/notes/1\"}")
@@ -18,6 +20,7 @@
            {::as/id ["http://example.org/likes/1"]
             ::as/summary "Sally liked a note",
             ::as/type "Like",
-            ::as/actor {::as/type "Person",
+            ::as/actor {::as/id ["http://example.org/persons/1"]
+                        ::as/type "Person",
                         ::as/name "Sally"},
             ::as/object "http://example.org/notes/1"}))))

src/test/cljc/org/domaindrivenarchitecture/activity_pub_poc/spec_helper_test.cljc

@@ -8,4 +8,5 @@
 
 (deftest shoult-test-spec-for-having-functional-property
   (is (sut/is-functional-property? ::as2/id))
-  (is (not (sut/is-functional-property? ::as2/Like))))
+  (is (not (sut/is-functional-property? ::as2/Like)))
+  (is (not (sut/is-functional-property? ::as2/NotExisting))))