diff options
Diffstat (limited to 'bin/serve.fnl')
| -rw-r--r-- | bin/serve.fnl | 16 |
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 "<" "<") - (string.gsub ">" ">") - (string.gsub """ "\"") - (string.gsub "&" "&")))) - (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 ""} "~ Порядок ~"] |