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

Add option mode-icons-line-height-adjust.

Browse source 
Can help with Issue #35
This commit is contained in:
Matthew L. Fidler 2016-08-05 08:59:57 -05:00
parent 48f8fd04bc
commit 19d5d68ecd
1 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
mode-icons.el
View file

@ -455,10 +455,18 @@ This only works with xpm files."
ACTIVE tells if current window is active." ACTIVE tells if current window is active."
(or face (and active 'mode-line) 'mode-line-inactive)) (or face (and active 'mode-line) 'mode-line-inactive))
(defcustom mode-icons-line-height-adjust 0
"The manual adjustment of the mode-line height for images."
:type 'integer
:group 'mode-icons)
(defun mode-icons-line-height (&optional window) (defun mode-icons-line-height (&optional window)
"Gets the height in pixels of WINDOW's mode-line, if accessible. "Gets the height in pixels of WINDOW's mode-line, if accessible.
This uses `window-mode-line-height' on emacs 24.4+. Otherwise it assumes 16." This uses `window-mode-line-height' on emacs 24.4+. Otherwise it assumes 16.
(or (and (fboundp 'window-mode-line-height) (window-mode-line-height window)) 16))
This function also adjusts the line height by `mode-icons-line-height-adjust'."
(+ mode-icons-line-height-adjust
(or (and (fboundp 'window-mode-line-height) (window-mode-line-height window)) 16)))
(defun mode-icons-get-icon-display (icon type &optional face active) (defun mode-icons-get-icon-display (icon type &optional face active)
"Get the value for the display property of ICON having TYPE. "Get the value for the display property of ICON having TYPE.