From 73fb9496bc2fed6d2b76e042623e78ac35347a06 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sun, 17 Nov 2019 17:35:50 -0800
Subject: Reverted the behavior change with `--title-prefix`.
It now implies `--standalone` again, as before.
---
src/Text/Pandoc/App/CommandLineOptions.hs | 3 ++-
src/Text/Pandoc/App/Opt.hs | 3 ++-
2 files changed, 4 insertions(+), 2 deletions(-)
(limited to 'src/Text/Pandoc/App')
diff --git a/src/Text/Pandoc/App/CommandLineOptions.hs b/src/Text/Pandoc/App/CommandLineOptions.hs
index bf1619e30..7d3b935ef 100644
--- a/src/Text/Pandoc/App/CommandLineOptions.hs
+++ b/src/Text/Pandoc/App/CommandLineOptions.hs
@@ -584,7 +584,8 @@ options =
(\arg opt ->
return opt {
optVariables =
- setVariable "title-prefix" arg $ optVariables opt })
+ setVariable "title-prefix" arg $ optVariables opt,
+ optStandalone = True })
"STRING")
"" -- "String to prefix to HTML window title"
diff --git a/src/Text/Pandoc/App/Opt.hs b/src/Text/Pandoc/App/Opt.hs
index 09f018233..4f54bad48 100644
--- a/src/Text/Pandoc/App/Opt.hs
+++ b/src/Text/Pandoc/App/Opt.hs
@@ -332,7 +332,8 @@ doOpt (k',v) = do
"file-scope" ->
parseYAML v >>= \x -> return (\o -> o{ optFileScope = x })
"title-prefix" ->
- parseYAML v >>= \x -> return (\o -> o{ optTitlePrefix = x })
+ parseYAML v >>= \x -> return (\o -> o{ optTitlePrefix = x,
+ optStandalone = True })
"css" ->
(parseYAML v >>= \x -> return (\o -> o{ optCss = optCss o <>
map unpack x }))
--
cgit v1.2.3