summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--macros.fnl6
-rw-r--r--pages/shop/_product/index.fnl2
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")}
"% Редактировать"]])
"")