emacs - Emacsモードラインの合計行数を表示するにはどうすればよいですか？

Question

デフォルトのEmacsモードラインには、現在のライン番号と、合計ライン番号に対するそのパーセンテージのみが表示されます。行の合計も表示するにはどうすればよいですか？

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もちろん、好みに合わせて調整することもできますが、私が個人的に好むのは上記のとおりです。