Skip to content

Instantly share code, notes, and snippets.

@AeroNotix

AeroNotix/foo.clj Secret

Created January 4, 2015 23:55
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save AeroNotix/f04ca13a2df8aa30c176 to your computer and use it in GitHub Desktop.
Save AeroNotix/f04ca13a2df8aa30c176 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
foo.clj
(defmacro idiodef [name value]
(let [name (if (symbol? name)
(resolve name)
name)]
`(def ~(symbol name) ~value)))
(macroexpand '(let [foo "foo"] (defcloud.core/idiodef foo :bar)))
;; => (let* [foo "foo"] (defcloud.core/idiodef foo :bar))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment