diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-09-05 09:55:42 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-09-05 09:55:42 -0700 |
| commit | 146a10780e05006f97cd4ba3a0dd02b903533db6 (patch) | |
| tree | d8f408421008b35de911aa1da0f794f9fd8cddb0 | |
| parent | 350c282f205f48c6d0f7a96bf349b585a16fbcf4 (diff) | |
LaTeX reader: support `\k` ogonek accent.
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index 06e112cef..7b7ac1c01 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -961,6 +961,10 @@ hacek 'Z' = "Ž" hacek 'z' = "ž" hacek c = [c] +ogonek :: Char -> String +ogonek 'a' = "ą" +ogonek c = [c] + breve :: Char -> String breve 'A' = "Ă" breve 'a' = "ă" @@ -1286,6 +1290,7 @@ inlineCommands = M.fromList $ , ("c", option (str "c") $ try $ tok >>= accent cedilla) , ("v", option (str "v") $ try $ tok >>= accent hacek) , ("u", option (str "u") $ try $ tok >>= accent breve) + , ("k", option (str "k") $ try $ tok >>= accent ogonek) , ("i", lit "i") , ("\\", linebreak <$ (do inTableCell <- sInTableCell <$> getState guard $ not inTableCell |