#{ //mquery functions q <- foreign: :query {} qall <- foreign: :query {} each <- foreign: :iterable fun {} addClass <- foreign: :node className {} removeClass <- foreign: :node className {} //tabletprog JS helpers setP <- foreign: :object property val {} getP <- foreign: :object property {} //js builtins console <- foreign: #{ log <- foreign: #{} } main <- { each: (qall: "li") :idx el { el setP: "onclick" :event { srcel <- (q: "#src") srcel setP: "innerHTML" (srcel getP: "innerHTML") + (el getP: "innerHTML") } } (q: "#ops_button") setP: "onclick" :event { addClass: (q: ".controls") "showops" } (q: "#builtin_button") setP: "onclick" :event { removeClass: (q: ".controls") "showops" } } }