more tape

3 files changed, 28 insertions, 0 deletions

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
diff --git a/duct_tape.moon b/duct_tape.moon
index 35b6b5b..d1efd0c 100644
--- a/duct_tape.moon
+++ b/duct_tape.moon
@@ -71,10 +71,14 @@ to_lua = (text, options={}) ->
   if not tree
     return nil, err
 
+  p tree
+
   err = transform_extracts tree
   if err
     return nil, err
 
+  p tree
+
   code, ltable, pos = compile.tree tree, options
   if not code
     return nil, compile.format_error(ltable, pos, text)
@@ -110,6 +114,10 @@ loadstring = (...) ->
     return nil, ltable_or_err
 
   line_tables[chunk_name] = ltable_or_err if chunk_name
+
+  print "#{chunk_name} compiled to:"
+  print code
+
   -- the unpack prevents us from passing nil
   (lua.loadstring or lua.load) code, chunk_name, unpack { mode, env }