From: Michal Sojka Date: Tue, 02 Jul 2013 17:34:35 GMT Subject: [PATCH 2/4] git-blame.el: Make all line prefixes to have the same length Message-ID: <1372786477-13122-3-git-send-email-sojkam1@fel.cvut.cz> In-Reply-To: <1372786477-13122-1-git-send-email-sojkam1@fel.cvut.cz> Without this patch, the beginning of git-blame.el in emacs buffer looks like this (note the Messige-ID line): b52ba1 :;; Authors: David Kågedal b52ba1 :;; Created: 31 Jan 2007 28389d :;; Message-ID: <87iren2vqx.fsf@morpheus.local> b52ba1 :;; License: GPL b52ba1 :;; Keywords: git, version control, release management With this patch, all lines are aligned even if email addresses have different length. b52ba1 : ;; Authors: David Kågedal b52ba1 : ;; Created: 31 Jan 2007 28389d ;; Message-ID: <87iren2vqx.fsf@morpheus.local> b52ba1 : ;; License: GPL b52ba1 : ;; Keywords: git, version control, release management Signed-off-by: Michal Sojka --- contrib/emacs/git-blame.el | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) diff --git a/contrib/emacs/git-blame.el b/contrib/emacs/git-blame.el index 18ce241..573f408 100644 --- a/contrib/emacs/git-blame.el +++ b/contrib/emacs/git-blame.el @@ -116,6 +116,15 @@ mode. The format is passed to `format-spec' with the following format keys: " :group 'git-blame) +(defcustom git-blame-prefix-width + "%-30.30s " + "The format for post-processing the prefix produced according +to `git-blame-prefix-format'. This format is passed to `format' +function. The default value ensures that all prefixes have the +same length, i.e. the it causes the prefix to be either truncated +or padded to 30 characters. +" + :group 'git-blame) (defcustom git-blame-mouseover-format "%h %a %A: %s" "The format of the description shown when pointing at a line in @@ -410,8 +419,9 @@ See also function `git-blame-mode'." (overlay-put ovl 'face (list :background (cdr (assq 'color (cdr info)))))) (overlay-put ovl 'line-prefix - (propertize (format-spec git-blame-prefix-format spec) - 'face 'git-blame-prefix-face))))))) + (propertize (format git-blame-prefix-width + (format-spec git-blame-prefix-format spec)) + 'face 'git-blame-prefix-face))))))) (defun git-blame-add-info (info key value) (nconc info (list (cons (intern key) value)))) -- 1.8.3.1