branch: elpa/helm
commit 1e480eea34e999e335439f3f89d231d019a94e13
Author: Thierry Volpiatto <thie...@posteo.net>
Commit: Thierry Volpiatto <thie...@posteo.net>
Provide icons in helm-find
---
helm-files.el | 3 ++-
helm-find.el | 22 ++++++++++------------
2 files changed, 12 insertions(+), 13 deletions(-)
diff --git a/helm-files.el b/helm-files.el
index a9f8ebfd71..9106b50db4 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -4481,7 +4481,8 @@ Arg FILE is the real part of candidate, a filename with
no props."
helm-ff-pipe
helm-ff-symlink
helm-ff-dotted-symlink-directory
- helm-ff-backup-file)
+ helm-ff-backup-file
+ helm-ls-git-untracked-face)
when (memq face faces)
return face))
diff --git a/helm-find.el b/helm-find.el
index 45babddc90..26005339b3 100644
--- a/helm-find.el
+++ b/helm-find.el
@@ -77,18 +77,16 @@ that display the basename of candidate here."
(helm-aif (file-remote-p default-directory)
(concat it i) i))
for type = (car (file-attributes abs))
- for disp = (if (and helm-ff-transformer-show-only-basename
- (not (string-match "[.]\\{1,2\\}$" i)))
- (helm-basename abs)
- (funcall helm-find-show-full-path-fn abs))
- collect (cond ((eq t type)
- (cons (propertize disp 'face 'helm-ff-directory)
- abs))
- ((stringp type)
- (cons (propertize disp 'face 'helm-ff-symlink)
- abs))
- (t (cons (propertize disp 'face 'helm-ff-file)
- abs))))))
+ for fname = (if (and helm-ff-transformer-show-only-basename
+ (not (string-match "[.]\\{1,2\\}$" i)))
+ (helm-basename abs)
+ (funcall helm-find-show-full-path-fn abs))
+ for disp = (helm-acase type
+ ('t (propertize fname 'face 'helm-ff-directory))
+ ((guard* (stringp it))
+ (propertize fname 'face 'helm-ff-symlink))
+ (otherwise (propertize fname 'face 'helm-ff-file)))
+ collect (cons (helm-ff-prefix-filename disp abs) abs))))
(defun helm-find--build-cmd-line ()
(require 'find-cmd)
