meadowのフォント

meadowのフォントを変更しました。メイリオフォントを使っているんですがプログラムを書くときなど文字の位置が微妙にずれてしまうからです。

メイリオフォントでは日本語については等幅フォントらしいので、ASCIIをなにか他の等幅フォントに変更しようと思い少し検索するとconsolasというフォントが見つかったので使ってみることにしました。インストールして.emacsに以下の設定を記述すると使えるようになりました。なかなかきれいなのでしばらく使ってみようかと思います。下記の設定はhttp://taka.no32.tk/diary/20070119.htmlからいただきました。

;;メイリオ-consolas
(w32-add-font  "meiryo-consolas" nil)
(w32-change-font
 "meiryo-consolas"
 '((spec
    ((:char-spec ascii :height any)
     strict
     (w32-logfont "Consolas" 0 -14 400 0 nil nil nil 0 1 3 0))
    ((:char-spec ascii :height any :weight bold)
     strict
     (w32-logfont "Consolas" 0 -14 700 0 nil nil nil 0 1 3 0))
    ((:char-spec ascii :height any :slant italic)
     strict
     (w32-logfont "Consolas" 0 -14 400 0 t nil nil 0 1 3 0))
    ((:char-spec ascii :height any :weight bold :slant italic)
     strict
     (w32-logfont "Consolas" 0 -14 700 0 t nil nil 0 1 3 0))
    ((:char-spec japanese-jisx0208 :height any)
     strict
     (w32-logfont "meiryo" 0 -15 400 0 nil nil nil 128 1 3 49)
     ((spacing . 1)))
    ((:char-spec japanese-jisx0208 :height any :slant italic)
     strict
     (w32-logfont "meiryo" 0 -15 400 0 t nil nil 128 1 3 49)
     ((spacing . 1)))
    ((:char-spec japanese-jisx0208 :height any :weight bold)
     strict
     (w32-logfont "meiryo" 0 -15 700 0 nil nil nil 128 1 3 49)
     ((spacing . 1)))
    ((:char-spec japanese-jisx0208 :height any :weight bold :slant italic)
     strict
     (w32-logfont "meiryo" 0 -15 700 0 t nil nil 128 1 3 49)
     ((spacing . 1))))))
 
(set-face-attribute 'variable-pitch nil :font "meiryo-consolas")
 
(setq default-frame-alist
      (append (list
	       '(font . "meiryo-consolas")
               )
              default-frame-alist))