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

LaTeX reader: Support \v{} for hacek.

Browse source 
Closes #926.
This commit is contained in:
John MacFarlane 2013-07-25 10:00:11 -07:00
parent 85cc140744
commit fb9f2e4bd5
1 changed files with 37 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -415,6 +415,7 @@ inlineCommands = M.fromList $
, (".", option (str ".") $ try $ tok >>= accent dot)
, ("=", option (str "=") $ try $ tok >>= accent macron)
, ("c", option (str "c") $ try $ tok >>= accent cedilla)
, ("v", option (str "v") $ try $ tok >>= accent hacek)
, ("i", lit "i")
, ("\\", linebreak <$ (optional (bracketed inline) *> optional sp))
, (",", pure mempty)
@ -671,6 +672,42 @@ cedilla 's' = 'ş'
cedilla 'S' = 'Ş'
cedilla c = c
hacek :: Char -> Char
hacek 'A' = 'Ǎ'
hacek 'a' = 'ǎ'
hacek 'C' = 'Č'
hacek 'c' = 'č'
hacek 'D' = 'Ď'
hacek 'd' = 'ď'
hacek 'E' = 'Ě'
hacek 'e' = 'ě'
hacek 'G' = 'Ǧ'
hacek 'g' = 'ǧ'
hacek 'H' = 'Ȟ'
hacek 'h' = 'ȟ'
hacek 'I' = 'Ǐ'
hacek 'i' = 'ǐ'
hacek 'j' = 'ǰ'
hacek 'K' = 'Ǩ'
hacek 'k' = 'ǩ'
hacek 'L' = 'Ľ'
hacek 'l' = 'ľ'
hacek 'N' = 'Ň'
hacek 'n' = 'ň'
hacek 'O' = 'Ǒ'
hacek 'o' = 'ǒ'
hacek 'R' = 'Ř'
hacek 'r' = 'ř'
hacek 'S' = 'Š'
hacek 's' = 'š'
hacek 'T' = 'Ť'
hacek 't' = 'ť'
hacek 'U' = 'Ǔ'
hacek 'u' = 'ǔ'
hacek 'Z' = 'Ž'
hacek 'z' = 'ž'
hacek c = c
tok :: LP Inlines
tok = try $ grouped inline <|> inlineCommand <|> str <$> (count 1 $ inlineChar)