diff options
| author |  Matthew L. Fidler | 2016-01-22 09:44:27 -0600 |
|---|---|---|
| committer | Matthew L. Fidler | 2016-01-22 09:44:27 -0600 |
| commit | 150f27878ede51136f0ef9d4c14472b83fffeebe (patch) | |
| tree | d2ccad161a27b8667f9645cfd10ca701de00ddad | |
| parent | 423d5a5868933897aec1624faa512054330dd2c8 (diff) | |
| download | mode-icons-150f27878ede51136f0ef9d4c14472b83fffeebe.tar.gz mode-icons-150f27878ede51136f0ef9d4c14472b83fffeebe.zip | |
Allow regular expression matching.
| -rw-r--r-- | mode-icons.el | 12 |
1 files 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 |