unknownplace.org

Meadow すごい。今まで散々悩んだ Proggy フォントと日本語フォントの組み合わせが普通にあっさり使えた。までも、xyzzyでも普通につかえるのだけど。

フォントの部分はよくわかってないが、こんな感じに:

; private-fontset作成
(w32-add-font
 "private-fontset"
 '((spec
    ((:char-spec ascii :height 90)
     strict
     (w32-logfont "CodingFontTobi1" 0 -12 400 0 nil nil nil 0 1 3 49))
    ((:char-spec ascii :height 90 :weight bold)
     strict
     (w32-logfont "CodingFontTobi1" 0 -12 700 0 nil nil nil 0 1 3 49))
    ((:char-spec ascii :height 90 :slant italic)
     strict
     (w32-logfont "CodingFontTobi1" 0 -12 400 0   t nil nil 0 1 3 49))
    ((:char-spec ascii :height 90 :weight bold :slant italic)
     strict
     (w32-logfont "CodingFontTobi1" 0 -12 700 0   t nil nil 0 1 3 49))
    ((:char-spec japanese-jisx0208 :height 120)
     strict
     (w32-logfont "ＭＳ ゴシック" 0 -12 400 0 nil nil nil 128 1 3 49))
    ((:char-spec japanese-jisx0208 :height 120 :weight bold)
     strict
     (w32-logfont "ＭＳ ゴシック" 0 -12 700 0 nil nil nil 128 1 3 49)
     ((spacing . -1)))
    ((:char-spec japanese-jisx0208 :height 120 :slant italic)
     strict
     (w32-logfont "ＭＳ ゴシック" 0 -12 400 0   t nil nil 128 1 3 49))
    ((:char-spec japanese-jisx0208 :height 120 :weight bold :slant italic)
     strict
     (w32-logfont "ＭＳ ゴシック" 0 -12 700 0   t nil nil 128 1 3 49)
     ((spacing . -1))))))
(set-face-attribute 'variable-pitch nil :family "*")

とかで fontset 作ってから

; 初期フレーム
(setq default-frame-alist
      (append (list '(font . "private-fontset")
            '(ime-font . (w32-logfont "ＭＳ ゴシック" 0 12 400 0 nil nil nil 128 1 3 49)))
          default-frame-alist))

とかとしてデフォルトのフォントセットにする。

とはいえ CodingFontTobi も MS ゴシックどっちも等幅といっても縦横比が違うので、混じっているとずれますが。日本語フォントは基本、mew 用なので問題ない。(Summaryがずれずれになっちゃうけど)

日本語綺麗になっちゃったから navi2ch とか riece とかもいれちゃおうか！

配色設定めんどくせー。