diff options
author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2015-08-09 14:39:58 +0200 |
---|---|---|
committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2015-08-09 14:39:58 +0200 |
commit | cc28ae32c3e52888b3f7198bb4cda4813476b666 (patch) | |
tree | fccb2f21dc55eb517eb82323fa5f6e92aca185bd /helm-files.el | |
parent | aeba45e2ed848464c1726db75e0f3dd56178b64a (diff) |
Highlight dotted/symlink directory in helm-find-files (#1121).
* helm-files.el:
(helm-ff-dotted-symlink-directory): New face.
(helm-ff-filter-candidate-one-by-one): Use it.
Diffstat (limited to 'helm-files.el')
-rw-r--r-- | helm-files.el | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/helm-files.el b/helm-files.el index 6914dc28..ba015966 100644 --- a/helm-files.el +++ b/helm-files.el @@ -271,6 +271,11 @@ I.e use the -path/ipath arguments of find instead of -name/iname." "Face used for dotted directories in `helm-find-files'." :group 'helm-files-faces) +(defface helm-ff-dotted-symlink-directory + '((t (:foreground "DarkOrange" :background "DimGray"))) + "Face used for dotted symlinked directories in `helm-find-files'." + :group 'helm-files-faces) + (defface helm-ff-symlink '((t (:foreground "DarkOrange"))) "Face used for symlinks in `helm-find-files'." @@ -2028,6 +2033,11 @@ Return candidates prefixed with basename of `helm-input' first." (cons (helm-ff-prefix-filename (propertize disp 'face 'helm-ff-invalid-symlink) t) file)) + ;; A dotted directory symlinked. + ((and (helm-ff-dot-file-p file) (stringp type)) + (cons (helm-ff-prefix-filename + (propertize disp 'face 'helm-ff-dotted-symlink-directory) t) + file)) ;; A dotted directory. ((helm-ff-dot-file-p file) (cons (helm-ff-prefix-filename |