ThinkPad R500 Vista Home Basic, Meadow 3.0

次は，emacsです。Windowsに最適化したemacsのひとつMeadowの最新版3.0を導入することに。

Meadowを使うのにCygwinは不要です。小生は，たまたま両方使いたいから，まずCygwinを入れて次にMeadowを入れるわけです。なぜこの順番がよいのかと言うと，Cygwinの/usr/localにMeadowを置きたいからです。ちなみに，Meadowの作業ディレクトリは，/usr/homeの下ではなく，C:￥Userの下の自分のディレクトリにしています。Meadowのダウンロードは次のURLから。

http://www.meadowy.org/meadow/

Cygwinもemacsとxemacsを提供してくれるんですが，それを日本語化するよりも，Windowsで利用するのであれば，現時点ではMeadowの方が洗練されています。たとえば，IME仮名漢字変換をうまく使えることや，綺麗なフォントが使えることが挙げられます。固定幅のMeiryoKe_Consoleフォントを使うことができますから，とても綺麗です。（なぜか？わざとか？IPA明朝やIPAゴシックなどの固定幅のフォントをVistaで使うと，Ubuntuで使うときより明らかに綺麗じゃないというよりきたない。）

MeiryoKe_Consoleフォントを導入したうえで，.emacsに下記を書いておけばOKです。default-frame-alistのところで，IMEフォントを指定しているので，確定フォントと変換中フォントが同じ大きさになります。また，小生のThinkPad R500の画面サイズに合わせて(width . 90)と(height . 68)にしてありますので，ここは，ご自分の画面サイズに合わせて調整してください。

;;; TrueType フォント設定
;
(w32-add-font
"fontset-MeiryoKe_Console"
'((strict-spec
((:char-spec ascii :height any)
(w32-logfont "MeiryoKe_Console" 7 14 400 0 nil nil nil 0 1 3 49))
((:char-spec ascii :height any :weight bold)
(w32-logfont "MeiryoKe_Console" 7 14 700 0 nil nil nil 0 1 3 49))
((:char-spec ascii :height any :slant italic)
(w32-logfont "MeiryoKe_Console" 7 14 400 0 t nil nil 0 1 3 49))
((:char-spec ascii :height any :weight bold :slant italic)
(w32-logfont "MeiryoKe_Console" 7 14 700 0 t nil nil 0 1 3 49))
((:char-spec japanese-jisx0208 :height any)
(w32-logfont "MeiryoKe_Console" 0 14 400 0 nil nil nil 128 1 3 49))
((:char-spec japanese-jisx0208 :height any :weight bold)
(w32-logfont "MeiryoKe_Console" 0 14 700 0 nil nil nil 128 1 3 49)
((spacing . -1)))
((:char-spec japanese-jisx0208 :height any :slant italic)
(w32-logfont "MeiryoKe_Console" 0 14 400 0 t nil nil 128 1 3 49))
((:char-spec japanese-jisx0208 :height any :weight bold :slant italic)
(w32-logfont "MeiryoKe_Console" 0 14 700 0 t nil nil 128 1 3 49)
((spacing . -1)))
((:char-spec katakana-jisx0201 :height any)
(w32-logfont "MeiryoKe_Console" 0 14 400 0 nil nil nil 128 1 3 49))
((:char-spec katakana-jisx0201 :height any :weight bold)
(w32-logfont "MeiryoKe_Console" 0 14 700 0 nil nil nil 128 1 3 49)
((spacing . -1)))
((:char-spec katakana-jisx0201 :height any :slant italic)
(w32-logfont "MeiryoKe_Console" 0 14 400 0 t nil nil 128 1 3 49))
((:char-spec katakana-jisx0201 :height any :weight bold :slant italic)
(w32-logfont "MeiryoKe_Console" 0 14 700 0 t nil nil 128 1 3 49)
((spacing . -1)))
)))
(setq default-frame-alist
(append (list
'(font . "fontset-MeiryoKe_Console") ; フォントセット
)
default-frame-alist))
(setq default-frame-alist
(append (list
'(foreground-color . "black")
'(background-color . "LemonChiffon")
'(background-color . "gray")
'(border-color . "black")
'(mouse-color . "white")
'(cursor-color . "black")
'(ime-font . (w32-logfont "MeiryoKe_Console"
0 14 400 0 nil nil nil 128 1 3 49))
'(width . 90)
'(height . 68)
'(top . 0)
'(left . 0))
default-frame-alist))