summaryrefslogtreecommitdiff
path: root/test.fnl
diff options
context:
space:
mode:
Diffstat (limited to 'test.fnl')
-rw-r--r--test.fnl26
1 files changed, 13 insertions, 13 deletions
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"}