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

---
 parser/artoftea.fnl | 2 +-
 parser/parser.fnl   | 8 ++++----
 2 files changed, 5 insertions(+), 5 deletions(-)

(limited to 'parser')

diff --git a/parser/artoftea.fnl b/parser/artoftea.fnl
index f053833..c2fdc8f 100644
--- a/parser/artoftea.fnl
+++ b/parser/artoftea.fnl
@@ -64,7 +64,7 @@
 
 (fn products []
   (fetcher.from-html
-    [{:path "redtea" :tags ["Красный чай"]}]
+    [{:path "redtea" :tags ["Красный чай"]}
      {:path "greentea" :tags ["Зеленый чай"]}
      {:path "puer/shu-puer" :tags ["Шу пуэр"]}
      {:path "puer/sheng-puer" :tags ["Шен пуэр"]}
diff --git a/parser/parser.fnl b/parser/parser.fnl
index ca74847..cb026bc 100644
--- a/parser/parser.fnl
+++ b/parser/parser.fnl
@@ -108,15 +108,15 @@
 (fn guess-tags [text]
   (local text (if text (luna.utf.lower text) ""))
 
-  (if (: (anywhere (peg.P "зеленый")) :match text)
+  (if (: (anywhere (peg.P "зеленый чай")) :match text)
     ["Зеленый чай"]
    (: (anywhere (peg.P "улун")) :match text)
     ["Улун"]
-   (: (anywhere (peg.P "белый")) :match text)
+   (: (anywhere (peg.P "белый чай")) :match text)
     ["Белый чай"]
-   (: (anywhere (peg.P "желтый")) :match text)
+   (: (anywhere (peg.P "желтый чай")) :match text)
     ["Желтый чай"]
-   (: (anywhere (peg.P "красный")) :match text)
+   (: (anywhere (peg.P "красный чай")) :match text)
     ["Красный чай"]
    (: (anywhere (peg.P "хэй ча")) :match text)
     ["Хэй ча"]
-- 
cgit v1.2.3