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 "MS ゴシック" 0 12 400 0 nil nil nil 0 1 3 49))
    	((:char-spec ascii :height any :weight bold)
    	 (w32-logfont "MS ゴシック" 0 12 700 0 nil nil nil 0 1 3 49))
    	((:char-spec ascii :height any :slant italic)
    	 (w32-logfont "MS ゴシック" 0 12 400 0	t nil nil 0 1 3 49))
    	((:char-spec ascii :height any :weight bold :slant italic)
    	 (w32-logfont "MS ゴシック" 0 12 700 0	t nil nil 0 1 3 49))
    	((:char-spec japanese-jisx0208 :height any)
    	 (w32-logfont "MS ゴシック" 0 12 400 0 nil nil nil 128 1 3 49))
    	((:char-spec japanese-jisx0208 :height any :weight bold)
    	 (w32-logfont "MS ゴシック" 0 12 700 0 nil nil nil 128 1 3 49)
    	 ((spacing . -1)))
    	((:char-spec japanese-jisx0208 :height any :slant italic)
    	 (w32-logfont "MS ゴシック" 0 12 400 0	t nil nil 128 1 3 49))
    	((:char-spec japanese-jisx0208 :height any :weight bold :slant italic)
    	 (w32-logfont "MS ゴシック" 0 12 700 0	t nil nil 128 1 3 49)
    	 ((spacing . -1)))
    	((:char-spec katakana-jisx0201 :height any)
    	 (w32-logfont "MS ゴシック" 0 12 400 0 nil nil nil 128 1 3 49))
    	((:char-spec katakana-jisx0201 :height any :weight bold)
    	 (w32-logfont "MS ゴシック" 0 12 700 0 nil nil nil 128 1 3 49)
    	 ((spacing . -1)))
    	((:char-spec katakana-jisx0201 :height any :slant italic)
    	 (w32-logfont "MS ゴシック" 0 12 400 0	t nil nil 128 1 3 49))
    	((:char-spec katakana-jisx0201 :height any :weight bold :slant italic)
    	 (w32-logfont "MS ゴシック" 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)



emacs関連
(books)

添付ファイル: fileFixed98Epson.lzh 564件 [詳細]


トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: Sat, 24 Dec 2005 13:44:36 JST (4170d)