summaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2017-03-31 15:15:49 +0200
committerJohn MacFarlane <jgm@berkeley.edu>2017-03-31 15:15:49 +0200
commit80c3c93273fee0eceee2ebd996c79e2151aee4d1 (patch)
treebf01d1360f0072bf7fb5798719c6e42b3c1ae87f /src/Text/Pandoc
parent8a3ef99882b6ba3220746fb6cf6b3ffc68a942ed (diff)
JATS writer: don't include jats.csl in metadata if csl already specified.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/App.hs4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/App.hs b/src/Text/Pandoc/App.hs
index 5391f0fa6..d484a77e6 100644
--- a/src/Text/Pandoc/App.hs
+++ b/src/Text/Pandoc/App.hs
@@ -404,7 +404,9 @@ convertWithOpts opts = do
withMediaBag . r readerOpts) sources
return (mconcat (map fst pairs), mconcat (map snd pairs))
- metadata <- if format == "jats"
+ metadata <- if format == "jats" &&
+ lookup "csl" (optMetadata opts) == Nothing &&
+ lookup "citation-style" (optMetadata opts) == Nothing
then do
jatsCSL <- readDataFile datadir "jats.csl"
let jatsEncoded = makeDataURI ("application/xml", jatsCSL)