martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix height of new SVG icons on tab-bar and tab-line (bug#62562)

Browse Source 
* lisp/tab-bar.el (tab-bar--load-buttons): Add ':height (1.0 . em)'
to icons tab-bar-new, tab-bar-menu-bar.
(tab-bar-history-mode): Add ':height (1.0 . em)'
to icons tab-bar-back, tab-bar-forward.

* lisp/tab-line.el (tab-line-new, tab-line-left, tab-line-right):
Add ':height (1.0 . em)' to these icons.
This commit is contained in:
Juri Linkov
2023-09-01 09:56:59 +03:00
parent 6913612def
commit 30decd1d97
2 changed files with 7 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/tab-bar.el
View File

@@ -166,6 +166,7 @@ For easier selection of tabs by their numbers, consider customizing
(define-icon tab-bar-new nil
`((image "symbols/plus_16.svg" "tabs/new.xpm"
:face shadow
:height (1.0 . em)
:margin ,tab-bar-button-margin
:ascent center)
;; (emoji "➕")
@@ -195,6 +196,7 @@ For easier selection of tabs by their numbers, consider customizing
(unless (iconp 'tab-bar-menu-bar)
(define-icon tab-bar-menu-bar nil
`((image "symbols/menu_16.svg"
:height (1.0 . em)
:margin ,tab-bar-button-margin
:ascent center)
;; (emoji "🍔")
@@ -2285,6 +2287,7 @@ and can restore them."
(unless (iconp 'tab-bar-back)
(define-icon tab-bar-back nil
`((image "symbols/chevron_left_16.svg" "tabs/left-arrow.xpm"
:height (1.0 . em)
:margin ,tab-bar-button-margin
:ascent center)
(text " < "))
@@ -2295,6 +2298,7 @@ and can restore them."
(unless (iconp 'tab-bar-forward)
(define-icon tab-bar-forward nil
`((image "symbols/chevron_right_16.svg" "tabs/right-arrow.xpm"
:height (1.0 . em)
:margin ,tab-bar-button-margin
:ascent center)
(text " > "))

3
lisp/tab-line.el
View File

@@ -194,6 +194,7 @@ If the value is a function, call it with no arguments."
(define-icon tab-line-new nil
`((image "symbols/plus_16.svg" "tabs/new.xpm"
:face shadow
:height (1.0 . em)
:margin (2 . 0)
:ascent center)
(text " + "))
@@ -248,6 +249,7 @@ If nil, don't show it at all."
(define-icon tab-line-left nil
`((image "symbols/chevron_left_16.svg" "tabs/left-arrow.xpm"
:face shadow
:height (1.0 . em)
:margin (2 . 0)
:ascent center)
(text " <"))
@@ -265,6 +267,7 @@ If nil, don't show it at all."
(define-icon tab-line-right nil
`((image "symbols/chevron_right_16.svg" "tabs/right-arrow.xpm"
:face shadow
:height (1.0 . em)
:margin (2 . 0)
:ascent center)
(text "> "))