penpot/frontend/uxbox/util/syntax.cljc

(ns uxbox.util.syntax
  (:refer-clojure :exclude [defonce]))

(defmacro define-once
  [name' & body]
  (let [sym (symbol (str (namespace name') "-" (name name')))]
    `(cljs.core/defonce ~sym
       (do ~@body nil))))
Add syntax helper for define once unnamed global instances. 2016-01-07 19:01:50 +02:00			`(ns uxbox.util.syntax`
			`(:refer-clojure :exclude [defonce]))`

			`(defmacro define-once`
Minor refactor of define-once macro. 2016-01-10 23:50:10 +02:00			`[name' & body]`
			`(let [sym (symbol (str (namespace name') "-" (name name')))]`
Add syntax helper for define once unnamed global instances. 2016-01-07 19:01:50 +02:00			`(cljs.core/defonce ~sym
Minor refactor of define-once macro. 2016-01-10 23:50:10 +02:00			`(do ~@body nil))))`