Fix cson serialization for fully qualified tagged literals

Author: djblue

src/portal/runtime/cson.cljc

@@ -754,11 +754,14 @@
                 :cljr clojure.lang.TaggedLiteral
                 :cljs TaggedLiteral)
   ToJson
-  (-to-json [value buffer]
+  (-to-json [{:keys [tag form]} buffer]
     (-> buffer
         (json/push-string "tag")
-        (json/push-string (name (:tag value)))
-        (to-json (:form value)))))
+        (json/push-string
+         (if-let [ns (namespace tag)]
+           (str ns "/" (name tag))
+           (name tag)))
+        (to-json form))))
 
 (defn- ->tagged-literal [buffer]
   (tagged-literal (symbol (json/next-string buffer)) (->value buffer)))

test/portal/runtime/cson_test.cljc

@@ -131,7 +131,8 @@
    #?(:clj  (UUID/randomUUID)
       :cljr (Guid/NewGuid)
       :cljs (random-uuid))
-   (tagged-literal 'tag :value)])
+   (tagged-literal 'tag :value)
+   (tagged-literal 'ns/tag :value)])
 
 (deftest tagged-objects
   (doseq [value tagged]