From a6612b35c8852adb34e1e9a574f29a682122b0ff Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sun, 3 Nov 2019 15:11:17 -0800
Subject: EPUB writer: ensure that `lang` variable is set on all chapters.
---
src/Text/Pandoc/Writers/EPUB.hs | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
(limited to 'src')
diff --git a/src/Text/Pandoc/Writers/EPUB.hs b/src/Text/Pandoc/Writers/EPUB.hs
index ef7ce659b..37c78bba8 100644
--- a/src/Text/Pandoc/Writers/EPUB.hs
+++ b/src/Text/Pandoc/Writers/EPUB.hs
@@ -434,9 +434,11 @@ pandocToEPUB version opts doc = do
stylesheets [(1 :: Int)..]
let vars = Context $
- M.delete "css" . M.insert "epub3"
- (toVal' $ if epub3 then "true" else "false") $
- unContext $ writerVariables opts
+ M.delete "css" .
+ M.insert "epub3"
+ (toVal' $ if epub3 then "true" else "false") .
+ M.insert "lang" (toVal' $ epubLanguage metadata)
+ $ unContext $ writerVariables opts
let cssvars useprefix = Context $ M.fromList $ map
(\e -> ("css", toVal' $
--
cgit v1.2.3