Относительные номера строк в Emacs

(2012-03-16: номера строк теперь выравниваются по правому краю и отображаются правильным шрифтом.)

Проблема здесь в том, что к моменту вызова пользовательской функции linum-format точка уже была перемещена (на linum-update-window) в рассматриваемую линию, поэтому мы больше не можем использовать ее для установления разницы между двумя линиями; он просто печатал бы ноль для каждой строки.

Есть linum-before-numbering-hook, но он запускается после того, как точка была перемещена в начало буфера, так что это бесполезно для нашей цели.

Следующий код решает проблему, используя совет для linum-update для сохранения текущего номера строки, чтобы он был доступен для пользовательской функции linum-format.

Чтобы выровнять числа по правому краю, я изначально использовал жестко заданную строку формата %3d на том основании, что одно окно, показывающее более 100 строк кода, маловероятно. Однако, если вы являетесь поклонником follow-mode (или просто имеете несколько окон в одном и том же буфере), это обстоятельство становится чрезвычайно вероятным; поэтому код теперь вычисляет количество необходимых столбцов динамически. Использование linum-before-numbering-hook делает это более эффективным, чем подход, принятый по умолчанию форматом dynamic linum.

Обратите внимание, что если вы закомментируете add-hook, будет использован более быстрый нединамический подход.

(defvar my-linum-format-string "%3d")

(add-hook 'linum-before-numbering-hook 'my-linum-get-format-string)

(defun my-linum-get-format-string ()
  (let* ((width (1+ (length (number-to-string
                             (count-lines (point-min) (point-max))))))
         (format (concat "%" (number-to-string width) "d")))
    (setq my-linum-format-string format)))

(defvar my-linum-current-line-number 0)

(setq linum-format 'my-linum-relative-line-numbers)

(defun my-linum-relative-line-numbers (line-number)
  (let ((offset (- line-number my-linum-current-line-number)))
    (propertize (format my-linum-format-string offset) 'face 'linum)))

(defadvice linum-update (around my-linum-update)
  (let ((my-linum-current-line-number (line-number-at-pos)))
    ad-do-it))
(ad-activate 'linum-update)

В Emacs 26.1 есть встроенный режим номеров строк (display-line-numbers-mode). Включите его и установите (setq display-line-numbers 'relative) для использования относительных номеров строк.

Я только что наткнулся на код Скотта Джейдерхольма для этого и вспомнил, что видел этот вопрос, поэтому решил опубликовать ссылку на соответствующие строки в его .emacs.

Обновление: если вы используете MELPA (а так и должно быть!), просто Mx package-install RET linum-relative.

Кстати, если вы хотите перейти только к определенной строке, ace-jump- mode предоставляет команду ace-jump-line-mode, которая позволяет перейти к определенной строке, видимой на экране. Однако он использует буквы, а не цифры для строк:

Посмотрите на M-x linum-mode и переменную linum-format.

linum-format — это переменная, определенная в linum.el.
Ее значение является динамическим.

Документация:

Формат, используемый для отображения номеров строк.
Либо строка формата, такая как "%7d", `динамическая' для адаптации ширины по мере необходимости, либо функция, которая вызывается с номером строки в качестве аргумента и должна возвращать строку для будет отображаться в этой строке.
См. также `linum-before-numbering-hook'.