From 4905ad145c06c03c10f43a87fb906e8d53cebdc3 Mon Sep 17 00:00:00 2001
From: Benaiah Mischenko <benaiah@mischenko.com>
Date: Mon, 11 Feb 2019 15:49:26 -0800
Subject: [PATCH] Import react-macros.fnl from fennel-online

---
 app/src/react-macros.fnl | 61 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 61 insertions(+)
 create mode 100644 app/src/react-macros.fnl

diff --git a/app/src/react-macros.fnl b/app/src/react-macros.fnl
new file mode 100644
index 0000000..e049790
--- /dev/null
+++ b/app/src/react-macros.fnl
@@ -0,0 +1,61 @@
+(local unpack (or unpack table.unpack))
+(fn push [tab v]
+  (let [len (# tab)
+        i (+ len 1)]
+    (tset tab i v)))
+
+(fn js! [val]
+  (if (table? val)
+    (let [RETURN (gensym)
+          dolist `(do)]
+      (if (sequence? val)
+          (do
+            (push dolist `(local @RETURN (js.new js.global.Array)))
+            (each [i v (ipairs val)]
+              (push dolist `(tset @RETURN @(- i 1) @(js! v))))
+            (push dolist RETURN)
+            dolist)
+
+          (do (push dolist `(local @RETURN (js.new js.global.Object)))
+              (each [k v (pairs val)]
+                (push dolist `(tset @RETURN @(tostring k) @(js! v))))
+              (push dolist RETURN)
+              dolist)))
+    val))
+
+(fn create-component [el attrs ...]
+  (let [ATTRS (gensym)
+        CHILDREN (gensym)
+        children [...]
+        child-list []]
+    (each [i v (ipairs children)]
+      (push child-list `@(js! v)))
+    `(do (local @ATTRS @(js! (or attrs {})))
+         (: React :createElement @el @ATTRS
+            @(unpack child-list)))))
+
+(fn c! [arg1 ...]
+  (if (sequence? arg1)
+      (let [[name attrs] arg1
+            child-forms []
+            evaluated-child-forms []]
+        (for [i 3 (# arg1)] ;; skip name and attrs
+          (push child-forms (. arg1 i)))
+        (each [_ child-form (ipairs child-forms)]
+          ;; FIXME: this will eventually blow the stack
+          (push evaluated-child-forms
+                (if (sequence? child-form) (c! child-form)
+                    child-form)))
+        (create-component name attrs (unpack evaluated-child-forms)))
+
+      ;; else
+      (create-component arg1 ...)))
+
+(fn component! [name args ...]
+  (let [padded-args `[_ @(unpack args)]]
+    `(fn @name @padded-args @...)))
+
+
+{:js! js!
+ :c! c!
+ :component! component!}
-- 
2.45.2