[nongnu] elpa/helm f789f1a8b8 3/6: Show last access in HFF file name history

[ELPA Syncer]

branch: elpa/helm
commit f789f1a8b82841746687f9c6b2400e6e47a15b13
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Show last access in HFF file name history
---
 helm-files.el | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/helm-files.el b/helm-files.el
index 73d7e92dc3..c863f7145e 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -6026,13 +6026,20 @@ doing.")
     map))
 
 (defun helm-file-name-history-transformer (candidates _source)
-  (cl-loop for c in candidates
+  (cl-loop with lgst = (cl-loop for c in candidates maximize (length c))
+           for c in candidates
+           for last-access = (format-time-string "%d/%m/%Y:%X"
+                                                 (nth 4 (file-attributes c)))
            for disp = (cond ((or (file-remote-p c)
                                  (and (fboundp 'tramp-archive-file-name-p)
                                       (tramp-archive-file-name-p c)))
                              (propertize c 'face 'helm-history-remote))
                             ((file-exists-p c)
-                             (propertize c 'face 'helm-ff-file))
+                             (propertize
+                              c 'display
+                              (concat (propertize c 'face 'helm-ff-file)
+                                      (make-string (- lgst (length c)) ? )
+                                      last-access)))
                             (t (unless helm--file-name-history-hide-deleted
                                  (propertize c 'face 'helm-history-deleted))))
            when disp