Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

ConTeXt writer: use braces, not start/stop, for inline language tags.

Browse source 
This prevents unwanted gobbling of spaces.
This commit is contained in:
John MacFarlane 2019-11-16 17:20:17 -08:00
parent c4e198c84d
commit 8683cb596d
2 changed files with 8 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Text/Pandoc/Writers/ConTeXt.hs
View file

@ -470,8 +470,8 @@ inlineToConTeXt (Span (_,_,kvs) ils) = do
Just "ltr" -> braces $ "\\lefttoright " <> txt
_ -> txt
wrapLang txt = case mblang of
Just lng -> "\\start\\language[" <> literal lng
<> "]" <> txt <> "\\stop "
Just lng -> braces ("\\language" <>
brackets (literal lng) <> txt)
Nothing -> txt
(wrapLang . wrapDir) <$> inlineListToConTeXt ils

13
test/writers-lang-and-dir.context
View file

@ -98,10 +98,10 @@ German div contents
and more text.
Next paragraph with a \start\language[en-gb]British span\stop and a
word-that-includesa\start\language[de-ch]Swiss German span\stop right?
Next paragraph with a {\language[en-gb]British span} and a
word-that-includesa{\language[de-ch]Swiss German span}right?
Some \start\language[es]Spanish text\stop .
Some {\language[es]Spanish text}.
\section[title={Combined},reference={combined}]
@ -116,9 +116,8 @@ French rtl div contents
and more text.
Next paragraph with a \start\language[en-gb]{\lefttoright British ltr
span}\stop and a
word-that-includesa\start\language[de-ch]{\lefttoright Swiss German ltr
span}\stop right?
Next paragraph with a {\language[en-gb]{\lefttoright British ltr span}}
and a word-that-includesa{\language[de-ch]{\lefttoright Swiss German ltr
span}}right?
\stoptext