     (aset node "rootItem" root-item)
     (aset root-item "total-time" time)
     (when data
-      (doto node
-        (dommy/append! (create-node :span "rgb(80, 99, 152)" " [time viewed: "))
-        (dommy/append! (create-node :span "rgb(140, 101, 153)" (str time " ms")))
-        (dommy/append! (create-node :span "rgb(80, 99, 152)" "]")))
+      (dommy/append!
+        node
+        (doto (dommy/create-element :span)
+          (dommy/set-style! :font-size "90%")
+          (dommy/append! (create-node :span " [time viewed: " "rgb(80, 99, 152)"))
+          (dommy/append! (create-node :span (time-display time) "rgb(140, 101, 153)"))
+          (dommy/append! (create-node :span "]" "rgb(80, 99, 152)"))
+          ))
       )))
 
 (defn do-transformations! []

  (:require-macros [cljs.core.async.macros :refer [go]]))


(defn create-node [tag color text]
  (-> (dommy/create-element tag)
      (dommy/set-style! :color color)
      (dommy/set-text! text)))

(defn transform-result-node!
  [database node]

      (>! bg :content-initialized)
      (console/log "<-- Background replied" (<! bg)))))

(main)
