[elpa] scratch/dired-git-info cd60dd4 33/33: Check visible part of file names for right formatting

[Clemens Radermacher]

branch: scratch/dired-git-info
commit cd60dd47a700bc87befdd276d32930e9a77e6623
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>

    Check visible part of file names for right formatting
---
 dired-git-info.el | 18 +++++++++++-------
 1 file changed, 11 insertions(+), 7 deletions(-)

diff --git a/dired-git-info.el b/dired-git-info.el
index 09df3d4..94f7c48 100644
--- a/dired-git-info.el
+++ b/dired-git-info.el
@@ -146,8 +146,12 @@ info format and defaults to `dgi-commit-message-format'."
   "Get lengths of FILE as displayed by dired."
   (save-excursion
     (dired-goto-file file)
-    (length (buffer-substring (point)
-                              (line-end-position)))))
+    (let ((opos (point)))
+      (while (and (not (eolp))
+                  (or (not dired-hide-details-mode)
+                      (not (get-text-property (point) 'invisible))))
+        (forward-char 1))
+      (length (buffer-substring opos (point))))))
 
 
 (defun dgi--get-commit-messages (files)
@@ -178,6 +182,10 @@ info format and defaults to `dgi-commit-message-format'."
       (user-error "Not in a dired buffer"))
     (unless (locate-dominating-file "." ".git")
       (user-error "Not inside a git repository"))
+    (when dgi-auto-hide-details-p
+      (unless dired-hide-details-mode
+        (setq dgi--restore-no-details t)
+        (dired-hide-details-mode 1)))
     (let* ((files (dgi--save-marked
                    (dired-unmark-all-marks)
                    (dired-toggle-marks)
@@ -203,11 +211,7 @@ info format and defaults to `dgi-commit-message-format'."
                   ;; in combination with hl-line-mode overlay
                   (overlay-put ov 'display ovs)
                   ;; hl line mode should have priority
-                  (overlay-put ov 'priority -60)))))))
-      (when dgi-auto-hide-details-p
-        (unless dired-hide-details-mode
-          (setq dgi--restore-no-details t)
-          (dired-hide-details-mode 1))))))
+                  (overlay-put ov 'priority -60))))))))))
 
 
 (provide 'dired-git-info)