Takashi Hiromatsu
matsu****@ca2*****
2006年 5月 1日 (月) 04:46:16 JST
取り敢えず、こんな感じ？
(setq carbon-font-encode-family-list-azuki
'((ascii . "azuki_font")
(japanese-jisx0208 . "azuki_font")
(katakana-jisx0201 . "azuki_font")
(thai-tis620 . "ayuthaya")
(chinese-gb2312 . "stheiti*")
(chinese-big5-1 . "lihei pro*")
(korean-ksc5601 . "applegothic*")))
(carbon-font-create-fontset "azuki"
carbon-font-defined-sizes
carbon-font-encode-family-list-azuki)
(add-to-list 'fixed-width-get-scale-alist
`("^-apple-azuki_font-.*" . ,fixed-width-scale-alist-hiragino))
At Sun, 30 Apr 2006 15:03:58 +0900,
Ryotaro Arai wrote:
>
> こんにちは、R.Araiです。
>
> 自前でいろいろフォントの設定してみたくで試行錯誤してます。
> carbon-font.elとfixed-width-fontset.elを見ながらいじってますが
> とうとうつまりました。
>
> carbon-font.elに設定されていない日本語フォントに対して
> fixed-width-scale-alistを設定して
> fixed-width-get-scale-alistに設定した変数のリストを
> 追加したいのですが、具体的にどうすればよいでしょうか？
>
> 例えば自前の.emacs.elに
>
> (defvar fixed-width-scale-alist-azuki-normal
> '(("7" . 1.15) ("8" . 1.35) ("9" . 1.35) ("10" . 1.2) ("12" . 1.2)
> ("14" . 1.2) ("16" . 1.25) ("18" . 1.25) ("20" . 1.2) ("24" . 1.2)))
>
> (defvar fixed-width-scale-alist-azuki-bold
> '(("7" . 1.15) ("8" . 1.35) ("9" . 1.35) ("10" . 1.2) ("12" . 1.25)
> ("14" . 1.2) ("16" . 1.25) ("18" . 1.25) ("20" . 1.2) ("24" . 1.2)))
>
> (defvar fixed-width-get-scale-alist
> `(("^-apple-azuki_font-bold.*" . ,fixed-width-scale-alist-azuki-bold)
> ("^-apple-azuki_font-medium.*" . ,fixed-width-scale-alist-azuki-normal))
> "ReScale factor alist for each fonts and size.")
>
> としただけではdescribe-variableでfixed-width-get-scale-alistを
> 参照しても設定した2つのリストは出てきませんでした。
> 多分、下記のscratchバッファにあるfont名で引っ掛けるとおもうのですが
> うまい事引っかかってくれません。
>
> 当方、lispは全然わからない人間なのでこれ以上追えませんでした。
> 既に定義されているget-scale-alistに追加する方法がわかりません。
>
>
> ちなみにこの「あずきフォント」ですがscratchバッファではこんな感じです。
>
> (prin1-to-string(x-list-fonts "*azuki*"))
> "(\"-apple-azuki_font-bold-i-normal--0-0-0-0-m-0-jisx0201.1976-0\"
> \"-apple-azuki_font-bold-r-normal--0-0-0-0-m-0-jisx0201.1976-0\"
> \"-apple-azuki_font-medium-i-normal--0-0-0-0-m-0-jisx0201.1976-0\"
> \"-apple-azuki_font-medium-r-normal--0-0-0-0-m-0-jisx0201.1976-0\"
> \"-apple-azuki_font-bold-i-normal--0-0-0-0-m-0-jisx0208.1983-sjis\"
> \"-apple-azuki_font-bold-r-normal--0-0-0-0-m-0-jisx0208.1983-sjis\"
> \"-apple-azuki_font-medium-i-normal--0-0-0-0-m-0-jisx0208.1983-sjis\"
> \"-apple-azuki_font-medium-r-normal--0-0-0-0-m-0-jisx0208.1983-sjis\"
> \"-apple-azuki_font-bold-i-normal--0-0-0-0-m-0-iso10646-1\"
> \"-apple-azuki_font-bold-r-normal--0-0-0-0-m-0-iso10646-1\"
> \"-apple-azuki_font-medium-i-normal--0-0-0-0-m-0-iso10646-1\"
> \"-apple-azuki_font-medium-r-normal--0-0-0-0-m-0-iso10646-1\")"
>
> あずきフォント
> http://key.milkcafe.to/azuki/
>
> #lispの基本がわかってないのでなんか頓珍漢なことを言ってるかもしれませんが…
>
> --
> Ryotaro Arai(mailto:misty****@kt*****)
>
>
>
> _______________________________________________
> Macemacsjp-users mailing list
> Macem****@lists*****
> http://lists.sourceforge.jp/mailman/listinfo/macemacsjp-users
>