From e48032674a8d0d9f28afdb3ef1d36add5096f043 Mon Sep 17 00:00:00 2001
From: unwox <me@unwox.com>
Date: Thu, 31 Oct 2024 16:42:53 +0600
Subject: fix parsing of ipuer products without descriptions

---
 parser/ipuer.fnl | 24 ++++++++++++++++--------
 1 file changed, 16 insertions(+), 8 deletions(-)

(limited to 'parser/ipuer.fnl')

diff --git a/parser/ipuer.fnl b/parser/ipuer.fnl
index 9a244e2..b501a35 100644
--- a/parser/ipuer.fnl
+++ b/parser/ipuer.fnl
@@ -25,17 +25,25 @@
        (parser.tag :a {:href "*"}
         (parser.tag :span {} (peg.Cg (parser.till "</span>") :title)))))
      ;; description
-     (parser.anywhere
-       (parser.tag :div {:class "card-product_description"}
-                   (peg.Cg (parser.till "</div>") :description)))
-     ;; price
-     (parser.anywhere
+     (+
+      (parser.anywhere
        (parser.tag :span {:class "card-price_new"}
                    (* (peg.Cg
-                        (* parser.pegs.number
+                         (* parser.pegs.number
                            (parser.maybe (* " " parser.pegs.number)))
-                        :price)
-                      " р.")))
+                         :price)
+                       " р.")))
+      (*
+       (parser.anywhere
+         (parser.tag :div {:class "card-product_description"}
+                     (peg.Cg (parser.till "</div>") :description)))
+       (parser.anywhere
+         (parser.tag :span {:class "card-price_new"}
+                     (* (peg.Cg
+                           (* parser.pegs.number
+                             (parser.maybe (* " " parser.pegs.number)))
+                           :price)
+                         " р.")))))
      (parser.anywhere
        (+ (parser.tag :a {:data-url "*" :class "*" :data-add-text "*"} "В корзину")
           (parser.tag :a {:data-url "*" :class "*"} "В корзину")))))
-- 
cgit v1.2.3