Clojure宏在另一个宏中:如何从符号生成字符串

Question

标题可能不是100%正确，但让我向您展示问题：

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

简而言之：有一个名为defsketch的宏（它是库quil的一部分，但这并不重要）。它的签名基本上是defsketch [applet-name & options]，它创建一些东西并将其绑定到一个名为applet-name的var。出于某种原因，我想将其封装到另一个宏中，该宏采用applet-name参数，将该名称扩展到applet-name-viewport中，并将其传递给defsketch。I、 然而，我无法弄清楚如何正确地做到这一点（在上面的代码上使用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)))