sablono-hacks.clj

(ns your.macros-for-cljs.ns
  (:require [sablono.compiler :as sablono-c]))

;; Make sablono also walk into other forms:
;; if, for, let, do: Already exist
(.addMethod @(var sablono-c/compile-form) "when"
            (fn
              [[_ bindings & body]]
              `(when ~bindings ~@(for [x body] (sablono-c/compile-html x)))))

(.addMethod @(var sablono-c/compile-form) "when-not"
            (fn
              [[_ bindings & body]]
              `(when-not ~bindings ~@(for [x body] (sablono-c/compile-html x)))))

(.addMethod @(var sablono-c/compile-form) "if-not"
            (fn
              [[_ bindings & body]]
              `(if-not ~bindings ~@(for [x body] (sablono-c/compile-html x)))))

;; Don't interpret by default: User will have to treat errors instead:
(.addMethod @(var sablono-c/compile-form) :default
            (fn
              [expr]
              `~expr))
;; This is for vectors:
;; (html [:div "foo" [[:span "hi"] [:span "more"]]]
(.addMethod @(var sablono-c/compile-element) :default
            (fn [[el & r :as elements]]
              (mapv sablono-c/compile-html elements)))