From 67193ea0b3bf474dcf6b6c72b9d8c4f2ac9e3237 Mon Sep 17 00:00:00 2001 From: Matthew L. Fidler Date: Sat, 20 Feb 2016 00:30:19 -0600 Subject: Add undecided file-type --- mode-icons.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/mode-icons.el b/mode-icons.el index 15e3c99..6a142c3 100644 --- a/mode-icons.el +++ b/mode-icons.el @@ -198,6 +198,7 @@ This was stole/modified from `c-save-buffer-state'" (win #xf17a FontAwesome) ;; FIXME: use lsb_release to determine Linux variant and choose appropriate icon (unix #xf166 font-mfizz) ;; Use ubuntu, since I think it is the most common. + (undecided #xf128 FontAwesome) ("Text\\'" #xf0f6 FontAwesome) ;; Diminished modes ("\\(?:ElDoc\\|Anzu\\|SP\\|Guide\\|PgLn\\|Undo-Tree\\|Ergo.*\\|,\\|Isearch\\|Ind\\|Fly\\)" nil nil) @@ -605,7 +606,7 @@ ICON-SPEC should be a specification from `mode-icons'." STRING is the string to modify, or if absent, the value from `mode-line-eol-desc'." (let* ((str (or string (mode-line-eol-desc))) (props (text-properties-at 0 str)) - lt2 + (lt2 "") icon-spec) (setq str (cond ((string= "(Unix)" str) @@ -624,6 +625,11 @@ STRING is the string to modify, or if absent, the value from `mode-line-eol-desc (if (setq icon-spec (mode-icons-get-icon-spec 'apple)) (mode-icons-propertize-mode 'apple icon-spec) str)) + ((string= str ":") + (setq lt2 " Undecided") + (if (setq icon-spec (mode-icons-get-icon-spec 'undecided)) + (mode-icons-propertize-mode 'undecided icon-spec) + str)) (t str))) (when mode-icons-eol-text (setq str (concat str lt2))) -- cgit v1.2.3-54-g00ecf