Playing with castra

4 files changed, 24 insertions, 3 deletions

diff --git a/src/app/api.clj b/src/app/api.clj
new file mode 100644
index 0000000..0f7ab17
--- /dev/null
+++ b/src/app/api.clj
@@ -0,0 +1,6 @@
+(ns app.api
+  (:require [castra.core :refer [defrpc]]))
+
+(defrpc get-state []
+        {:inputs []
+         :outputs []})
diff --git a/src/app/handler.clj b/src/app/handler.clj
index eb0c2a3..22b2d2d 100644
--- a/src/app/handler.clj
+++ b/src/app/handler.clj
@@ -12,7 +12,7 @@
 
 (def app
   (-> app-routes
-      (castra/wrap-castra 'app.api)
+      (castra/wrap-castra {:state-fn (fn [] "ohi")} 'app.api)
       (d/wrap-defaults d/api-defaults)))
 
 (db/init)
diff --git a/src/app/rpc.cljs b/src/app/rpc.cljs
index 7edbc4c..1651f72 100644
--- a/src/app/rpc.cljs
+++ b/src/app/rpc.cljs
@@ -4,3 +4,14 @@
   (:require
     [javelin.core]
     [castra.core :refer [mkremote]]))
+
+(defc state nil)
+(defc error nil)
+(defc loading nil)
+
+(def get-state
+  (mkremote 'app.api/get-state state error loading))
+
+(defn init []
+  (get-state)
+  (js/setInterval get-state 1000))
diff --git a/src/index.cljs.hl b/src/index.cljs.hl
index 4b8aa72..70fe417 100644
--- a/src/index.cljs.hl
+++ b/src/index.cljs.hl
@@ -1,8 +1,13 @@
 (page "index.html"
   (:require [app.rpc :as rpc]
+            [cljs.pprint :refer [pprint]]
             [cljsjs.semantic-ui :as ui]
             [Blockly]))
 
+(rpc/init)
+(defc= state rpc/state)
+(defc= error rpc/error)
+
 (def toolbox
   "<xml>
     <block type=\"controls_if\"></block>
@@ -32,7 +37,6 @@
     (title "Tankputer"))
   (body
     (h1 "Tankputer")
-    (blockly-workspace :css {:height "480px" :width "600px"}
-                       :options {:media "media/" :toolbox toolbox})))
+    (textarea :text (cell= (with-out-str (pprint state))))))
 
 ;; vim: set expandtab ts=2 sw=2 filetype=clojure :