>From f1f919d64d97a0f8bd614ef7b099ca123b66c4d6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Kjartan=20=C3=93li=20=C3=81g=C3=BAstsson?= Date: Fri, 4 Mar 2022 23:01:19 +0000 Subject: [PATCH] Add user stylesheet option for doc-view EPUB support * lisp/doc-view.el (doc-view-start-process): Add user stylesheet to process arguments when appropriate. --- lisp/doc-view.el | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/lisp/doc-view.el b/lisp/doc-view.el index 193cf42ea4..8658ed013f 100644 --- a/lisp/doc-view.el +++ b/lisp/doc-view.el @@ -226,6 +226,12 @@ doc-view-resolution 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 (file :must-match t) + (const nil)) + :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', @@ -1079,6 +1085,9 @@ doc-view-start-process (let* ((default-directory (or (unhandled-file-name-directory default-directory) (expand-file-name "~/"))) + (args (if (and (eq doc-view-doc-type 'epub) + doc-view-mutool-user-stylesheet) + (cons (car args) (cons (format "-U%s" (expand-file-name doc-view-mutool-user-stylesheet)) (cdr args))))) (proc (apply #'start-process name doc-view-conversion-buffer program args))) (push proc doc-view--current-converter-processes) -- 2.35.1