From ac7e873595c93a996090632cfbdf2f47d5a4e2c4 Mon Sep 17 00:00:00 2001
From: s-ol <s-ol@users.noreply.github.com>
Date: Mon, 15 Oct 2018 16:15:34 +1100
Subject: more tape

---
 app/realities.moon | 16 ++++++++++++++++
 app/test.moon      |  4 ++++
 2 files changed, 20 insertions(+)
 create mode 100644 app/test.moon

(limited to 'app')

diff --git a/app/realities.moon b/app/realities.moon
index 244cd41..d83109c 100644
--- a/app/realities.moon
+++ b/app/realities.moon
@@ -1,11 +1,27 @@
 import append, h1, h2, p, a, i, div, ol, li, br, hr, span, button, section, article from require 'app.component'
+import compile from require 'duct_tape'
 
 local Diagram, o
 GRID_W = 50
 GRID_H = 40
 
+on_client = (fn, ...) ->
+  switch MODE
+    when 'SERVER'
+      code = compile fn
+      warn code
+      append "<script type=\"application/lua\">
+        local fn = #{code}
+        fn(#{table.concat { ... }, ', '})
+      </script>"
+    when 'CLIENT'
+      fn ...
+
 -- script https://cdnjs.cloudflare.com/ajax/libs/svg.js/2.6.6/svg.min.js
 
+on_client ->
+  js.global\alert 'hello world!'
+
 if MODE == 'CLIENT'
   require 'svg.js'
   eval = js.global\eval
diff --git a/app/test.moon b/app/test.moon
new file mode 100644
index 0000000..799ec03
--- /dev/null
+++ b/app/test.moon
@@ -0,0 +1,4 @@
+y = { :print }
+->
+  test with y
+    print
-- 
cgit v1.2.3