mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

Add user stylesheet option for doc-view EPUB support

Browse source 
* lisp/doc-view.el (doc-view-start-process): Add user stylesheet to
process arguments when appropriate.

* lisp/doc-view.el (doc-view-mutool-user-stylesheet): New user option.

Copyright-paperwork-exempt: yes
This commit is contained in:
Kjartan Oli Agustsson 2022-03-07 17:29:38 +01:00 • committed by Lars Ingebrigtsen
parent d67ca6739c
commit 494daefda1
1 changed files with 16 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lisp/doc-view.el
View file

@ -226,6 +226,12 @@ are available (see Info node `(emacs)Document View')"
Higher values result in larger images."
:type 'number)
(defcustom doc-view-mutool-user-stylesheet nil
"User stylesheet to use when converting EPUB documents to PDF."
:type '(choice (const nil)
(file :must-match t))
:version "29.1")
(defvar doc-view-doc-type nil
"The type of document in the current buffer.
Can be `dvi', `pdf', `ps', `djvu', `odf', 'epub', `cbz', `fb2',
@ -1169,8 +1175,16 @@ The test is performed using `doc-view-pdfdraw-program'."
(options `(,(concat "-o" png)
,(format "-r%d" (round doc-view-resolution))
,@(if pdf-passwd `("-p" ,pdf-passwd)))))
(when (and (eq doc-view-doc-type 'epub) doc-view-epub-font-size)
(setq options (append options (list (format "-S%s" doc-view-epub-font-size)))))
(when (eq doc-view-doc-type 'epub)
(when doc-view-epub-font-size
(setq options (append options
(list (format "-S%s" doc-view-epub-font-size)))))
(when doc-view-mutool-user-stylesheet
(setq options
(append options
(list (format "-U%s"
(expand-file-name
doc-view-mutool-user-stylesheet)))))))
(doc-view-start-process
"pdf->png" doc-view-pdfdraw-program
`(,@(doc-view-pdfdraw-program-subcommand)