默认的Emacs模式行仅显示当前行号及其相对于总行数的百分比。我如何使其还显示总行数?
默认的Emacs模式行仅显示当前行号及其相对于总行数的百分比。我如何使其还显示总行数?
这可能有点棘手,因为如果您一直更新行数并且具有大缓冲区,它会使Emacs有些反应迟钝,因为它一遍又一遍地计算行数。我采用了懒惰的方法来计数:只有在文件首次读取或保存/还原后才进行计算。如果缓冲区被修改,则不会显示行数,只有在再次保存后才会显示。
(defvar my-mode-line-buffer-line-count nil)
(make-variable-buffer-local 'my-mode-line-buffer-line-count)
(setq-default mode-line-format
'(" " mode-line-modified
(list 'line-number-mode " ")
(:eval (when line-number-mode
(let ((str "L%l"))
(when (and (not (buffer-modified-p)) my-mode-line-buffer-line-count)
(setq str (concat str "/" my-mode-line-buffer-line-count)))
str)))
" %p"
(list 'column-number-mode " C%c")
" " mode-line-buffer-identification
" " mode-line-modes))
(defun my-mode-line-count-lines ()
(setq my-mode-line-buffer-line-count (int-to-string (count-lines (point-min) (point-max)))))
(add-hook 'find-file-hook 'my-mode-line-count-lines)
(add-hook 'after-save-hook 'my-mode-line-count-lines)
(add-hook 'after-revert-hook 'my-mode-line-count-lines)
(add-hook 'dired-after-readin-hook 'my-mode-line-count-lines)
当然,你可能想要调整mode-line-format
来适应你的个人喜好。上面的设置是我个人偏爱的。
(format-mode-line "%l")
而不是count-lines
以获得更快的性能/速度提升:http://emacs.stackexchange.com/a/26724/2287 - lawlist