implement filtering by tags

1 files changed, 7 insertions, 1 deletions

diff --git a/lib/array.fnl b/lib/array.fnl
index 9ed0d80..6dc0780 100644
--- a/lib/array.fnl
+++ b/lib/array.fnl
@@ -43,6 +43,12 @@
         [value])))
   a []))
 
+(fn contains [a want]
+  (each [_ v (pairs a)]
+    (if (= v want)
+      (lua "return true")))
+  false)
+
 (local join table.concat)
 
-{: concat : diff : unique : flatten : join}
+{: concat : diff : unique : flatten : join : contains}