enhance(rtc): update block-rtc-log print

src/main/frontend/components/content.cljs

@@ -336,9 +336,9 @@
              (fn []
                (let [^object worker @db-browser/*worker]
                  (p/let [result (.rtc-get-block-update-log worker (str block-id))
-                         log (transit/read transit-r result)]
+                         logs (transit/read transit-r result)]
                    (prn :Dev-show-block-RTC-log block-id)
-                   (pp/pprint log))))}
+                   (apply js/console.log logs))))}
             "(Dev) Show block RTC log"))]))))
 
 (rum/defc block-ref-custom-context-menu-content

src/main/frontend/worker/rtc/core.cljs

@@ -99,12 +99,13 @@
 (defn- update-log
   [state {:keys [local-ops remote-update-map]}]
   (when (:dev-mode? state)
-    (let [*block-update-log (:*block-update-log state)]
+    (let [now (tc/to-string (t/now))
+          *block-update-log (:*block-update-log state)]
       (doseq [op local-ops]
         (when-let [block-uuid (:block-uuid (second op))]
-          (swap! *block-update-log update block-uuid (fnil conj []) op)))
+          (swap! *block-update-log update block-uuid (fnil conj []) [:local->remote now op])))
       (doseq [[block-uuid value] remote-update-map]
-        (swap! *block-update-log update block-uuid (fnil conj []) value)))))
+        (swap! *block-update-log update block-uuid (fnil conj []) [:remote->local now value])))))