Reverted the behavior change with --title-prefix.

It now implies `--standalone` again, as before.
This commit is contained in:
John MacFarlane 2019-11-17 17:35:50 -08:00
parent 147ef90fde
commit 73fb9496bc
3 changed files with 5 additions and 4 deletions

View file

@ -1032,8 +1032,7 @@ header when requesting a document from a URL:
: Specify *STRING* as a prefix at the beginning of the title : Specify *STRING* as a prefix at the beginning of the title
that appears in the HTML header (but not in the title as it that appears in the HTML header (but not in the title as it
appears at the beginning of the HTML body). This option appears at the beginning of the HTML body). Implies `--standalone`.
should normally be used with `--standalone`.
`-c` *URL*, `--css=`*URL* `-c` *URL*, `--css=`*URL*

View file

@ -584,7 +584,8 @@ options =
(\arg opt -> (\arg opt ->
return opt { return opt {
optVariables = optVariables =
setVariable "title-prefix" arg $ optVariables opt }) setVariable "title-prefix" arg $ optVariables opt,
optStandalone = True })
"STRING") "STRING")
"" -- "String to prefix to HTML window title" "" -- "String to prefix to HTML window title"

View file

@ -332,7 +332,8 @@ doOpt (k',v) = do
"file-scope" -> "file-scope" ->
parseYAML v >>= \x -> return (\o -> o{ optFileScope = x }) parseYAML v >>= \x -> return (\o -> o{ optFileScope = x })
"title-prefix" -> "title-prefix" ->
parseYAML v >>= \x -> return (\o -> o{ optTitlePrefix = x }) parseYAML v >>= \x -> return (\o -> o{ optTitlePrefix = x,
optStandalone = True })
"css" -> "css" ->
(parseYAML v >>= \x -> return (\o -> o{ optCss = optCss o <> (parseYAML v >>= \x -> return (\o -> o{ optCss = optCss o <>
map unpack x })) map unpack x }))