ryuslash/mode-icons
1
0
Fork 0
mirror of https://github.com/ryuslash/mode-icons.git synced 2024-11-22 01:50:28 +01:00
Code Issues Projects Releases Packages Wiki Activity

Add undecided file-type

Browse source
This commit is contained in:
Matthew L. Fidler 2016-02-20 00:30:19 -06:00
parent 66730cf972
commit 67193ea0b3
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
mode-icons.el
View file

@ -198,6 +198,7 @@ This was stole/modified from `c-save-buffer-state'"
(win #xf17a FontAwesome) (win #xf17a FontAwesome)
;; FIXME: use lsb_release to determine Linux variant and choose appropriate icon ;; 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. (unix #xf166 font-mfizz) ;; Use ubuntu, since I think it is the most common.
(undecided #xf128 FontAwesome)
("Text\\'" #xf0f6 FontAwesome) ("Text\\'" #xf0f6 FontAwesome)
;; Diminished modes ;; Diminished modes
("\\(?:ElDoc\\|Anzu\\|SP\\|Guide\\|PgLn\\|Undo-Tree\\|Ergo.*\\|,\\|Isearch\\|Ind\\|Fly\\)" nil nil) ("\\(?: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'." STRING is the string to modify, or if absent, the value from `mode-line-eol-desc'."
(let* ((str (or string (mode-line-eol-desc))) (let* ((str (or string (mode-line-eol-desc)))
(props (text-properties-at 0 str)) (props (text-properties-at 0 str))
lt2 (lt2 "")
icon-spec) icon-spec)
(setq str (cond (setq str (cond
((string= "(Unix)" str) ((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)) (if (setq icon-spec (mode-icons-get-icon-spec 'apple))
(mode-icons-propertize-mode 'apple icon-spec) (mode-icons-propertize-mode 'apple icon-spec)
str)) 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))) (t str)))
(when mode-icons-eol-text (when mode-icons-eol-text
(setq str (concat str lt2))) (setq str (concat str lt2)))