dbaa829ec6
* gnu/local.mk (emacs-magit-format-author-margin.patch): Add patch. * gnu/packages/emacs-xyz.scm: Add. * gnu/packages/patches/emacs-magit-log-format-author-margin.patch: Add.
72 lines
3.2 KiB
Diff
72 lines
3.2 KiB
Diff
From 94914ca4690c0cff12d600a0c8ba6bfb3fb38dc5 Mon Sep 17 00:00:00 2001
|
|
From: Jonas Bernoulli <jonas@bernoul.li>
|
|
Date: Tue, 25 Jun 2019 21:44:32 +0200
|
|
Subject: [PATCH] magit-log-format-author-margin: New function
|
|
|
|
Split it from `magit-log-format-margin'.
|
|
---
|
|
lisp/magit-log.el | 48 +++++++++++++++++++++++++----------------------
|
|
1 file changed, 26 insertions(+), 22 deletions(-)
|
|
|
|
diff --git a/lisp/magit-log.el b/lisp/magit-log.el
|
|
index c8e6ef63..c0a79b19 100644
|
|
--- a/lisp/magit-log.el
|
|
+++ b/lisp/magit-log.el
|
|
@@ -1374,28 +1374,32 @@ The shortstat style is experimental and rather slow."
|
|
(when-let ((option (magit-margin-option)))
|
|
(if magit-log-margin-show-shortstat
|
|
(magit-log-format-shortstat-margin rev)
|
|
- (pcase-let ((`(,_ ,style ,width ,details ,details-width)
|
|
- (or magit-buffer-margin
|
|
- (symbol-value option))))
|
|
- (magit-make-margin-overlay
|
|
- (concat (and details
|
|
- (concat (propertize (truncate-string-to-width
|
|
- (or author "")
|
|
- details-width
|
|
- nil ?\s (make-string 1 magit-ellipsis))
|
|
- 'face 'magit-log-author)
|
|
- " "))
|
|
- (propertize
|
|
- (if (stringp style)
|
|
- (format-time-string
|
|
- style
|
|
- (seconds-to-time (string-to-number date)))
|
|
- (pcase-let* ((abbr (eq style 'age-abbreviated))
|
|
- (`(,cnt ,unit) (magit--age date abbr)))
|
|
- (format (format (if abbr "%%2i%%-%ic" "%%2i %%-%is")
|
|
- (- width (if details (1+ details-width) 0)))
|
|
- cnt unit)))
|
|
- 'face 'magit-log-date)))))))
|
|
+ (magit-log-format-author-margin author date))))
|
|
+
|
|
+(defun magit-log-format-author-margin (author date &optional previous-line)
|
|
+ (pcase-let ((`(,_ ,style ,width ,details ,details-width)
|
|
+ (or magit-buffer-margin
|
|
+ (symbol-value option))))
|
|
+ (magit-make-margin-overlay
|
|
+ (concat (and details
|
|
+ (concat (propertize (truncate-string-to-width
|
|
+ (or author "")
|
|
+ details-width
|
|
+ nil ?\s (make-string 1 magit-ellipsis))
|
|
+ 'face 'magit-log-author)
|
|
+ " "))
|
|
+ (propertize
|
|
+ (if (stringp style)
|
|
+ (format-time-string
|
|
+ style
|
|
+ (seconds-to-time (string-to-number date)))
|
|
+ (pcase-let* ((abbr (eq style 'age-abbreviated))
|
|
+ (`(,cnt ,unit) (magit--age date abbr)))
|
|
+ (format (format (if abbr "%%2i%%-%ic" "%%2i %%-%is")
|
|
+ (- width (if details (1+ details-width) 0)))
|
|
+ cnt unit)))
|
|
+ 'face 'magit-log-date))
|
|
+ previous-line)))
|
|
|
|
(defun magit-log-format-shortstat-margin (rev)
|
|
(magit-make-margin-overlay
|
|
--
|
|
2.23.0
|
|
|