TakeV
/
spacemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

removed unused extension

This commit is contained in:
syl20bnr 2013-01-02 18:09:53 -05:00
parent aeed9dd20d
commit a60d268ff4
2 changed files with 0 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
extensions/linum-relativenumber/linum-relativenumber.el
View File

@ -1,20 +0,0 @@
(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 (abs (- 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)

1
init-extension/init-linum-relativenumber.el
View File

@ -1 +0,0 @@
(load-file (concat user-extensions-directory "linum-relativenumber/linum-relativenumber.el"))