From 240aeb84855a153764830186d5f4e7f22873561c Mon Sep 17 00:00:00 2001
From: unwox <me@unwox.com>
Date: Thu, 10 Oct 2024 15:03:06 +0600
Subject: implement filtering by tags

---
 lib/array.fnl | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'lib/array.fnl')

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}
-- 
cgit v1.2.3