branch: elpa/helm
commit c46c04cd55287e1e9fb790bbcf1240185f07d230
Author: Thierry Volpiatto <thie...@posteo.net>
Commit: Thierry Volpiatto <thie...@posteo.net>
Same icons in bookmarks for dirs as in HFF
---
helm-bookmark.el | 9 ++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/helm-bookmark.el b/helm-bookmark.el
index d1471fb5e4..d4831cc07c 100644
--- a/helm-bookmark.el
+++ b/helm-bookmark.el
@@ -32,6 +32,9 @@
(declare-function all-the-icons-fileicon "ext:all-the-icons.el")
(declare-function all-the-icons-icon-for-file"ext:all-the-icons.el")
(declare-function all-the-icons-octicon "ext:all-the-icons.el")
+(declare-function all-the-icons-match-to-alist "ext:all-the-icons.el")
+
+(defvar all-the-icons-dir-icon-alist)
(defgroup helm-bookmark nil
@@ -608,7 +611,11 @@ If `browse-url-browser-function' is set to something else
than
i)
for icon = (when helm-bookmark-use-icon
(cond ((and isfile hff)
- (all-the-icons-octicon "file-directory"))
+ (helm-aif (all-the-icons-match-to-alist
+ (helm-basename isfile)
+ all-the-icons-dir-icon-alist)
+ (apply (car it) (cdr it))
+ (all-the-icons-octicon "file-directory")))
((and isfile isinfo) (all-the-icons-octicon
"info"))
(isfile (all-the-icons-icon-for-file isfile))
((or iswoman isman)
