From 88d1725520afde9fe10a3daa1ad5c1c0a552f041 Mon Sep 17 00:00:00 2001
From: unwox <me@unwox.com>
Date: Sun, 7 Sep 2025 20:22:47 +0600
Subject: small fixes

---
 pages/shop/index.fnl | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

(limited to 'pages/shop/index.fnl')

diff --git a/pages/shop/index.fnl b/pages/shop/index.fnl
index 5a96ab2..bbe08fa 100644
--- a/pages/shop/index.fnl
+++ b/pages/shop/index.fnl
@@ -1,4 +1,4 @@
-(import-macros {:compile-html <>} :macros)
+(import-macros {:compile-html HTML} :macros)
 (local lib (require :lib))
 (local dicts (require :dicts))
 (local templates (require :templates))
@@ -42,16 +42,16 @@
   ;; (if (< 0 product.stock)
   ;;   (each [_ q (ipairs (quantity-steps product.stock 50))]
   ;;     (table.insert quantity-options
-  ;;                   (<>
+  ;;                   (HTML
   ;;                    [:option {:value (tostring q)}
   ;;                     (.. q " грамм за " (* product.price-per q) "₽")])))
-  ;;   (table.insert quantity-options (<> [:option {:value "0"} "Товар закончился"])))
+  ;;   (table.insert quantity-options (HTML [:option {:value "0"} "Товар закончился"])))
 
   (local images [])
   (for [i 2 5]
     (table.insert images (. product (.. "image" i))))
 
-  (<>
+  (HTML
    [:section {:class (.. "shop-item"
                          (if (not product.published)
                              " shop-item-not-published" ""))}
@@ -61,7 +61,7 @@
              :src (.. "/static/files/" (. product.image1) "-thumbnail.jpg")}]
       (table.concat
        (icollect [idx image (ipairs images)]
-         (<>
+         (HTML
            [:img {:class "shop-item-img" :src (.. "/static/files/" image "-thumbnail.jpg")
                   :loading "lazy"
                   :style (.. "z-index: " (+ idx 2) ";"
@@ -79,11 +79,11 @@
     [:div {} product.short-description]]))
 
 (fn content [db basket basket-total authenticated?]
-  [(<>
+  [(HTML
     [:div {:class "side"}
      (templates.header "/shop" authenticated?)
      (if (< 0 (# basket))
-      (<>
+      (HTML
        [:article {:class "article"}
         [:h2 {} "Корзина"]
         [:div {}
@@ -94,14 +94,14 @@
         [:div {:class "basket-total"} (.. "Итого: " basket-total "₽")]
         [:a {:href "/shop/order"} "Оформить заказ"]])
       "")])
-   (<>
+   (HTML
     [:div {:class "content"}
      [:div {:class "mb-1"} [:a {:href "/"} "⟵ Обратно на главную"]]
      [:h2 {:class "mb-1 product-page-title"}
        "Магазин"
        (if authenticated?
-        (<> [:a {:style "font-size: 1rem; margin-left: 0.75rem;"
-                 :href (.. "/shop/add")} "+ Добавить"])
+        (HTML [:a {:style "font-size: 1rem; margin-left: 0.75rem;"
+                   :href (.. "/shop/add")} "+ Добавить"])
         "")]
      [:div {:class "shop-items"}
       (let [products (all-products db authenticated?)]
@@ -109,7 +109,7 @@
           (table.concat
             (icollect [_ v (ipairs products)]
               (item-template v)))
-          (<> [:em {} "Пока что здесь ничего нет!"])))]])])
+          (HTML [:em {} "Пока что здесь ничего нет!"])))]])])
 
 (fn create-order [db]
   (let [id (_G.must (luna.crypto.random-string 64))]
-- 
cgit v1.2.3