From 1ba50a0d8cbef6686ecf752583832e7bbb9137ef Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sat, 20 Feb 2016 18:48:40 +1100 Subject: [PATCH] Add a frame around the placeholder image in shr * lisp/net/shr.el (shr-make-placeholder-image): Add a frame around the image. --- lisp/net/shr.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/net/shr.el b/lisp/net/shr.el index 78862b373d4..6352d384184 100644 --- a/lisp/net/shr.el +++ b/lisp/net/shr.el @@ -1548,7 +1548,8 @@ The preference is a float determined from `shr-prefer-media-type'." height max-height)) (setq svg (svg-create width height)) (svg-gradient svg "background" 'linear '((0 . "#b0b0b0") (100 . "#808080"))) - (svg-rectangle svg 0 0 width height :gradient "background") + (svg-rectangle svg 0 0 width height :gradient "background" + :stroke-width 2 :stroke-color "black") (let ((image (svg-image svg))) (image-set-property image :ascent 100)))) -- 2.39.5