;;;
;;; font-setup.el
;;;			TSUMURA,Tomoaki

(put 'encode-ethio-font 'ccl-program ccl-encode-ethio-font)
(defvar bdf-font-dir "c:/usr/lib/bdf/")
(defvar bdf-font-name-prefix "bdf14-")

;;; list
(require 'x-face-mule)
(defvar bdf-font-file-alist
  '(
    ;; coding		file					enc
    (latin-iso8859-1	"ETL/etl14-latin1.bdf"	1)
    (latin-iso8859-2	"ETL/etl14-latin2.bdf"	1)
    (latin-iso8859-3	"ETL/etl14-latin3.bdf"	1)
    (latin-iso8859-4	"ETL/etl14-latin4.bdf"	1)
    (cyrillic-iso8859-5	"ETL/etl14-cyrillic.bdf"	1)
;    (arabic-iso8859-6	"ETL/etl16-arabic1.bdf"	1)
;    (arabic-digit	"ETL/etl16-arabic0.bdf"	0)
    (arabic-digit	"intlfonts/Misc/arab16-0-etl.bdf"	0)
;    (arabic-1-column	"ETL/etl16-arabic1.bdf"	0)
    (arabic-1-column	"intlfonts/Misc/arab16-1-etl.bdf"	0)
;    (arabic-2-column	"ETL/etl16-arabic2.bdf"	0)
    (arabic-2-column	"intlfonts/Misc/arab16-2-etl.bdf"	0)
    (greek-iso8859-7	"ETL/etl14-greek.bdf"	1)
    (hebrew-iso8859-8	"ETL/etl14-hebrew.bdf"	1)
    (latin-iso8859-9	"ETL/etl14-latin5.bdf"	1)
    (ascii		"ETL/etl14-latin1.bdf"	0)
;    (japanese-jisx0212	"misc/jisksp14.bdf"			0)
    (japanese-jisx0212	"intlfonts/Japanese/jksp16.bdf"		0)
;    (japanese-jisx0208 "intlfonts/Japanese/jiskan16.bdf" 0)
    (japanese-jisx0208	"intlfonts/Japanese.X/k14.bdf"		0)
    (latin-jisx0201	"intlfonts/Japanese.X/8x16rk.bdf"		0)
    (katakana-jisx0201	"intlfonts/Japanese.X/8x16rk.bdf"		1)
    (bitmap		"misc/etl8x16-bitmap.bdf"		0)
    (chinese-cns11643-1 "intlfonts/Chinese/cns1-16.bdf"		1)
    (chinese-cns11643-2 "intlfonts/Chinese/cns2-16.bdf"		2)
    (chinese-big5-1	"intlfonts/Chinese/taipei16.bdf"		0)
    (chinese-big5-2	"intlfonts/Chinese/taipei16.bdf"		0)
    (chinese-gb2312	"intlfonts/Chinese.X/gb16fs.bdf"		0)
    (korean-ksc5601	"intlfonts/Korean.X/hanglm16.bdf"		0)
    (thai-tis620	"intlfonts/Asian/thai14.bdf"		1)
    (vietnamese-viscii-lower "intlfonts/Asian/visc16-etl.bdf"	1)
    (vietnamese-viscii-upper "intlfonts/Asian/visc16-etl.bdf"	1)
    (lao		"intlfonts/Asian/lao14-mule.bdf"	1)
    (ipa		"ETL/etl14-ipa.bdf"		0)
;    (ethiopic		"intlfonts/Ethiopic/ethiomx16f-uni.bdf"	0)
;    (tibetan		"intlfonts/Asian/mule-tibmdx-16.bdf"	0)
;    (tibetan-1-column	"intlfonts/Asian/mule-tibmdx-1col-16.bdf" 1)
    (indian-is13194	"intlfonts/Asian/ind16-mule.bdf"	1)
    ))
(defvar bdf-bold-font-file-alist
  '(
     (latin-iso8859-1	. "ETL/etl14B-latin1.bdf")
     (latin-iso8859-2	. "ETL/etl14B-latin2.bdf")
     (latin-iso8859-3	. "ETL/etl14B-latin3.bdf")
     (latin-iso8859-4	. "ETL/etl14B-latin4.bdf")
     (ascii		. "ETL/etl14B-latin1.bdf")
     (japanese-jisx0212	. "intlfonts/Japanese.X/jiskan16B.bdf")
     (japanese-jisx0208	. "intlfonts/Japanese.X/k14B.bdf")
     (latin-jisx0201	. "intlfonts/Japanese.X/8x16rkB.bdf")
     (katakana-jisx0201	. "intlfonts/Japanese.X/8x16rkB.bdf")
    ))

(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-dir)
                     encoding)
                    (cons charset fontname)))
                bdf-font-file-alist)))

(new-fontset
 "fontset-bdf"
 (mapcar
  (lambda (x)
    (let* ((charset (car x))
	   (filename
	    (expand-file-name (nth 1 x) bdf-font-dir))
	   (encoding (nth 2 x))
	   (fontname (concat bdf-font-name-prefix (symbol-name charset)))
	   (exist-bold-p (assq charset bdf-bold-font-file-alist)))
      (w32-add-font fontname
		    (cons
		     (cons 'encoding-type encoding)
		     '((default-ascent	. 0)
		       (relative-compose . 0)
		       (overhang	. 0)
		       (base		. 14)
		       (height		. 16)
		       (width		. 8))))
;;;		       (width		. 7))))
      (w32-change-font-logfont
       fontname 0 (list 'bdf-font filename))
      (if exist-bold-p
	  (w32-change-font-logfont
	   fontname 1 (list 'bdf-font
			    (expand-file-name
			     (cdr exist-bold-p) bdf-font-dir))))
      (cons charset fontname)))
  bdf-font-file-alist))