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@