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

---
 test.fnl | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

(limited to 'test.fnl')

diff --git a/test.fnl b/test.fnl
index df0df6d..d0cae36 100644
--- a/test.fnl
+++ b/test.fnl
@@ -1,4 +1,4 @@
-(import-macros {:compile-html <>} :macros)
+(import-macros {:compile-html HTML} :macros)
 (local fennel (require :vendor.fennel))
 
 (fn improve-typography [text]
@@ -20,11 +20,11 @@
 
 (fn header [current-path]
   (local logo
-    (<> [:img {:class "logo" :src "/static/logo.svg"
+    (HTML [:img {:class "logo" :src "/static/logo.svg"
          :alt "Белая жаба в мультяшном стиле с чайником на голове"}]))
 
-  (<> [:article {:class "article"}
-        (if (~= current-path "") (<> [:a {:href "/"} logo]) logo)
+  (HTML [:article {:class "article"}
+        (if (~= current-path "") (HTML [:a {:href "/"} logo]) logo)
         [:h1 {} "Чайная комната «Белая&nbsp;жаба»"]
         [:nav {}
          [:a {:href "/shop" :class "active"}
@@ -56,35 +56,35 @@
        рублей с человека.")})
 
 (print
- (<> [:div (fn [] {:huemoe nil :hello "world" :required true}) "whatever"]))
+ (HTML [:div (fn [] {:huemoe nil :hello "world" :required true}) "whatever"]))
 
 ; (macrodebug
-;  (<> [:div (fn [] {:hello "world" :required true}) "whatever"]))
+;  (HTML [:div (fn [] {:hello "world" :required true}) "whatever"]))
 
 ; (macrodebug
-; (<>
+; (HTML
 ;   [:div {:class "side"}
 ;    (unpack [])]))
 
 ; (macrodebug
-; (<>
+; (HTML
 ;   [:div {:class "side"}
 ;    [:article {:class "article"}
 ;     (header "")
 ;     [:h2 {} "Адрес"]
 ;     [:p {} "test!"]]]))
 
-; (print (<>
+; (print (HTML
 ;   [:img {:class "side"}]))
 
 ; (local hello {:world "test"})
 
 ; (print
 ;   (fennel.view
-;     [(<> [:div {:class "first"} "11111"])
-;      (<> [:div {:class "second"} "22222"])]))
+;     [(HTML [:div {:class "first"} "11111"])
+;      (HTML [:div {:class "second"} "22222"])]))
 
-; (print (<>
+; (print (HTML
 ;   [:div {:class "side"}
 ;    [:article {:class "article"}
 ;     (header "")
@@ -94,7 +94,7 @@
 ;     [:p {} "<script>doesnt work!</script>"]]]))
 
 ; (macrodebug
-; (<>
+; (HTML
 ;   [:div {:class "side"}
 ;    (header "")
 ;    [:article {:class "article"}
-- 
cgit v1.2.3