5

以下のように、さまざまなキャラクターの顔の束を定義したいと思います。

(defface char-face-a
  '((((type tty) (class color)) (:background "yellow" :foreground "black"))
    (((type tty) (class mono)) (:inverse-video t))
    (((class color) (background dark)) (:background "yellow" :foreground "black"))
    (((class color) (background light)) (:background "yellow" :foreground "black"))
    (t (:background "gray")))
  "Face for marking up A's"
  :group 'char-faces)

(defface char-face-b
  '((((type tty) (class color)) (:background "red" :foreground "black"))
    (((type tty) (class mono)) (:inverse-video t))
    (((class color) (background dark)) (:background "red" :foreground "black"))
    (((class color) (background light)) (:background "red" :foreground "black"))
    (t (:background "gray")))
  "Face for marking up B's"
  :group 'char-faces)

...
...

すべての定義を明示的に記述せdeffaceず、コードの冗長性を減らす方法はありますか? （私は知ってmake-faceいますが、非推奨のようで、さまざまな端末タイプに応じて属性を設定することはできませんdefface。）

4

2 に答える 2

5

  1. make-faceまったく非推奨ではありません、AFAICT。

  2. defface継承を利用できます - face 属性を参照してください:inherit。それがあなたの特定の文脈で役立つかどうかはわかりません。

于 2013-07-21T17:23:56.310 に答える
3

サフィックス <-> 色のマッピングで動作するマクロとループはどうですか:

(defmacro brian-def-char-face (letter backgrnd foregrnd)
  `(defface ,(intern (concat "brian-char-face-"
                 letter))
     '((((type tty) (class color)) 
        (:background 
     ,backgrnd
     :foreground
     ,foregrnd))
       (((type tty) (class color)) (:inverse-video t))
       (((class color) (background dark))
    (:foreground
     ,foregrnd
     :background
     ,backgrnd))
       (((class color) (background light))
    (:foreground
     ,foregrnd
     :background
     ,backgrnd))
       (t (:background "gray")))
     ,(concat "Face for marking up " (upcase letter) "'s")))

(let ((letcol-alist '((s . (white black))
              (t . (black yellow))
              (u . (green pink)))))
  (loop for elem in letcol-alist
    for l = (format "%s" (car elem))
    for back = (format "%s" (cadr elem))
    for fore = (format "%s" (caddr elem))
    do 
    (eval (macroexpand `(brian-def-char-face ,l ,back ,fore)))))

あなたに新しい顔を与えます：

brian-char-face-s、brian-char-face-t、およびbrian-char-face-u

文字 <-> 色マッピングのリストを維持し、必要に応じてマクロを拡張して他の面のプロパティをサポートする必要があります。

于 2013-07-21T05:40:56.757 に答える