[PATCH 2/4] git-blame.el: Make all line prefixes to have the same length

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

 



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

b52ba1   <jnareb@xxxxxxxxx>:;; Authors:    David Kågedal <davidk@xxxxxxxxxxxxxx>
b52ba1   <jnareb@xxxxxxxxx>:;; Created:    31 Jan 2007
28389d <davidk@xxxxxxxxxxxxxx>:;; Message-ID: <87iren2vqx.fsf@morpheus.local>
b52ba1   <jnareb@xxxxxxxxx>:;; License:    GPL
b52ba1   <jnareb@xxxxxxxxx>:;; Keywords:   git, version control, release management

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

b52ba1   <jnareb@xxxxxxxxx>:   ;; Authors:    David Kågedal <davidk@xxxxxxxxxxxxxx>
b52ba1   <jnareb@xxxxxxxxx>:   ;; Created:    31 Jan 2007
28389d <davidk@xxxxxxxxxxxxxx> ;; Message-ID: <87iren2vqx.fsf@morpheus.local>
b52ba1   <jnareb@xxxxxxxxx>:   ;; License:    GPL
b52ba1   <jnareb@xxxxxxxxx>:   ;; Keywords:   git, version control, release management


Signed-off-by: Michal Sojka <sojkam1@xxxxxxxxxxx>
---
 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 majordomo@xxxxxxxxxxxxxxx
More majordomo info at  http://vger.kernel.org/majordomo-info.html




[Index of Archives]     [Linux Kernel Development]     [Gcc Help]     [IETF Annouce]     [DCCP]     [Netdev]     [Networking]     [Security]     [V4L]     [Bugtraq]     [Yosemite]     [MIPS Linux]     [ARM Linux]     [Linux Security]     [Linux RAID]     [Linux SCSI]     [Fedora Users]