Added ability to send messages to peerinfo service

To test this out input the message to send as an array of bytes
and press the "Send Message" button. To send a malformed
GNUNET_HELLO_Message try: [0,0,17,0]

1 files changed, 10 insertions, 1 deletions

diff --git a/src/cljs/gnunet_web/ui.cljs b/src/cljs/gnunet_web/ui.cljs
index 0f1b867..8fe9d75 100644
--- a/src/cljs/gnunet_web/ui.cljs
+++ b/src/cljs/gnunet_web/ui.cljs
@@ -23,8 +23,17 @@
         (let [data (.-data event)]
           (if (= "stdout" (.-type data))
             (set! (.-onmessage (.-port data))
-                  (fn [event] (output (.-data event))))
+                  (fn [event] (output (str "peerinfo:" (.-data event)))))
             (output (.-data event))))))
 
 (.start (.-port peerinfo))
 (.postMessage (.-port peerinfo) (clj->js {:type "stdout"}))
+
+(.addEventListener
+  (by-id :send)
+  "click"
+  (fn [event]
+    (let [message (js/Object.)]
+      (set! (.-type message) "message")
+      (set! (.-array message) (JSON/parse (.-value (by-id :message))))
+      (.postMessage (.-port peerinfo) message))))