(page "index.html"
(:require [app.rpc :as rpc]
[cljs.pprint :refer [pprint]]
[cljsjs.semantic-ui :as ui]
[Blockly]
[Blockly.Blocks.loops]
[Blockly.Blocks.lists]
[Blockly.Blocks.texts]
[Blockly.Blocks.procedures]
[Blockly.Blocks.math]
[Blockly.Blocks.variables]
[Blockly.Blocks.colour]
[Blockly.Blocks.logic]
[Blockly.Msg.en]))
(rpc/init)
(defc= state rpc/state)
(defc= error rpc/error)
(def toolbox
"
")
(defelem blockly-workspace
[{:keys [options] :as attr} kids]
(let [elem (div (dissoc attr :options) kids)]
(with-init!
(set! (.-workspace elem)
(.inject js/Blockly elem (clj->js options))))
elem))
(html
(head
(link :rel "stylesheet" :type "text/css"
:href "cljsjs/semantic-ui/common/semantic.min.css")
(title "Tankputer"))
(body
(h1 "Tankputer")
(textarea :text (cell= (with-out-str (pprint state))))
(blockly-workspace :css {:height "480px" :width "600px"}
:options {:media "media/" :toolbox toolbox})))
;; vim: set expandtab ts=2 sw=2 filetype=clojure :