add elixir pipe macro

jbr · Nov 28, 2015 · 5088583 · 5088583
1 parent 8ae9e50
commit 5088583
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 0 deletions.
diff --git a/include/macros.sibilant b/include/macros.sibilant
@@ -485,3 +485,15 @@
 
 (macro set (arr ...kv-pairs)
        (interleave "\n" (bulk-map kv-pairs (#(k v) `(assign (get @arr @k) @v)))))
+
+
+(macro pipe (...calls)
+       (inject undefined calls
+         (#(value item)
+           (var cloned (clone item))
+           (if (undefined? value)
+               cloned
+               (merge-into cloned
+                           { contents [ (first cloned.contents)
+                                        value
+                                        ...(rest cloned.contents) ] })))))
diff --git a/test/test.sibilant b/test/test.sibilant
@@ -674,3 +674,8 @@ b();"))
 (assert-translation "(default foo 1 bar 2)"
                     "foo = ((typeof foo !== \"undefined\")) ? foo : 1;
 bar = ((typeof bar !== \"undefined\")) ? bar : 2;")
+
+
+(assert-translation "(pipe a (b c) (d e) (+ 1) (send to-string) (send to-upper-case))"
+                    "(d(b(a, c), e) + 1).toString().toUpperCase()")
+