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

LaTeX reader: support \k ogonek accent.

Browse source
This commit is contained in:
John MacFarlane 2017-09-05 09:55:42 -07:00
parent 350c282f20
commit 146a10780e
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Text/Pandoc/Readers/LaTeX.hs
View file

@ -961,6 +961,10 @@ hacek 'Z' = "Ž"
hacek 'z' = "ž" hacek 'z' = "ž"
hacek c = [c] hacek c = [c]
ogonek :: Char -> String
ogonek 'a' = "ą"
ogonek c = [c]
breve :: Char -> String breve :: Char -> String
breve 'A' = "Ă" breve 'A' = "Ă"
breve 'a' = "ă" breve 'a' = "ă"
@ -1286,6 +1290,7 @@ inlineCommands = M.fromList $
, ("c", option (str "c") $ try $ tok >>= accent cedilla) , ("c", option (str "c") $ try $ tok >>= accent cedilla)
, ("v", option (str "v") $ try $ tok >>= accent hacek) , ("v", option (str "v") $ try $ tok >>= accent hacek)
, ("u", option (str "u") $ try $ tok >>= accent breve) , ("u", option (str "u") $ try $ tok >>= accent breve)
, ("k", option (str "k") $ try $ tok >>= accent ogonek)
, ("i", lit "i") , ("i", lit "i")
, ("\\", linebreak <$ (do inTableCell <- sInTableCell <$> getState , ("\\", linebreak <$ (do inTableCell <- sInTableCell <$> getState
guard $ not inTableCell guard $ not inTableCell