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

Add mode-icons prefix to functions

Browse source
This commit is contained in:
Matthew L. Fidler 2016-01-21 22:50:31 -06:00
parent 0e649a218e
commit 34416c4643
1 changed files with 14 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
mode-icons.el
View file

@ -70,14 +70,15 @@ absolute path to ICON."
("XML" "xml" xpm) ("XML" "xml" xpm)
("YAML" "yaml" xpm) ("YAML" "yaml" xpm)
("YASnippet" "yas" xpm) ("YASnippet" "yas" xpm)
(" yas" "yas" xpm)
) )
"Icons for major modes. "Icons for major and minor modes.
Each specification is a list with the first element being the Each specification is a list with the first element being the
name of the major mode. The second the name of the icon file, name of the major mode. The second the name of the icon file,
without the extension. And the third being the type of icon.") without the extension. And the third being the type of icon.")
(defun get-icon-display (icon type) (defun mode-icons-get-icon-display (icon type)
"Get the value for the display property of ICON having TYPE. "Get the value for the display property of ICON having TYPE.
ICON should be a string naming the file of the icon, without its ICON should be a string naming the file of the icon, without its
@ -87,29 +88,29 @@ the icon."
(concat icon "." (symbol-name type))))) (concat icon "." (symbol-name type)))))
`(image :type ,type :file ,icon-path :ascent center))) `(image :type ,type :file ,icon-path :ascent center)))
(defun propertize-mode (mode icon-spec) (defun mode-icons-propertize-mode (mode icon-spec)
"Propertize MODE with ICON-SPEC. "Propertize MODE with ICON-SPEC.
MODE should be a string, the name of the mode to propertize. MODE should be a string, the name of the mode to propertize.
ICON-SPEC should be a specification from `mode-icons'." ICON-SPEC should be a specification from `mode-icons'."
(propertize (propertize
mode 'display (get-icon-display (nth 1 icon-spec) (nth 2 icon-spec)))) mode 'display (mode-icons-get-icon-display (nth 1 icon-spec) (nth 2 icon-spec))))
(defun get-mode-icon (mode) (defun mode-icons-get-mode-icon (mode)
"Get the icon for MODE, if there is one." "Get the icon for MODE, if there is one."
(let* ((mode-name (format-mode-line mode)) (let* ((mode-name (format-mode-line mode))
(icon-spec (assoc mode-name mode-icons))) (icon-spec (assoc mode-name mode-icons)))
(if icon-spec (if icon-spec
(propertize-mode mode-name icon-spec) (mode-icons-propertize-mode mode-name icon-spec)
mode-name))) mode-name)))
(defun set-mode-icon (mode) (defun mode-icons-set-mode-icon (mode)
"Set the icon for MODE." "Set the icon for MODE."
(setq mode-name (get-mode-icon mode))) (setq mode-name (mode-icons-get-mode-icon mode)))
(defun set-current-mode-icon () (defun mode-icons-set-current-mode-icon ()
"Set the icon for the current major mode." "Set the icon for the current major mode."
(set-mode-icon mode-name)) (mode-icons-set-mode-icon mode-name))
;;;###autoload ;;;###autoload
(define-minor-mode mode-icons-mode (define-minor-mode mode-icons-mode
@ -117,9 +118,9 @@ ICON-SPEC should be a specification from `mode-icons'."
:global t :global t
(if mode-icons-mode (if mode-icons-mode
(progn (progn
(add-hook 'after-change-major-mode-hook 'set-current-mode-icon) (add-hook 'after-change-major-mode-hook 'mode-icons-set-current-mode-icon)
(set-current-mode-icon)) (mode-icons-set-current-mode-icon))
(remove-hook 'after-change-major-mode-hook 'set-current-mode-icon))) (remove-hook 'after-change-major-mode-hook 'mode-icons-set-current-mode-icon)))
(provide 'mode-icons) (provide 'mode-icons)
;;; mode-icons.el ends here ;;; mode-icons.el ends here