另一個宏裏面的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)))