[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] scratch/dired-git-info 51135d8 07/33: Use actual displayed width
From: |
Clemens Radermacher |
Subject: |
[elpa] scratch/dired-git-info 51135d8 07/33: Use actual displayed width of filename to determine spacing |
Date: |
Sun, 17 Feb 2019 13:03:28 -0500 (EST) |
branch: scratch/dired-git-info
commit 51135d8d935801f03fe1221f6ed7b74f53aebb36
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>
Use actual displayed width of filename to determine spacing
---
dired-git-info.el | 24 +++++++++++++++++-------
1 file changed, 17 insertions(+), 7 deletions(-)
diff --git a/dired-git-info.el b/dired-git-info.el
index 9bc7d4f..369577f 100644
--- a/dired-git-info.el
+++ b/dired-git-info.el
@@ -296,6 +296,19 @@ info format and defaults to `dgi-commit-message-format'."
(setq dgi--commit-ovs nil))
+(defun dgi--get-dired-files-length (files)
+ (let ((dnames ()))
+ (dolist (file files (nreverse dnames))
+ (push (dgi--get-dired-file-length file)
+ dnames))))
+
+(defun dgi--get-dired-file-length (file)
+ (save-excursion
+ (dired-goto-file file)
+ (length (buffer-substring (point)
+ (line-end-position)))))
+
+
;;;###autoload
(defun dgi-toggle-git-info ()
"Toggle git message info in current dired buffer."
@@ -305,19 +318,16 @@ info format and defaults to `dgi-commit-message-format'."
(let* ((files (dgi--save-marked
(dired-unmark-all-marks)
(dired-toggle-marks)
- (sort (dired-get-marked-files)
- (lambda (a b)
- (> (length (file-name-nondirectory a))
- (length (file-name-nondirectory b)))))))
- (minspc (1+ (length (file-name-nondirectory (car files))))))
+ (dired-get-marked-files)))
+ (minspc (1+ (apply #'max (dgi--get-dired-files-length files)))))
(save-excursion
(dolist (file files)
(let ((msg (dgi--get-commit-info file)))
(when msg
+ (dired-goto-file file)
(let ((spc (make-string
- (- minspc (length (file-name-nondirectory file)))
+ (- minspc (dgi--get-dired-file-length file))
?\s)))
- (dired-goto-file file)
(goto-char (line-end-position))
(let ((ov (make-overlay (point) (1+ (point))))
(ovs (concat spc
- [elpa] scratch/dired-git-info 23b3d1e 18/33: Improve auto hide details, (continued)
- [elpa] scratch/dired-git-info 23b3d1e 18/33: Improve auto hide details, Clemens Radermacher, 2019/02/17
- [elpa] scratch/dired-git-info f7b5920 26/33: Improve dgi--get-commit-messages, Clemens Radermacher, 2019/02/17
- [elpa] scratch/dired-git-info 2e986ce 25/33: Allow command to run for dired derived modes, as well, Clemens Radermacher, 2019/02/17
- [elpa] scratch/dired-git-info 11a6cce 05/33: Update install instructions, Clemens Radermacher, 2019/02/17
- [elpa] scratch/dired-git-info 7803b82 16/33: Only mention some common options for message format docstring, Clemens Radermacher, 2019/02/17
- [elpa] scratch/dired-git-info f2117c8 28/33: Add .gitignore, Clemens Radermacher, 2019/02/17
- [elpa] scratch/dired-git-info 1c4ff64 23/33: Remove redundant :group declarations, Clemens Radermacher, 2019/02/17
- [elpa] scratch/dired-git-info cd60dd4 33/33: Check visible part of file names for right formatting, Clemens Radermacher, 2019/02/17
- [elpa] scratch/dired-git-info 3280075 22/33: Update descriptions, Clemens Radermacher, 2019/02/17
- [elpa] scratch/dired-git-info 069695c 10/33: Update screenshot, Clemens Radermacher, 2019/02/17
- [elpa] scratch/dired-git-info 51135d8 07/33: Use actual displayed width of filename to determine spacing,
Clemens Radermacher <=
- [elpa] scratch/dired-git-info 16c7a1a 15/33: Hide details when showing git info, Clemens Radermacher, 2019/02/17
- [elpa] scratch/dired-git-info 2ea5107 29/33: Rephrase commentary, Clemens Radermacher, 2019/02/17
- [elpa] scratch/dired-git-info b5551e7 30/33: Convert entry command to minor mode, Clemens Radermacher, 2019/02/17
- [elpa] scratch/dired-git-info 7755019 32/33: Get commit info from real file name, Clemens Radermacher, 2019/02/17
- [elpa] scratch/dired-git-info f539ba5 08/33: Align message parts of commit messages, Clemens Radermacher, 2019/02/17
- [elpa] scratch/dired-git-info 8afe378 09/33: Update docstring for message format, Clemens Radermacher, 2019/02/17
- [elpa] scratch/dired-git-info f9f8ab5 17/33: Cleanup, Clemens Radermacher, 2019/02/17
- [elpa] scratch/dired-git-info 0f7625c 14/33: Make overlays buffer local, to allow multiple dired buffers, Clemens Radermacher, 2019/02/17
- [elpa] scratch/dired-git-info aa8248a 21/33: Use temp buffer, Clemens Radermacher, 2019/02/17
- [elpa] scratch/dired-git-info c8e3b2e 13/33: Add docstrings, Clemens Radermacher, 2019/02/17