From d74df25f9f26eff53e9bb77b383dc902bd01daf0 Mon Sep 17 00:00:00 2001 From: Andrea Zagli Date: Thu, 23 Jun 2016 17:29:39 +0200 Subject: [PATCH] Aggiornato emacs_linux. linum senza whitespace. --- tools/emacs_linux | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) diff --git a/tools/emacs_linux b/tools/emacs_linux index 1264599..85036d9 100644 --- a/tools/emacs_linux +++ b/tools/emacs_linux @@ -22,6 +22,23 @@ (global-linum-mode 1) ; display line numbers in margin + +(defvar my-linum-format-string "%4d") + +(add-hook 'linum-before-numbering-hook 'my-linum-get-format-string) + +(defun my-linum-get-format-string () + (let* ((width (length (number-to-string + (count-lines (point-min) (point-max))))) + (format (concat "%" (number-to-string width) "d\u2502"))) + (setq my-linum-format-string format))) + +(setq linum-format 'my-linum-format) + +(defun my-linum-format (line-number) + (propertize (replace-regexp-in-string " " "\u2002" (format my-linum-format-string line-number)) 'face 'linum)) + + (column-number-mode 1) ;(setq make-backup-files nil) ; stop creating backup~ files (setq version-control t) -- 2.49.0