宏包設置面屬性不工作

Question

我要創建宏，將改變這樣的：

(set-face-attribute 'term-color-blue nil :foreground "#5555FF") 

到

(term-color blue "#5555FF") 

我已經嘗試：

(defmacro term-color (name color) 
    `(set-face-attribute ',(intern (concat "term-color-" (symbol-name name))) 
         :foreground ,color)) 

但得到錯誤wrong-type-argument symbolp "#5555FF"，我的宏有什麼問題？

Macroexpand回報：

(set-face-attribute (quote term-color-blue) :foreground "#5555FF") 

Answer 1

nil顯眼地從宏擴展丟失。

嘗試

(defmacro term-color (name color) 
    `(set-face-attribute ',(intern (concat "term-color-" (symbol-name name))) 
         nil :foreground ,color))