Takashi Hiromatsu
matsu****@ca2*****
2004年 3月 16日 (火) 03:44:31 JST
> で、これを自動で出来るように、こんなことを考えたんですが、TTフォントの場合、
> 大きさ情報を、名前の中に持ってないので、判別できないようです。
> (setq face-font-rescale-alist (append (list
> '(".*-bold.*9.*" . 0.85)
> '(".*-bold.*10.*" . 0.9)
> '(".*-bold.*12.*" . 0.9)
> '(".*-bold.*14.*" . 0.9)
> '(".*-bold.*16.*" . 0.95)
> '(".*-bold.*18.*" . 0.9)
> '(".*-bold.*20.*" . 0.9)
> '(".*-bold.*24.*" . 0.85)
> )face-font-rescale-alist))
> 何か良い手有りませんかね？
例えば
(string-match "hiragino16" (frame-parameter nil 'font))
が non-nil だったら、
(".*-bold" . 0.95)
にセットするようにすれば、frame毎にフォントサイズが異なっても、等幅を維持で
きそうだというところまでは判ったのですが、elisp の実力不足で、これ以上手が
出ません。何方かお願いします。
広松<matsu****@ca2*****>