From 4bd78ced2b84f9f4c851a8fdb872bc318a296221 Mon Sep 17 00:00:00 2001
From: unwox <me@unwox.com>
Date: Wed, 16 Oct 2024 22:42:28 +0600
Subject: fix artoftea parsing

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

diff --git a/lib/utils.fnl b/lib/utils.fnl
index 3220952..fcc235c 100644
--- a/lib/utils.fnl
+++ b/lib/utils.fnl
@@ -2,4 +2,10 @@
   (local (ok? result) ...)
   (if ok? result (error result)))
 
-{: must}
+(fn measure [what f]
+  (local start (luna.utf8.now))
+  (local res (table.pack (f)))
+  (print (.. what ": " (/ (- (luna.utf8.now) start) 1e6)))
+  (values (table.unpack res)))
+
+{: must : measure}
diff --git a/parser/artoftea.fnl b/parser/artoftea.fnl
index c2fdc8f..5339a3f 100644
--- a/parser/artoftea.fnl
+++ b/parser/artoftea.fnl
@@ -39,11 +39,7 @@
       (parser.tag :span {:id "*"}
       (peg.Cg (parser.till "</span>") :price)))))
    (parser.anywhere
-    (parser.tag :input {:type "hidden"
-                        :name "product_id"
-                        :value (peg.Cg parser.pegs.number :id)}))
-   (parser.anywhere
-     (parser.tag :button {:type "*" :onclick "*" :class "*"} "Купить"))))
+    (parser.tag :button {:type "*" :onclick "*" :class "*"} "В корзину"))))
 
 (fn normalize [product]
   (local year (parser.guess-year product.title))
-- 
cgit v1.2.3