[elpa] master 525a19d 14/18: Propertize directories with ivy-subdir face

[Oleh Krehel]

branch: master
commit 525a19d139b62464ac0872f89d498252446799a0
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    Propertize directories with ivy-subdir face
    
    * ivy.el (ivy-subdir): New defface.
    (ivy-completions): Update.
---
 ivy.el |   10 ++++++++++
 1 files changed, 10 insertions(+), 0 deletions(-)

diff --git a/ivy.el b/ivy.el
index 3d40b64..784ef0b 100644
--- a/ivy.el
+++ b/ivy.el
@@ -46,6 +46,10 @@
   '((t (:inherit highlight)))
   "Face used by Ivy for highlighting first match.")
 
+(defface ivy-subdir
+  '((t (:weight bold)))
+  "Face used by Ivy for highlighting subdirs in the alternatives.")
+
 (defcustom ivy-height 10
   "Number of lines for the minibuffer window."
   :type 'integer)
@@ -606,6 +610,12 @@ CANDIDATES is a list of strings."
              (end (min (+ start (1- ivy-height)) ivy--length))
              (cands (cl-subseq cands start end))
              (index (min ivy--index half-height (1- (length cands)))))
+        (when ivy--directory
+          (setq cands (mapcar (lambda (x)
+                                (if (string-match-p "/$" x)
+                                    (propertize x 'face 'ivy-subdir)
+                                  x))
+                              cands)))
         (setq ivy--current (copy-sequence (nth index cands)))
         (setf (nth index cands)
               (ivy--add-face ivy--current 'ivy-current-match))