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

Save buffer state more often

Browse source
This commit is contained in:
Matthew Fidler 2016-04-21 08:20:36 -05:00
parent 46b2659225
commit 7a12fb28d2
1 changed files with 22 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

42
mode-icons.el
View file

@ -285,7 +285,7 @@ without the extension. And the third being the type of icon."
If ICON-PATH is a string, return that." If ICON-PATH is a string, return that."
(or (and (file-exists-p icon-path) (or (and (file-exists-p icon-path)
(or (gethash icon-path mode-icons-get-xpm-string) (or (gethash icon-path mode-icons-get-xpm-string)
(puthash icon-path (with-temp-buffer (insert-file-contents icon-path) (buffer-string)) (puthash icon-path (mode-icons-save-buffer-state (with-temp-buffer (insert-file-contents icon-path) (buffer-string)))
mode-icons-get-xpm-string))) mode-icons-get-xpm-string)))
(and (stringp icon-path) icon-path))) (and (stringp icon-path) icon-path)))
@ -349,11 +349,12 @@ Grayscale colors are aslo changed by `mode-icons-interpolate-from-scale'."
"Get a list of rgb colors based on ICON-PATH xpm icon. "Get a list of rgb colors based on ICON-PATH xpm icon.
ICON-PATH can be a XPM string or a XPM file." ICON-PATH can be a XPM string or a XPM file."
(let (colors) (let (colors)
(with-temp-buffer (mode-icons-save-buffer-state
(insert (mode-icons-get-xpm-string icon-path)) (with-temp-buffer
(goto-char (point-min)) (insert (mode-icons-get-xpm-string icon-path))
(while (re-search-forward "#[0-9A-Fa-f]\\{6\\}" nil t) (goto-char (point-min))
(push (color-name-to-rgb (match-string 0)) colors))) (while (re-search-forward "#[0-9A-Fa-f]\\{6\\}" nil t)
(push (color-name-to-rgb (match-string 0)) colors))))
colors)) colors))
(defun mode-icons-desaturate-colors (colors &optional foreground background) (defun mode-icons-desaturate-colors (colors &optional foreground background)
@ -1109,20 +1110,21 @@ ACTIVE if a flag for if the current window is active."
xpm-name 'xpm face active) xpm-name 'xpm face active)
'mode-icons-p (list (nth 0 icon-spec) xpm-name 'xpm-bw) 'mode-icons-p (list (nth 0 icon-spec) xpm-name 'xpm-bw)
'face face) 'face face)
(with-temp-buffer (mode-icons-save-buffer-state
(if (stringp mode) (with-temp-buffer
(insert mode) (if (stringp mode)
(insert (or (and (integerp (nth 1 icon-spec)) (insert mode)
(make-string 1 (nth 1 icon-spec))) (insert (or (and (integerp (nth 1 icon-spec))
(nth 1 icon-spec)))) (make-string 1 (nth 1 icon-spec)))
(compose-region (point-min) (point-max) (or (and (integerp (nth 1 icon-spec)) (nth 1 icon-spec))))
(make-string 1 (nth 1 icon-spec))) (compose-region (point-min) (point-max) (or (and (integerp (nth 1 icon-spec))
(nth 1 icon-spec))) (make-string 1 (nth 1 icon-spec)))
(put-text-property (point-min) (point-max) (nth 1 icon-spec)))
'face face) (put-text-property (point-min) (point-max)
(put-text-property (point-min) (point-max) 'face face)
'mode-icons-p icon-spec) (put-text-property (point-min) (point-max)
(buffer-string))))) 'mode-icons-p icon-spec)
(buffer-string))))))
(defun mode-icons-propertize-mode (mode icon-spec &optional face active) (defun mode-icons-propertize-mode (mode icon-spec &optional face active)
"Propertize MODE with ICON-SPEC. "Propertize MODE with ICON-SPEC.