如何在Emacs modeline中显示总行数

Question

默认的Emacs modeline仅显示当前行号及其占总行号的百分比。我如何让它也显示总行呢？

Answer 1

这可能有点棘手，因为如果您总是更新行计数，并且有一个很大的缓冲区，这可能会使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以适应您的口味，以上是我个人更喜欢的。