Without this patch, the beginning of git-blame.el in emacs buffer looks
like this (note the Messige-ID line):

b52ba1   <[email protected]>:;; Authors:    David Kågedal <[email protected]>
b52ba1   <[email protected]>:;; Created:    31 Jan 2007
28389d <[email protected]>:;; Message-ID: <[email protected]>
b52ba1   <[email protected]>:;; License:    GPL
b52ba1   <[email protected]>:;; Keywords:   git, version control, release 
management

With this patch, all lines are aligned even if email addresses have
different length.

b52ba1   <[email protected]>:   ;; Authors:    David Kågedal 
<[email protected]>
b52ba1   <[email protected]>:   ;; Created:    31 Jan 2007
28389d <[email protected]> ;; Message-ID: <[email protected]>
b52ba1   <[email protected]>:   ;; License:    GPL
b52ba1   <[email protected]>:   ;; Keywords:   git, version control, release 
management


Signed-off-by: Michal Sojka <[email protected]>
---
 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

--
To unsubscribe from this list: send the line "unsubscribe git" in
the body of a message to [email protected]
More majordomo info at  http://vger.kernel.org/majordomo-info.html

Reply via email to