在其他命名空间中应用宏

Question

我有类似 dsl 的东西数据的文件。在那里，我想删除一些基于 s-expression 的信息。我有一些处理此类文件的跑步者。

runner.clj

 (require '[data :as d])
 ;processing

data.clj

 (ns  data)
 (defmacro data [s] (println (str s)))

 ;dsl like stuff goes here
 (data "foo")

如何从数据文件（如 defmacro）中删除非 dsl？

也欢迎任何具有类似解决方案的源代码链接。

Answer 1

; dsl.clj
(ns dsl)
(defmacro data ...)

; data.clj
(ns data
  (:require dsl))

(dsl/data ...)

或者use:

; data.clj
(ns data
  (:use [dsl :only (data)]))

(data ...)