/
linum.el
112 lines (92 loc) · 3.51 KB
/
linum.el
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
;;; linum.el --- Display line numbers to the left of buffers
;; Copyright (C) 2007 Markus Triska
;; Author: Markus Triska <markus.tri...@gmx.at>
;; Keywords: convenience
;; This file is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; This file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.
;;; Commentary:
;; Display line numbers for the current buffer. Copy linum.el to your
;; load-path and add to your .emacs:
;; (require 'linum)
;; Then toggle display of line numbers with M-x linum.
;;; Code:
(defconst linum-version "0.8f-emacs22")
(defvar linum-overlays nil)
(defvar linum-active nil)
(defgroup linum nil
"Show line numbers to the left of buffers"
:group 'convenience)
;;;###autoload
(defcustom linum-format "%6d "
"Format used to display line numbers. Either a format string like \"%6d \",
or the symbol 'dynamic to adapt the width as needed. 'dynamic or
a format string that does not expand to a multiple of 8 can make
indentations look different if you indent using tab characters."
:group 'linum
:type 'sexp)
(mapc #'make-variable-buffer-local '(linum-overlays linum-active))
;;;###autoload
(defun linum ()
"Toggle display of line numbers."
(interactive)
(setq linum-active (not linum-active))
(if linum-active
(progn
(add-hook 'post-command-hook 'linum-update nil t)
(message "Linum enabled"))
(remove-hook 'post-command-hook 'linum-update t)
(mapc #'delete-overlay linum-overlays)
(setq linum-overlays nil)
(message "Linum disabled")))
(defun linum-dynamic-format ()
"Compute a format string based on the number of lines in the
current buffer."
(let ((lines (count-lines (point-min) (point-max)))
(width 0))
(while (> lines 0)
(setq lines (/ lines 10))
(setq width (1+ width)))
(format "%%%dd " width)))
(defun linum-update ()
"Update displayed line numbers for the current buffer."
(save-excursion
(goto-char (window-start))
(let ((line (line-number-at-pos))
(limit (1+ (window-end nil t)))
(fmt (if (stringp linum-format) linum-format (linum-dynamic-format)))
ov
free)
(dolist (ov (overlays-in (point) limit))
(when (overlay-get ov 'linum)
(push ov free)))
;; Create an overlay (or reuse an existing one) for each visible
;; line in this window.
(while (and (not (eobp)) (< (point) limit))
(if (null free)
(progn
(setq ov (make-overlay (point) (point)))
(overlay-put ov 'linum t)
(push ov linum-overlays))
(setq ov (pop free))
(move-overlay ov (point) (point)))
(overlay-put ov 'before-string (format fmt line))
(forward-line)
(setq line (1+ line)))
(mapc #'delete-overlay free))))
;;;###autoload
(defun linum-version ()
"Display version of linum."
(interactive)
(message "Using linum version %s" linum-version))
(provide 'linum)
;;; linum.el ends here