另一个宏里面的Clojure宏：如何从符号生成的字符串

Question

大概称号，是不是100％正确，但让我告诉你这个问题：

(defmacro nvp! 
    [n width height] 
    `(q/defsketch (symbol (str (name '~n) "-viewport")) 
        :title (name '~n)) 

总之：有一个宏观称为defsketch（它的一部分的lib quil，但这并不重要）。它的签名基本上是defsketch [applet-name & options]，它创建了一些东西并将其绑定到名为applet-name的变量。出于某种原因，我想将其包含在另一个宏中，其中包含applet-name参数，将该名称扩展为applet-name-viewport，并将其传递给defsketch。我，但是，我无法弄清楚如何做正确（使用macroexpand在上面的代码（(pprint (macroexpand(nvp test-name 500 500)))，我得到

(def(clojure.core/symbol (clojure.core/str (clojure.core/name 'my-namespace.core/test-name) "-viewport")) 
(quil.applet/applet 
:title (clojure.core/name 'my-namespace.core/test-name))) 

(clojure.core/symbol (clojure.core/str (clojure.core/name 'my-namespace.core/test-name) "-viewport") - 这部分看起来不错，但它应该以某种方式传递之前，将进行评估到内部宏...

Answer 1

您需要解除引用产生新的符号，而不是原始符号本身的形式。

这里是如何做到这一点使用defn类似宏的一个小例子内部宏：

(defmacro mydefn 
    [name & body] 
    `(defn ~name ~@body)) 

(defmacro defnview 
    [n & body] 
    `(mydefn ~(symbol (str (name n) "-viewport")) ~@body)) 

;; OR 

(defmacro defnview 
    [n & body] 
    (let [n (symbol (str (name n) "-viewport"))] 
    `(mydefn ~n ~@body))) 

例子：

(defnview foo [a] a) 
;; => #'user/foo-viewport 

(foo-viewport 1) 
;; => 1 

(macroexpand '(defnview foo [a] a)) 
;; => (def foo-viewport (clojure.core/fn ([a] a)))