[nongnu] elpa/helm c46c04cd55: Same icons in bookmarks for dirs as in HFF

[ELPA Syncer]

branch: elpa/helm
commit c46c04cd55287e1e9fb790bbcf1240185f07d230
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@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)