branch: externals/svg-lib
commit 5c206f35e42e68795f75c272e71ad1f4036e01e9
Author: Hyunggyu Jang <murasakipurpl...@gmail.com>
Commit: Hyunggyu Jang <murasakipurpl...@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)))
