[meadow-develop:1997/360]Font setting (was Re:Package SEMI Gnus for Meadow?)

[Miyashita Hisashi(宮下 尚:HIMI) <himi@xxxxxxxxxxxxxxxxxxxxxxxxx>]

それじゃ、私もBDF font設定の公開といきましょう。

長く書くのは嫌いだから、こんな設定になってます。

これを bdffont.elみたいにしてセーブして、
.emacsでロードしてから、

(w32-configure-bdf-font "bdf-fontset")
みたいにするのが、今のところの私の設定です。

## はらさん、この設定で、devanagariがきちんと表示できませんか？

それから、これを使う時にはファイル名をきちんと確認しましょう。

### しかし、これ使ってても全然落ちないなぁ。

From himi

--------------------------------------------------------
(defvar bdf-font-directory "g:/data/fonts")
(defvar bdf-font-name-prefix "bdffont16-")

(defvar bdf-font-file-alist
  '((ascii "non-cjk/etl16-latin1.bdf" 0)
    (japanese-jisx0212 "japanese/min-1-16.bdf" 0)
    (japanese-jisx0208 "japanese/jiskan16.bdf" 0)
    (latin-jisx0201 "japanese/8x16rk.bdf" 0)
    (katakana-jisx0201 "japanese/8x16rk.bdf" 1)
    (chinese-big5-1 "chinese/taipei16.bdf" encode-big5-font)
    (chinese-big5-2 "chinese/taipei16.bdf" encode-big5-font)
    (chinese-gb2312 "chinese/gb16st.bdf" 0)
    (chinese-cns11643-1 "chinese/cns-1-16.bdf" 0)
    (chinese-cns11643-2 "chinese/cns-2-16.bdf" 0)
    (korean-ksc5601 "korean/hanglg16.bdf" 0) 
    (thai-tis620 "non-cjk/etl16-thai.bdf" 1)
    (vietnamese-viscii-upper "non-cjk/etl16-viscii.bdf" encode-viscii-font)
    (vietnamese-viscii-lower "non-cjk/etl16-viscii.bdf" encode-viscii-font)
    (arabic-digit "non-cjk/etl16-arabic0.bdf" 0)
    (arabic-1-column "non-cjk/etl16-arabic1.bdf" 0)
    (arabic-2-column "non-cjk/etl16-arabic2.bdf" 0)
    (ipa "non-cjk/etl16-ipa.bdf" 1)
    (lao "Asia/etl16-lao.bdf" 1)
    (cyrillic-iso8859-5 "non-cjk/etl16-cyrillic.bdf" 1)
    (hebrew-iso8859-8 "non-cjk/etl16-hebrew.bdf" 1)
    (latin-iso8859-1 "non-cjk/etl16-latin1.bdf" 1)
    (latin-iso8859-2 "non-cjk/etl16-latin2.bdf" 1)
    (latin-iso8859-3 "non-cjk/etl16-latin3.bdf" 1)
    (latin-iso8859-4 "non-cjk/etl16-latin4.bdf" 1)
    (greek-iso8859-7 "non-cjk/etl16-greek.bdf" 1)
    (ethiopic "Asia/ethiomx16f-uni.bdf" encode-ethio-font)
    (chinese-sisheng "non-cjk/etl16-sisheng.bdf" 0)
    (tibetan "Asia/mule-tibmdx-16.bdf" 0)
    (tibetan-1-column "Asia/mule-tibmdx-1col-16.bdf" 0)
    (indian-is13194 "Asia/mule-indian-16.bdf" 0)
    (indian-1-column "Asia/mule-dv-half-16.bdf" 0)
    (indian-2-column "Asia/mule-dv-16.bdf" 0)
;    (chinese-cns11643-3 "cns-3-16")
;    (chinese-cns11643-4 "cns-4-16")
;    (chinese-cns11643-5 "cns-5-16")
;    (chinese-cns11643-6 "cns-6-16")
;    (chinese-cns11643-7 "cns-7-16")
    ))

(defun w32-configure-bdf-font (fontset)
  (new-fontset fontset
	       (mapcar 
		(lambda (x)
		  (let* ((charset (car x))
			 (filename (nth 1 x))
			 (encoding (nth 2 x))
			 (fontname 
			  (concat bdf-font-name-prefix
				  (symbol-name charset))))
		    (w32-auto-regist-bdf-font
		     fontname
		     (expand-file-name filename bdf-font-directory)
		     encoding)
		    (cons charset fontname)))
		bdf-font-file-alist)))