[Message Prev][Message Next][Thread Prev][Thread Next][Message Index][Thread Index]

Meadowで Windows font + x-face は可能?



横田@広島と申します。

こちらのMLは長らくROMさせて頂いていますが、もしかすると投稿は初めてか
もしれません。よろしくお願いします。

先週末やっと Meadow に移行しました。ここ何年も(--; Meadow を試してみて
は諦め、試してみては諦めを繰り返していました。でも、やはり最新の情報や
elisp packageの恩恵に授かれないのはやっぱりちょっと勿体ないと思い、移
行する決心をしました。

これまで移行に踏み切れなかったのは、Meadow のフォントに満足できなかっ
たからです。といっても機能は(私は十分理解できていませんが)十分なのでしょ
うけど、どうしても Mule for W32 や他の Windows アプリに対して見栄えが
悪くなってしまい、私のスキルではどうにもならなかったのが移行に踏み切れ
なかった原因です。

# 某MLでも似たようなことを書かれている方を偶然先ほど見かけました(^^ゞ

当初 TRUE TYPE フォントを設定した場合では日本語は Mule for Win32 の 
FixedSys に近い MS ゴシック を設定しましたので違和感はあまり感じません
でしたが、ASCIIが妙に小さくというより高さが低く、バランスが悪く感じま
した。また現在の設定としている bdf フォントの場合、(フォント作者には申
し訳ないですが)日本語フォントが満足できません。

# 仕事では長らく unix workstation + X11 の環境だったので、似た雰囲気は
# 味わえたのですが、Windows環境で使うには、他のアプリに対して Meadow 
# だけフォント表示が汚くなってしまって、ちょっと悲しいです。

前置きが長くなりましたが、Mule for Win32 のように基本的には Windows の
フォントを用いて、更に x-face も利用可能な設定というのは可能でしょうか?

参考までに現在の両者の設定を付けておきます。可能であれば、Mule for
Win32 よりももう少し小さめのフォントで表示できると、更に嬉しいです。

長文 & 勝手ばかり申して済みません。ご教示頂ければ幸いです。


;;; Windows2000SP3 + Meadow 1.15pre1 です

■ Mule for Win32

;;; フォント
(win32-add-fontset "default-gothic" 8 16 0 5)
(win32-add-font "default" *sjis* "default-gothic")
;;;----------------------------------------------------------------------
(win32-change-font-property "default" 0 '("FixedSys" 0 -10 400 0 nil nil 128 0 0 1) "default-gothic")
(win32-change-font-property "default" 1 '("FixedSys" 0 -10 700 0 nil nil 128 0 0 1) "default-gothic")
(win32-change-font-property "default" 2 '("FixedSys" 0 -10 400 0 nil nil 128 0 0 1) "default-gothic")
(win32-change-font-property "default" 3 '("FixedSys" 0 -10 700 0 nil nil 128 0 0 1) "default-gothic")
(apply 'win32-change-fontset-attribute 
       (append (win32-get-font-metric "default" 0 "default-gothic") 
	       '("default-gothic")))
(modify-frame-parameters (selected-frame) '((fontset . "default-gothic")))

■ Meadow

;;; TrueType フォントの場合
(create-fontset-from-request "private-fontset"
			     '((width . 8)
			       (height . 16)
			       (fixed . t)
			       (italic . nil))
			     '((family . "MS ゴシック")
			       (family . "Courier New")))

(change-fontset-from-request "private-fontset"
                             '((width . 8)
                               (height . 16)
                               (fixed . t)
                               (weight . 700) ; bold
                               (italic . nil))
                             '((family . "MS ゴシック")
                               (family . "Courier New"))
                             1)

(change-fontset-from-request "private-fontset"
                             '((width . 8)
                               (height . 16)
                               (fixed . t)
                               (weight . 400)
                               (italic . t)) ; italic
                             '((family . "MS ゴシック")
			       (family . "Courier New"))
                             2)

(change-fontset-from-request "private-fontset"
                             '((width . 8)
                               (height . 16)
                               (fixed . t)
                               (weight . 700); bold
                               (italic . t)) ; italic
                             '((family . "MS ゴシック")
                               (family . "Courier New"))
                             3)


;;; BDF フォントの場合
(defvar bdf-font-directory "d:/MEADOW/intlfonts-1.2")
(defvar bdf-font-name-prefix "bdffont16-")
;;
(require 'bitmap)
(defvar bdf-font-file-alist
  '((ascii "European/lt1-16-etl.bdf" 0)
    (latin-iso8859-1 "European/lt1-16-etl.bdf" 1)   ; ISO8859-1
    (latin-iso8859-2 "European/lt2-16-etl.bdf" 1)   ; ISO8859-2
    (latin-iso8859-3 "European/lt3-16-etl.bdf" 1)   ; ISO8859-3
    (latin-iso8859-4 "European/lt4-16-etl.bdf" 1)   ; ISO8859-4
    (cyrillic-iso8859-5 "European/cyr16-etl.bdf" 1) ; ISO8859-5
    (arabic-iso8859-6 "Misc/arab16-0-etl.bdf" 0)    ; ISO8859-6 ???
    (greek-iso8859-7 "European/grk16-etl.bdf" 1)    ; ISO8859-7
    (hebrew-iso8859-8 "Misc/heb16-etl.bdf" 1)       ; ISO8859-8
    (latin-iso8859-9 "European/lt5-16-etl.bdf" 1)   ; ISO8859-9
    (thai-tis620 "Asian/thai16.bdf" 1)              ; TIS620
    (katakana-jisx0201 "japanese.X/8x16rk.bdf" 1)   ; JISX0201
    (latin-jisx0201 "japanese.X/8x16rk.bdf" 0)      ; JISX0201
    (japanese-jisx0212 "japanese/jksp16.bdf" 0)     ; JISX0212
    (japanese-jisx0208-1978 "japanese/j78-16.bdf" 0); JISX0208.1978
    (japanese-jisx0208 "japanese.X/jiskan16.bdf" 0) ; JISX0208.1983
;;    (japanese-jisx0213-1 "Japanese.X/jiskan16-2000-1.bdf" 0)   ; JISX0213-2000(Plane 1) * Mule-UCS が必要です
;;    (japanese-jisx0213-2 "Japanese.X/jiskan16-2000-2.bdf" 0)   ; JISX0213-2000(Plane 2) * Mule-UCS が必要です
    (korean-ksc5601 "Korean.X/hanglm16.bdf" 0)      ; KSC5601   mincho
;;    (korean-ksc5601 "Korean.X/hanglg16.bdf" 0)    ; KSC5601   gothic
    (chinese-gb2312 "Chinese.X/gb16fs.bdf" 0 )      ; GB2312  ???
    (chinese-cns11643-1 "Chinese/cns1-16.bdf" 0)    ; CNS11643.1992-1
    (chinese-cns11643-2 "Chinese/cns2-16.bdf" 0)    ; CNS11643.1992-2
    (chinese-cns11643-3 "Chinese/cns3-16.bdf" 0)    ; CNS11643.1992-3
    (chinese-cns11643-4 "Chinese/cns4-16.bdf" 0)    ; CNS11643.1992-4
    (chinese-cns11643-5 "Chinese/cns5-16.bdf" 0)    ; CNS11643.1992-5
    (chinese-cns11643-6 "Chinese/cns6-16.bdf" 0)    ; CNS11643.1992-6
    (chinese-cns11643-7 "Chinese/cns7-16.bdf" 0)    ; CNS11643.1992-7
    (chinese-big5-1 "Chinese/taipei16.bdf" encode-big5-font) ; Big5
    (chinese-big5-2 "Chinese/taipei16.bdf" encode-big5-font) ; Big5
    (chinese-sisheng "Chinese/sish16-etl.bdf" 0)    ; sisheng_cwnn ???
    (vietnamese-viscii-lower "Asian/visc16-etl.bdf" encode-viscii-font) ; VISCII1.1
    (vietnamese-viscii-upper "Asian/visc16-etl.bdf" encode-viscii-font) ; VISCII1.1
    (arabic-digit "Misc/arab16-0-etl.bdf" 0)        ; MuleArabic-0
    (arabic-1-column "Misc/arab16-1-etl.bdf" 0)     ; MuleArabic-1
    (arabic-2-column "Misc/arab16-2-etl.bdf" 0)     ; MuleArabic-2
    (ipa "Misc/ipa16-etl.bdf" 1)                    ; MuleIPA
    (bitmap "Misc/bmp16-etl.bdf" 0)                 ; ETL-bitmap
    (ethiopic "Ethiopic/ethio16f-uni.bdf" encode-ethio-font) ; Ethiopic-Unicode
;;    (ascii-right-to-left "European/lt1-16-etl.bdf" 0) ; ISO8859-1 ;; ???
    (indian-is13194 "Asian/isci16-mule.bdf" 0)      ; IS13194-Devanagari
    (indian-2-column "Asian/ind16-mule.bdf" 0)      ; MuleIndian-2
    (indian-1-column "Asian/ind1c16-mule.bdf" 0)    ; MuleIndian-1
    (lao "Asian/lao16-mule.bdf" 1)                  ; MuleLao-1
    (tibetan "Asian/tib16-mule.bdf" 0)              ; MuleTibetan-0
    (tibetan-1-column "Asian/tib1c16-mule.bdf" 0)   ; MuleTibetan-1
    ))

-- 
YOKOTA Kazuya/横田和也
yokota-k@xxxxxxxxxxxxxxx
http://www.venus.dti.ne.jp/~yokota-k/