branch: externals/svg-lib
commit 2f96456b730c6f448361e78a6a91c69794a9e76e
Author: Nicolas P. Rougier <[email protected]>
Commit: Nicolas P. Rougier <[email protected]>
Fix default button style
---
svg-lib.el | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/svg-lib.el b/svg-lib.el
index bfcc21798a..942e4818b5 100644
--- a/svg-lib.el
+++ b/svg-lib.el
@@ -940,16 +940,18 @@ activated before inserting a button into a buffer."
(t
(svg-lib-button--make label 'default
:font-family (plist-get
svg-lib-style-default ':font-family)
- :font-weight 'regular))))
+ :font-weight 'regular))))
(hover (cond ((facep hover)
(svg-lib-button--make label hover))
((and (listp hover) hover)
(apply #'svg-lib-button--make label (car hover) (cdr
hover)))
(t
(svg-lib-button--make label 'default
- :background (face-background
'highlight nil 'default)
+ :foreground (face-background
'default nil 'default)
+ :background (face-foreground
'font-lock-comment-face nil 'default)
+ :stroke 0
:font-family (plist-get
svg-lib-style-default ':font-family)
- :font-weight 'regular))))
+ :font-weight 'semibold))))
(press (cond ((facep press)
(svg-lib-button--make label press))
((and (listp press) press)
