underline


ゴミ捨て

DOS系のエディタみたいにカーソル行にアンダーラインがつくといいという話 が出た。そもそもそういう画面位置把握のための機能ってUNIXエディタにはない ぜーと、おもいつつ、ちょっと気になってつくってしまうわし。

(defvar underline-overlay (make-overlay 1 1))
(overlay-put underline-overlay 'face 'secondary-selection)
(defun underline-current ()
  (and (> (window-height) 1)
       (save-excursion
	 (move-overlay underline-overlay
		       (progn (beginning-of-line) (point))
		       (progn (end-of-line) (point))
		       (current-buffer)))))
(add-hook 'post-command-hook 'underline-current)

うざいか、見やすいか。しばらく試してみるカー。


きまぐれ記
yuuji@gentei.org
Fingerprint16 = FF F9 FF CC E0 FE 5C F7 19 97 28 24 EC 5D 39 BA
HIROSE Yuuji - ASTROLOGY / BIKE / EPO / GUEST BOOK / YaTeX [Tweet]