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)))

Thank you for this gist! :)

(.addMethod @(var sablono-c/compile-form) "cond"
  (fn [[_ & clauses]]
    `(cond ~@(mapcat
             (fn [[check expr]] [check (sablono.compiler/compile-html expr)])
             (partition 2 clauses)))))


(.addMethod @(var sablono-c/compile-form) "case"
  (fn [[_ var & clauses]]
    `(case ~var ~@(mapcat
               (fn [[constant expr]]
                 (if expr
                   [constant (sablono.compiler/compile-html expr)]
                   ;; default expression
                   [(sablono.compiler/compile-html constant)]))
             (partition 2 clauses)))))