From ec1acc0bf89f83943002f0fbc01408bc154011d3 Mon Sep 17 00:00:00 2001 From: Jim Myhrberg Date: Mon, 19 Mar 2012 23:59:21 +0000 Subject: [PATCH] Moved relative line-numbers code from behavior.el to appearance.el. At the same time I also updated it to the latest code from the StackOverFlow answer. --- appearance.el | 18 ++++++++++++++++++ behavior.el | 12 ------------ 2 files changed, 18 insertions(+), 12 deletions(-) diff --git a/appearance.el b/appearance.el index 0c9b3e1..4c950d1 100644 --- a/appearance.el +++ b/appearance.el @@ -66,3 +66,21 @@ (add-hook 'after-make-frame-functions (lambda (selected-frame) (set-frame-parameter selected-frame 'alpha transparency-level))) + +;; Relative line numbers -- from: http://stackoverflow.com/a/6928112/42146 +;; (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) diff --git a/behavior.el b/behavior.el index 0d9b2c6..66f9d30 100644 --- a/behavior.el +++ b/behavior.el @@ -44,15 +44,3 @@ (xterm-mouse-mode 1) (global-set-key [mouse-4] 'scroll-down-line) (global-set-key [mouse-5] 'scroll-up-line)) - -;; Relative line numbers -- from: http://stackoverflow.com/a/6928112/42146 -;; (defvar my-linum-current-line-number 0) -;; (setq linum-format 'my-linum-relative-line-numbers) -;; (defun my-linum-relative-line-numbers (line-number) -;; (propertize -;; (number-to-string (abs (- line-number my-linum-current-line-number))) -;; '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)