macro generating macro

gistfile1.txt

(defmacro def-with-disable-macro
  "Generates a pair of macros, with-enable-foo and with-disable-foo, which use with-redefs to replace foo with (constantly nil), or restore it."
  [v short-name]
  (let [disable-name (symbol (format "with-disable-%s" short-name))
        enable-name (symbol (format "with-enable-%s" short-name))]
    `(do
       (let [v# #'~v
             v-name# (quote ~v)
             old-value# (deref #'~v)
             ns# *ns*]
         (defmacro ~disable-name [& body#]
           `(with-redefs [~v-name# (constantly nil)]
              (do
                ~@body#)))
         (defmacro ~enable-name [& body#]
           `(do
              (with-redefs [~v-name# ~old-value#]
                (do
                  ~@body#))))))))

(defmacro def-with-disable-macro
"Generates a pair of macros, with-enable-foo and with-disable-foo, which use with-redefs to replace foo with (constantly nil), or restore it."
[v short-name](let [disable-name %28symbol %28format "with-disable-%s" short-name))
enable-name (symbol (format "with-enable-%s" short-name))]
(do (let [v# #'~v v-name# (quote ~v) old-value# (deref #'~v) ns# *ns*] (defmacro ~disable-name [& body#] (with-redefs [~v-name# (constantly nil)](do
~@Body#)))
(defmacro ~enable-name [& body#]
`(do
(with-redefs [~v-name# ~old-value#](do
~@Body#))))))))