Skip to content

Instantly share code, notes, and snippets.

@cemerick

cemerick/defonce.clj

Created August 25, 2013 03:01
Show Gist options
  • Star 5 You must be signed in to star a gist
  • Fork 1 You must be signed in to fork a gist
  • Save cemerick/6331727 to your computer and use it in GitHub Desktop.
Save cemerick/6331727 to your computer and use it in GitHub Desktop.
Download ZIP
`defonce` for ClojureScript
Raw
defonce.clj
(ns whatever.cljs
(:require [cljs.compiler :refer (munge)])
(:refer-clojure :exclude (munge defonce)))
(defmacro defonce
[vname expr]
(let [ns (-> &env :ns :name name munge)
mname (munge (str vname))]
`(when-not (.hasOwnProperty ~(symbol "js" ns) ~mname)
(def ~vname ~expr))))
@akovantsev
Copy link

https://github.com/clojure/clojurescript/blob/5bc4f957ad98a6d4cd2de0576e5221e9b33bcdaf/src/clj/cljs/core.clj#L65-L67

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment