From 150f27878ede51136f0ef9d4c14472b83fffeebe Mon Sep 17 00:00:00 2001
From: Matthew L. Fidler
Date: Fri, 22 Jan 2016 09:44:27 -0600
Subject: Allow regular expression matching.

---
 mode-icons.el | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/mode-icons.el b/mode-icons.el
index 4d4b929..ce9a587 100644
--- a/mode-icons.el
+++ b/mode-icons.el
@@ -113,10 +113,18 @@ ICON-SPEC should be a specification from `mode-icons'."
    (t (propertize
        mode 'display (mode-icons-get-icon-display (nth 1 icon-spec) (nth 2 icon-spec))))))
 
+(defun mode-icons-get-icon-spec (mode)
+  "Get icon spec based on regular expression."
+  (catch 'found-mode
+    (dolist (item mode-icons)
+      (when (string-match-p (car item) mode)
+	(throw 'found-mode item)))
+    nil))
+
 (defun mode-icons-get-mode-icon (mode)
   "Get the icon for MODE, if there is one."
   (let* ((mode-name (format-mode-line mode))
-         (icon-spec (assoc mode-name mode-icons)))
+         (icon-spec (mode-icons-get-icon-spec mode-name)))
     (if icon-spec
         (mode-icons-propertize-mode mode-name icon-spec)
       mode-name)))
@@ -150,7 +158,7 @@ ICON-SPEC should be a specification from `mode-icons'."
     (dolist (mode minor-mode-alist)
       (unless (assq (car mode) mode-icons-set-minor-mode-icon-alist)
 	(setq mode-name (format-mode-line mode)
-	      icon-spec (assoc mode-name mode-icons))
+	      icon-spec (mode-icons-get-icon-spec mode-name))
 	(when icon-spec
 	  (setq minor (assq (car mode) minor-mode-alist))
 	  (when minor
-- 
cgit v1.2.3-54-g00ecf