martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add a frame around the placeholder image in shr

Browse Source 
* lisp/net/shr.el (shr-make-placeholder-image): Add a frame
around the image.
This commit is contained in:
Lars Ingebrigtsen
2016-02-20 18:48:40 +11:00
parent 80852f843e
commit 1ba50a0d8c
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/net/shr.el
View File

@@ -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))))