Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
(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)))
@piranha

This comment has been minimized.

Copy link

@piranha piranha commented Nov 13, 2016

Thank you for this gist! :)

@piranha

This comment has been minimized.

Copy link

@piranha piranha commented Nov 13, 2016

(.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)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.