作業用フォント変更

今まで、M+とIPAフォントの合成を作成して配布されている物を使っていた。が、俺の好みに比べてフォントが少し細いのが気に入らなかったので、オリジナル配布元のhttp://mplus-fonts.sourceforge.jp/mplus-outline-fonts/からmplus-1mn-medium.ttf*と合成させる*1事にした。方法は、オリジナル配布元のサイトに書いてあります。
Meadowxyzzyにさっそく設定してみたが良い感じだ。.emacsには以下を追記しています。

(w32-add-font
 "M+1MN+IPAG"
 '((strict-spec
    ((:char-spec ascii :height any)
     (w32-logfont "M+1MN+IPAG" 0 -14 400 0 nil nil nil 0 1 3 49))
    ((:char-spec ascii :height any :weight bold)
     (w32-logfont "M+1MN+IPAG" 0 -14 800 0 nil nil nil 0 1 3 49))
    ((:char-spec ascii :height any :slant italic)
     (w32-logfont "M+1MN+IPAG" 0 -14 400 0   t nil nil 0 1 3 49))
    ((:char-spec ascii :height any :weight bold :slant italic)
     (w32-logfont "M+1MN+IPAG" 0 -14 800 0   t nil nil 0 1 3 49))
    ((:char-spec japanese-jisx0208 :height any)
     (w32-logfont "M+1MN+IPAG" 0 -14 400 0 nil nil nil 128 1 3 49))
    ((:char-spec japanese-jisx0208 :height any :weight bold)
     (w32-logfont "M+1MN+IPAG" 0 -14 800 0 nil nil nil 128 1 3 49))
    ((:char-spec japanese-jisx0208 :height any :slant italic)
     (w32-logfont "M+1MN+IPAG" 0 -14 400 0   t nil nil 128 1 3 49))
    ((:char-spec japanese-jisx0208 :height any :weight bold :slant italic)
     (w32-logfont "M+1MN+IPAG" 0 -14 800 0   t nil nil 128 1 3 49)))))

(setq default-frame-alist
  (append (list
    '(font . "M+1MN+IPAG")
    '(ime-font . (w32-logfont "M+1MN+IPAG" 0 -14 400 0 nil nil nil 128 1 3 49)))
     default-frame-alist))

*1:配布されているフォントはregularを使用