From 496471d630d653d09ac6564c8fb6545b284240f7 Mon Sep 17 00:00:00 2001
From: unwox <me@unwox.com>
Date: Sun, 14 Sep 2025 19:24:15 +0600
Subject: allow NO-ESCAPE to accept several args

---
 macros.fnl                    | 6 ++++--
 pages/shop/_product/index.fnl | 2 +-
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/macros.fnl b/macros.fnl
index fdfe17c..6053f6a 100644
--- a/macros.fnl
+++ b/macros.fnl
@@ -71,8 +71,10 @@
       (add ">")
       (each [_ item (pairs body)]
         (if
-          (and (sequence? item) (= (. item 1) "NO-ESCAPE"))
-            (add (. item 2))
+          (and (sequence? item)
+               (= (. item 1) "NO-ESCAPE"))
+           (each [i pair (ipairs item)]
+             (when (~= i 1) (add (. item i))))
           (sequence? item)
             (set result (concat result (inner-compile item)))
           (list? item)
diff --git a/pages/shop/_product/index.fnl b/pages/shop/_product/index.fnl
index a9b7904..91ec765 100644
--- a/pages/shop/_product/index.fnl
+++ b/pages/shop/_product/index.fnl
@@ -57,7 +57,7 @@
         [:h2 {:class "product-page-title"} product.title]
         (if authenticated?
          (HTML
-           [:div {:class "mb-1" :style "margin-top: -0.5rem;"}
+           [:div {:class "mb-1" :style "margin-top: -0.25rem;"}
             [:a {:href (.. "/shop/" product.name "/edit")}
              "% Редактировать"]])
          "")
-- 
cgit v1.2.3