emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/svg-lib 5c206f3 24/32: Remove hard coded image scaling


From: ELPA Syncer
Subject: [elpa] externals/svg-lib 5c206f3 24/32: Remove hard coded image scaling factor
Date: Mon, 27 Sep 2021 16:57:50 -0400 (EDT)

branch: externals/svg-lib
commit 5c206f35e42e68795f75c272e71ad1f4036e01e9
Author: Hyunggyu Jang <murasakipurplez5@gmail.com>
Commit: Hyunggyu Jang <murasakipurplez5@gmail.com>

    Remove hard coded image scaling factor
    
    Image scaling factor is governed by `image-scaling-factor` value, in
    `create-image`. `svg-image` calls `create-image` under the hood, hence,
    the user can restore scale factor of 1 by adjusting
    `image-scaling-factor`.
    
    Fixes #6.
---
 svg-lib.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/svg-lib.el b/svg-lib.el
index 815f088..efaf7c5 100644
--- a/svg-lib.el
+++ b/svg-lib.el
@@ -247,7 +247,7 @@ and style elements ARGS."
     (svg-text svg label
               :font-family font-family :font-weight font-weight  :font-size 
font-size
               :fill foreground :x text-x :y  text-y)
-    (svg-image svg :scale 1 :ascent 'center)))
+    (svg-image svg :ascent 'center)))
 
 
 
@@ -318,7 +318,7 @@ and style elements ARGS."
                     (elliptical-arc ((,iradius ,iradius ,x1 ,y1
                                       :sweep t :large-arc ,large-arc))))
               :fill foreground))
-    (svg-image svg :scale 1 :ascent 'center)))
+    (svg-image svg :ascent 'center)))
 
 
 ;; Create a progress bar
@@ -375,7 +375,7 @@ and style elements ARGS."
                        (- tag-height stroke (* 2 padding))
                        :fill foreground :rx (- radius (/ stroke 2.0)))
     
-    (svg-image svg :scale 1 :ascent 'center)))
+    (svg-image svg :ascent 'center)))
 
 
 
@@ -473,7 +473,7 @@ given STYLE and style elements ARGS."
         (svg-node svg 'path :d path
                             :fill foreground
                             :transform icon-transform)))
-    (svg-image svg :ascent 'center :scale 1)))
+    (svg-image svg :ascent 'center)))
 
 
 
@@ -560,7 +560,7 @@ and style elements ARGS."
         (svg-node svg 'path :d path
                             :fill foreground
                             :transform icon-transform)))
-    (svg-image svg :scale 1 :ascent 'center)))
+    (svg-image svg :ascent 'center)))
 
 
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]