Ryotaro Arai
misty****@kt*****
2006年 4月 30日 (日) 15:03:58 JST
こんにちは、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*****)