fix: dispatch event in go-loop in order to always receive the latest …

…evaled message

src/klipse/klipse_editors.cljs

@@ -52,11 +52,6 @@
           (swap! state update-in [:eval-counter] inc)
           (let [evaluation-chan (eval-fn (str preamble src-code) @state)
                 first-result (<! evaluation-chan)]
-            (let [custom-event (js/CustomEvent. "klipse-snippet-evaled"
-                                               (clj->js {:detail {:state (clj->js @state)
-                                                                  :src-code src-code}}))]
-              (when-let [code-mirror-dom-node (js/document.querySelector ".klipse-container")]
-                (-> code-mirror-dom-node (.dispatchEvent custom-event))))
             (setter first-result)
             (when loop-msec
               (go-loop []
@@ -68,6 +63,14 @@
                     (recur)))))
 
             (go-loop [previous-results first-result]
+              (when-let [klipse-dom-node (js/document.querySelector ".klipse-container")]
+                (let [event-payload
+                      (cond
+                        (string? first-result) (clj->js {:detail {:state previous-results}})
+                        (vector? first-result) (clj->js {:detail {:state (clj->js previous-results)}})
+                        :else (clj->js {:detail {:state previous-results}}))]
+                  (-> klipse-dom-node
+                      (.dispatchEvent (js/CustomEvent. "klipse-snippet-evaled" event-payload)))))
               (let [result (<! evaluation-chan)
                     results (str previous-results result)]
                 (when (some? result) ;exit if the channel is closed