diff options
| author | unwox <me@unwox.com> | 2025-09-14 19:24:15 +0600 |
|---|---|---|
| committer | unwox <me@unwox.com> | 2025-09-14 19:25:53 +0600 |
| commit | 496471d630d653d09ac6564c8fb6545b284240f7 (patch) | |
| tree | a54fab8c5f64f917cc658dbab735e859e7cb1a60 | |
| parent | 93a063ed518f01c20bef3952f31baa2aa94aabb0 (diff) | |
allow NO-ESCAPE to accept several args
| -rw-r--r-- | macros.fnl | 6 | ||||
| -rw-r--r-- | pages/shop/_product/index.fnl | 2 |
2 files changed, 5 insertions, 3 deletions
@@ -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")} "% Редактировать"]]) "") |