integrate moychay.ru tea shop

1 files changed, 5 insertions, 11 deletions

diff --git a/bin/serve.fnl b/bin/serve.fnl
index 5cfc535..9329bf1 100644
--- a/bin/serve.fnl
+++ b/bin/serve.fnl
@@ -5,6 +5,7 @@
 (local math (require :math))
 (local fennel (require :vendor.fennel))
 (local html (require :vendor.html))
+(local libhtml (require :lib.html))
 (local json (require :vendor.json))
 (local array (require :lib.array))
 (local str (require :lib.string))
@@ -57,15 +58,6 @@
   "термос" "бутылка"
   "бутылка" "термос"})
 
-(fn unescape [s]
-  (assert (= (type s) :string) "s must be string")
-  (pick-values 1
-   (-> s
-    (string.gsub "&lt;" "<")
-    (string.gsub "&gt;" ">")
-    (string.gsub "&quot;" "\"")
-    (string.gsub "&amp;" "&"))))
-
 (fn sanitize-input [input]
   (if input
     (str.trim (input:gsub "[=()<>']" "") " ")
@@ -333,7 +325,9 @@
            :alt product.title} ""]]
    (site-name-template product.site)
    [:a {:href link :style "text-decoration: none;" :rel "nofollow"}
-    [:NO-ESCAPE (.. "<div class=\"title\">" (unescape product.title) "</div>")]]
+    [:NO-ESCAPE (.. "<div class=\"title\">"
+                    (libhtml.unescape product.title)
+                    "</div>")]]
    [:div {:class "price"}
     (if product.price (.. (str.format-price product.price) "₽") "")
     (if (< 0 product.weight)
@@ -447,7 +441,7 @@
               [:option {:value val
                         :selected (if (= form.site val) "selected" nil)}
                        (. (require (.. "parser." val)) :title)])
-            [:ozchai :clubcha :ipuer :artoftea :chaekshop]))]]
+            [:ozchai :clubcha :ipuer :artoftea :chaekshop :moychay]))]]
      [:div {}
       [:select {:name "sort"}
        [:option {:value ""} "~ Порядок ~"]