From: Juri Linkov <juri@linkov.net>
Date: Fri, 1 Sep 2023 06:56:59 +0000 (+0300)
Subject: Fix height of new SVG icons on tab-bar and tab-line (bug#62562)
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=30decd1d9777f44e614622ebfe5f35e719a265ca;p=emacs.git

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

* 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.
---

diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el
index 6b286598a14..fd9294ed581 100644
--- a/lisp/tab-bar.el
+++ b/lisp/tab-bar.el
@@ -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 " > "))
diff --git a/lisp/tab-line.el b/lisp/tab-line.el
index e277d1fb9ed..f0bc13acb74 100644
--- a/lisp/tab-line.el
+++ b/lisp/tab-line.el
@@ -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 "> "))