procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use a face for DocView SVG

Browse source 
* lisp/doc-view.el (doc-view-svg-face): New face for SVG images.
(doc-view-insert-image): Use it.  (Bug#61816)
This commit is contained in:
Manuel Giraud 2023-03-02 19:16:19 +01:00 • committed by Eli Zaretskii
parent 54949f0669
commit 26740f3046
2 changed files with 14 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
etc/NEWS
View file

@ -214,6 +214,12 @@ bound to 'C-c C-d' in 'go-ts-mode'.
When this is non-nil, call the 'man' program synchronously rather than
asynchronously (which is the default behavior).
** DocView
---
*** New face 'doc-view-svg-face'.
This replaces 'doc-view-svg-foreground' and 'doc-view-svg-background'.
* New Modes and Packages in Emacs 30.1

19
lisp/doc-view.el
View file

@ -236,17 +236,14 @@ showing only titles and no page number."
:type 'boolean
:version "29.1")
(defcustom doc-view-svg-background "white"
"Background color for svg images.
(defface doc-view-svg-face '((t :inherit default))
"Face used for SVG images. Only background and foreground colors
are used.
See `doc-view-mupdf-use-svg'."
:type 'color
:version "29.1")
:version "30.1")
(defcustom doc-view-svg-foreground "black"
"Foreground color for svg images.
See `doc-view-mupdf-use-svg'."
:type 'color
:version "29.1")
(make-obsolete 'doc-view-svg-background 'doc-view-svg-face "30.1")
(make-obsolete 'doc-view-svg-foreground 'doc-view-svg-face "30.1")
(defcustom doc-view-ghostscript-options
'("-dSAFER" ;; Avoid security problems when rendering files from untrusted
@ -1602,8 +1599,8 @@ ARGS is a list of image descriptors."
(unless (member :transform-smoothing args)
(setq args `(,@args :transform-smoothing t)))
(when (eq doc-view--image-type 'svg)
(setq args `(,@args :background ,doc-view-svg-background
:foreground ,doc-view-svg-foreground)))
(setq args `(,@args :background ,(face-background 'doc-view-svg-face)
:foreground ,(face-foreground 'doc-view-svg-face))))
(apply #'create-image file doc-view--image-type nil args))))
(slice (doc-view-current-slice))
(img-width (and image (car (image-size image))))