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

Untabify mode-icons.el

Browse source
This commit is contained in:
Tom Willemse 2016-02-21 14:24:16 +01:00
parent 6f510daa4c
commit 15d9481daa
1 changed files with 22 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

44
mode-icons.el
View file

@ -231,7 +231,7 @@ without the extension. And the third being the type of icon."
(const :tag "png" png) (const :tag "png" png)
(const :tag "gif" gif) (const :tag "gif" gif)
(const :tag "jpeg" jpeg) (const :tag "jpeg" jpeg)
(const :tag "jpg" jpg) (const :tag "jpg" jpg)
(const :tag "xbm" xbm) (const :tag "xbm" xbm)
(const :tag "xpm" xpm)))) (const :tag "xpm" xpm))))
:group 'mode-icons) :group 'mode-icons)
@ -284,12 +284,12 @@ the icon."
(defcustom mode-icons-modified-text-properties (defcustom mode-icons-modified-text-properties
'('mouse-face 'mode-line-highlight '('mouse-face 'mode-line-highlight
'local-map 'local-map
'(keymap '(keymap
(mode-line keymap (mode-line keymap
(mouse-1 . mode-icons-save-buffer) (mouse-1 . mode-icons-save-buffer)
(mouse-3 . mode-line-toggle-modified))) (mouse-3 . mode-line-toggle-modified)))
'help-echo 'mode-icons-modified-help-echo) 'help-echo 'mode-icons-modified-help-echo)
"List of text propeties to apply to read-only buffer indicator." "List of text propeties to apply to read-only buffer indicator."
:type '(repeat sexp) :type '(repeat sexp)
:group 'mode-icons) :group 'mode-icons)
@ -305,7 +305,7 @@ Use EVENT to determine location."
(defun mode-icons-modified-help-echo (window _object _point) (defun mode-icons-modified-help-echo (window _object _point)
"Return help text specifying WINDOW's buffer modification status." "Return help text specifying WINDOW's buffer modification status."
(format "Buffer is %smodified\nmouse-1: Save Buffer\nmouse-3: Toggle modification state" (format "Buffer is %smodified\nmouse-1: Save Buffer\nmouse-3: Toggle modification state"
(if (buffer-modified-p (window-buffer window)) "" "not "))) (if (buffer-modified-p (window-buffer window)) "" "not ")))
(defcustom mode-icons-read-only-text-properties (defcustom mode-icons-read-only-text-properties
'('mouse-face 'mode-line-highlight 'local-map '('mouse-face 'mode-line-highlight 'local-map
@ -371,21 +371,21 @@ ICON-SPEC should be a specification from `mode-icons'."
"") "")
((and (stringp (nth 1 icon-spec)) (not (nth 2 icon-spec))) ((and (stringp (nth 1 icon-spec)) (not (nth 2 icon-spec)))
(propertize (nth 1 icon-spec) 'display (nth 1 icon-spec) (propertize (nth 1 icon-spec) 'display (nth 1 icon-spec)
'mode-icons-p t)) 'mode-icons-p t))
((mode-icons-supported-font-p (nth 1 icon-spec) (nth 2 icon-spec)) ((mode-icons-supported-font-p (nth 1 icon-spec) (nth 2 icon-spec))
;; (propertize mode 'display (nth 1 icon-spec) 'mode-icons-p t) ;; (propertize mode 'display (nth 1 icon-spec) 'mode-icons-p t)
;; Use `compose-region' because it allows clicable text. ;; Use `compose-region' because it allows clicable text.
(with-temp-buffer (with-temp-buffer
(if (stringp mode) (if (stringp mode)
(insert mode) (insert mode)
(insert (or (and (integerp (nth 1 icon-spec)) (insert (or (and (integerp (nth 1 icon-spec))
(make-string 1 (nth 1 icon-spec))) (make-string 1 (nth 1 icon-spec)))
(nth 1 icon-spec)))) (nth 1 icon-spec))))
(compose-region (point-min) (point-max) (or (and (integerp (nth 1 icon-spec)) (compose-region (point-min) (point-max) (or (and (integerp (nth 1 icon-spec))
(make-string 1 (nth 1 icon-spec))) (make-string 1 (nth 1 icon-spec)))
(nth 1 icon-spec))) (nth 1 icon-spec)))
(put-text-property (point-min) (point-max) 'mode-icons-p t) (put-text-property (point-min) (point-max) 'mode-icons-p t)
(buffer-string))) (buffer-string)))
(t (propertize (format "%s" mode) 'display (mode-icons-get-icon-display (nth 1 icon-spec) (nth 2 icon-spec)) 'mode-icons-p t)))))) (t (propertize (format "%s" mode) 'display (mode-icons-get-icon-display (nth 1 icon-spec) (nth 2 icon-spec)) 'mode-icons-p t))))))
(defun mode-icons-get-icon-spec (mode) (defun mode-icons-get-icon-spec (mode)
@ -626,9 +626,9 @@ 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 ":") ((string= str ":")
(setq lt2 " Undecided") (setq lt2 " Undecided")
(if (setq icon-spec (mode-icons-get-icon-spec 'undecided)) (if (setq icon-spec (mode-icons-get-icon-spec 'undecided))
(mode-icons-propertize-mode 'undecided icon-spec) (mode-icons-propertize-mode 'undecided icon-spec)
str)) str))
(t str))) (t str)))