branch: externals/dired-git-info
commit 9f34bd7b462ca39455f4036d3afab06661620444
Author: Clemens Radermacher <clem...@posteo.net>
Commit: Clemens Radermacher <clem...@posteo.net>
Implement truncating of messages if length exceeds window size
---
dired-git-info.el | 28 ++++++++++++++++++++++++----
1 file changed, 24 insertions(+), 4 deletions(-)
diff --git a/dired-git-info.el b/dired-git-info.el
index d3b7f81..ad109ba 100644
--- a/dired-git-info.el
+++ b/dired-git-info.el
@@ -178,6 +178,29 @@ info format and defaults to `dgi-commit-message-format'."
(split-string (buffer-string) "\n"))))
+(defun dgi--format-line-overlay (msg)
+ "Format message MSG for current dired line."
+ (let* ((le (line-end-position))
+ (aw (- (window-width)
+ (1+ (save-excursion
+ (goto-char le)
+ (current-column))))))
+ (if (not (> aw 0))
+ "\n"
+ (concat (dgi--clamp-string msg aw)
+ "\n"))))
+
+(defun dgi--clamp-string (str max)
+ "Return STRING truncated to MAX length if needed."
+ (propertize
+ (if (> (length str) max)
+ (concat (substring str 0
+ (- max (+ (length str) 3)))
+ "...")
+ str)
+ 'face 'dgi-commit-message-face))
+
+
;;;###autoload
(define-minor-mode dired-git-info-mode
"Toggle git message info in current dired buffer."
@@ -208,10 +231,7 @@ info format and defaults to `dgi-commit-message-format'."
?\s)))
(goto-char (line-end-position))
(let ((ov (make-overlay (point) (1+ (point))))
- (ovs (concat spc
- (propertize
- msg 'face 'dgi-commit-message-face)
- "\n")))
+ (ovs (dgi--format-line-overlay (concat spc msg))))
(push ov dgi--commit-ovs)
;; I don't use after-string because I didn't get it to work
;; in combination with hl-line-mode overlay
