Meadowのフォント

Meadowのフォント設定

GNU Intlfonts

1. ダウンロード
   • GNU intlfonts

     wget ftp://m17n.org/pub/mule/intlfonts-1.2.1.tar.gz

2. .emacs

   (setq bdf-use-intlfonts16 t)
   (setq initial-frame-alist '((font . "intlfonts16")))

MS ゴシック

1. .emacs

   (w32-add-font
    "fontset-msgothic12"
    '((strict-spec
   	((:char-spec ascii :height any)
   	 (w32-logfont "ＭＳ ゴシック" 0 12 400 0 nil nil nil 0 1 3 49))
   	((:char-spec ascii :height any :weight bold)
   	 (w32-logfont "ＭＳ ゴシック" 0 12 700 0 nil nil nil 0 1 3 49))
   	((:char-spec ascii :height any :slant italic)
   	 (w32-logfont "ＭＳ ゴシック" 0 12 400 0	t nil nil 0 1 3 49))
   	((:char-spec ascii :height any :weight bold :slant italic)
   	 (w32-logfont "ＭＳ ゴシック" 0 12 700 0	t nil nil 0 1 3 49))
   	((:char-spec japanese-jisx0208 :height any)
   	 (w32-logfont "ＭＳ ゴシック" 0 12 400 0 nil nil nil 128 1 3 49))
   	((:char-spec japanese-jisx0208 :height any :weight bold)
   	 (w32-logfont "ＭＳ ゴシック" 0 12 700 0 nil nil nil 128 1 3 49)
   	 ((spacing . -1)))
   	((:char-spec japanese-jisx0208 :height any :slant italic)
   	 (w32-logfont "ＭＳ ゴシック" 0 12 400 0	t nil nil 128 1 3 49))
   	((:char-spec japanese-jisx0208 :height any :weight bold :slant italic)
   	 (w32-logfont "ＭＳ ゴシック" 0 12 700 0	t nil nil 128 1 3 49)
   	 ((spacing . -1)))
   	((:char-spec katakana-jisx0201 :height any)
   	 (w32-logfont "ＭＳ ゴシック" 0 12 400 0 nil nil nil 128 1 3 49))
   	((:char-spec katakana-jisx0201 :height any :weight bold)
   	 (w32-logfont "ＭＳ ゴシック" 0 12 700 0 nil nil nil 128 1 3 49)
   	 ((spacing . -1)))
   	((:char-spec katakana-jisx0201 :height any :slant italic)
   	 (w32-logfont "ＭＳ ゴシック" 0 12 400 0	t nil nil 128 1 3 49))
   	((:char-spec katakana-jisx0201 :height any :weight bold :slant italic)
   	 (w32-logfont "ＭＳ ゴシック" 0 12 700 0	t nil nil 128 1 3 49)
   	 ((spacing . -1)))
   )))

Fixed98Epson

1. ダウンロード
   • プログラマ向けかもしれない固定ピッチフォント
2. .emacs

   (w32-add-font
    "fontset-fixepson12"
    '((strict-spec
   	((:char-spec ascii :height any)
   	 (w32-logfont "Fixed98Epson" 0 -12 400 0 nil nil nil 128 1 1 49))
    	((:char-spec ascii :height any :weight bold)
   	 (w32-logfont "Fixed98Epson" 0 -12 700 0 nil nil nil 128 1 1 49))
   	((:char-spec ascii :height any :slant italic)
   	 (w32-logfont "Fixed98Epson" 0 -12 400 0 t nil nil 128 1 1 49))
   	((:char-spec ascii :height any :weight bold :slant italic)
   	 (w32-logfont "Fixed98Epson" 0 -12 700 0 t nil nil 128 1 1 49))
   	((:char-spec japanese-jisx0208 :height any)
   	 (w32-logfont "Fixed98Epson" 0 -12 400 0 nil nil nil 128 1 1 49))
   	((:char-spec japanese-jisx0208 :height any :weight bold)
   	 (w32-logfont "Fixed98Epson" 0 -12 700 0 nil nil nil 128 1 1 49)
   	 ((spacing . -1)))
   	((:char-spec japanese-jisx0208 :height any :slant italic)
   	 (w32-logfont "Fixed98Epson" 0 -12 400 0 t nil nil 128 1 1 49))
   	((:char-spec japanese-jisx0208 :height any :weight bold :slant italic)
   	 (w32-logfont "Fixed98Epson" 0 -12 700 0 t nil nil 128 1 1 49)
   	 ((spacing . -1)))
   	((:char-spec katakana-jisx0201 :height any)
   	 (w32-logfont "Fixed98Epson" 0 -12 400 0 nil nil nil 128 1 1 49))
   	((:char-spec katakana-jisx0201 :height any :weight bold)
   	 (w32-logfont "Fixed98Epson" 0 -12 700 0 nil nil nil 128 1 1 49)
   	 ((spacing . -1)))
   	((:char-spec katakana-jisx0201 :height any :slant italic)
   	 (w32-logfont "Fixed98Epson" 0 -12 400 0 t nil nil 128 1 1 49))
   	((:char-spec katakana-jisx0201 :height any :weight bold :slant italic)
   	 (w32-logfont "Fixed98Epson" 0 -12 700 0 t nil nil 128 1 1 49)
   	 ((spacing . -1)))
   )))

Windows の logfont を調べる

• フォント選択ダイアログを表示し、ダイアログで選択されたフォントの logfont を返します。

  (w32-query-get-logfont)