[xyzzy:07279] xyzzy ボールド化計画

["Seiya Suda" <seiya.suda@xxxxxxxxxxx>]

こんにちは。

だんだん目が悪くなってきて
画面をボールドにしたほうが楽になってきました。

それで考えたのが以下のようなものです。

(add-hook '*text-mode-hook*
	  #'(lambda () (interactive)
	      (set-text-attribute (point-min) (point-max)
				  'bolden
				  :bold t)))

ただ、これだけだと、point-max 以降に追加したのが
ボールドにならないので、さらに次も追加してます。

(add-hook '*post-command-hook*
	  #'(lambda ()
	      (interactive)
	      (let* ((d (- (current-virtual-line-number) (current-line-number)))
		     (sl (+ (get-window-start-line) d))
		     (el (+ sl (window-lines))))
		(save-excursion
		  (set-text-attribute (progn (goto-line sl) (goto-virtual-bol) (point))
				      (progn (goto-line el) (goto-virtual-eol) (point))
				      'bolden :bold t)))))

これは何かコマンドやったら、カレントウィンドウをとにかく全部ボールドにして島
江ってやつです。

問題点

テキストモード以外にも影響が出るかもしれない。
kbdacc をちょっと強めなければならないかもしれない。
ときどきボールドにならない行が出てくるかもしれない。
はたして最善なのかどうかわからない。

------------------
須田誠也(Seiya Suda)
seiya.suda@xxxxxxxxxxx
http://member.nifty.ne.jp/seiya-suda/