Takashi Hiromatsu
matsu****@ca2*****
2005年 8月 3日 (水) 23:59:09 JST
carbon-font を、CVS先端で変更して、1_4_2 tag を打ちました。
----------------------------------------------------------------------------
普通に読み込んだ場合の、機能は、変更していません。
皆さんに、色々教えて頂いたのを機会に、本家emacs の、
lisp/international/fontset.el を読んで、carbon-font.el を書き直しました。
while の部分を、dolist と mapcar に変更。でも、殆どが、fontset.el からのパ
クリです。
関数の中で使われていた、定数部分を、括り出して、defvar で定義。将来の拡張に
備えています。此により、使える、encoding が増えても、定数部分を定義しなおす
だけで、大丈夫な筈です。
又、carbon-font.el で定義している、組合せ以外の fontset の作成も容易になり
ます。
----------------------------------------------------------------------------
設定の方法（従来と同じ、再掲）
用意されている、fontsetは
hiraginomaru Monaco(Ayuthaya) + ヒラギノ丸ゴ
hiraginokaku Monaco(Ayuthaya) + ヒラギノ角ゴ
osaka Monaco(Ayuthaya) + osaka
hiraginomin Courier + ヒラギノ明朝
です。default size は 12point です。
次のようにした場合、
(set-default-font "fontset-hiraginokaku")
ヒラギノ角ゴシックの12point が使われます。
これ以外のサイズを使いたい場合は、
(set-default-font
"-*-*-medium-r-normal--8-*-*-*-*-*-fontset-hiraginomaru")
(add-to-list
'default-frame-alist
'(font . "-*-*-medium-r-normal--8-*-*-*-*-*-fontset-hiraginomaru"))
としてください。
----------------------------------------------------------------------------
別の組合せの fontset を設定したい場合。(新機能)
(carbon-font-create-fontset fontset size list) を使ってください。
fontset : fontset の名前(striings)
size : 設定したいサイズ、又はサイズのリスト
list : エンコーディングとフォントのファミリーネームの連想リスト
例えば、courier に ヒラギノ丸ゴシックを組み合わせたい場合
(setq carbon-font-encode-family-list-courier
'((ascii . "courier")
(japanese-jisx0208 . "ヒラギノ丸ゴ*")
(katakana-jisx0201 . "ヒラギノ丸ゴ*")
(chinese-gb2312 . "华文黑体*")
(chinese-big5-1 . "儷黑*")
(korean-ksc5601 . "applegothic*")))
等と定義しておいて、
(carbon-font-create-fontset "courier"
carbon-font-defined-sizes
carbon-font-encode-family-list-courier)
を評価すれば、7〜24 までのサイズの fontset が、fontset-courier という名前で
定義されます。
----------------------------------------------------------------------------
宜しくお願いいたします。
廣松