add kolokolnikovchai parser

3 files changed, 82 insertions, 3 deletions

diff --git a/parser/chaekshop.fnl b/parser/chaekshop.fnl
index 21ed49b..53c0271 100644
--- a/parser/chaekshop.fnl
+++ b/parser/chaekshop.fnl
@@ -12,7 +12,7 @@
   (.. "https://chaekshop.ru/catalog/" path "?page=" page))
 
 (local data-v-peg
-  (* (peg.P "data-v-") (^ (+ parser.pegs.letters parser.pegs.number) 1)))
+  (* (peg.P "data-v-") (^ (+ parser.pegs.lat-letters parser.pegs.number) 1)))
 
 (local product-peg
   (*
diff --git a/parser/kolokolnikovchai.fnl b/parser/kolokolnikovchai.fnl
new file mode 100644
index 0000000..cc5d723
--- /dev/null
+++ b/parser/kolokolnikovchai.fnl
@@ -0,0 +1,80 @@
+(import-macros {: map} :lib.macro)
+
+(local parser (require :parser.parser))
+(local array (require :lib.array))
+(local http (require :lib.http))
+(local number (require :lib.number))
+(local fetcher (require :fetcher))
+(local json (require :vendor.json))
+
+(fn format-url [path page]
+  (.. "https://store.tildaapi.com/api/getproductslist/"
+      "?storepartuid=" path
+      "&slice=" page
+      "&recid=280779251"
+      "&c=1723216515077"
+      "&getparts=true"
+      "&getoptions=true"
+      "&size=36"))
+
+(fn destruct-response [response]
+  {:items (. (json.decode response) :products)})
+
+(fn normalize [product]
+  (var weight nil)
+
+  (when product.characteristics
+    (each [_ c (ipairs product.characteristics)]
+      (when (= (. c :title) "Вес")
+        (set weight (parser.guess-weight c.value ["г"])))))
+
+  (when (and product.properties (not weight))
+    (each [_ c (ipairs product.properties)]
+      (when (= (. c :title) "Выберите вес:") ;; FRAGILE!
+        (set weight (parser.guess-weight c.values ["г"])))))
+
+  (when (~= product.quantity "0")
+    (local gallery (json.decode product.gallery))
+    (local price (number.string->number (. product.editions 1 :price)))
+
+    {:site "kolokolnikovchai"
+     :url product.url
+     :title product.title
+     :description product.descr
+     ;; FIXME: parse all editions into different products
+     :image (if (< 0 (# gallery))
+              (. gallery 1 :img)
+              "")
+     :weight weight
+     :volume (or (parser.guess-volume product.descr)
+                 (parser.guess-volume product.text))
+     :price price
+     :price-per (if (and price weight (< 0 weight))
+                 (/ (math.ceil (* (/ price weight) 10)) 10)
+                 nil)
+     :characteristics product.characteristics}))
+
+(fn products []
+  (fetcher.from-json
+    [{:path "409075863661" :tags ["Красный чай"]}
+     {:path "754089666541" :tags ["Красный чай"]}
+     {:path "372064040221" :tags ["Шу пуэр"]}
+     {:path "454350410711" :tags ["Хэй ча"]}
+     {:path "841704512611" :tags ["Шен пуэр"]}
+     {:path "848263867181" :tags ["Белый чай"]}
+     {:path "990406163191" :tags ["Зеленый чай"]}
+     {:path "451142994821" :tags ["Улун"]}
+     {:path "770906787081" :tags ["Габа"]}
+     {:path "909586139961" :tags ["Посуда"]} ;; чайники
+     {:path "351075619951" :tags ["Посуда"]} ;; гайвани
+     {:path "874916565001" :tags ["Посуда"]} ;; пиалы
+     {:path "927453990401" :tags ["Посуда"]} ;; чахаи
+     {:path "242398612931" :tags ["Посуда"]} ;; чайные доски
+     {:path "208270710991" :tags ["Посуда"]} ;; чайные аксессуары
+     {:path "542771614531" :tags ["Посуда"]} ;; заварники
+    ]
+    format-url
+    destruct-response
+    normalize))
+
+{:products products :title "Колокольников Чай" :url "https://kolokolnikovchai.ru"}
diff --git a/parser/ozchai.fnl b/parser/ozchai.fnl
index 937a35b..1d4c4f3 100644
--- a/parser/ozchai.fnl
+++ b/parser/ozchai.fnl
@@ -30,10 +30,9 @@
       (set volume (parser.guess-volume c.value))))
 
   {:site "ozchai"
-   :id product.url
    :url product.url
    :title product.title
-   :description product.descr 
+   :description product.descr
    ;; FIXME: parse all editions into different products
    :image (if (< 0 (# gallery))
             (. gallery 1 :img)