diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2013-08-15 17:23:26 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2013-08-15 17:23:26 -0700 |
| commit | e21d548948484d5ba07f00f8326907e06f2c274d (patch) | |
| tree | c7fb845106bcc6a8f4948961d2064ffa821092e3 /src | |
| parent | 172f020bc5b59950afd29411b7d80200d0b38e83 (diff) | |
| parent | c45bd6d468b272a2737dcc2a3c9f4afaebf37494 (diff) | |
| download | pandoc-e21d548948484d5ba07f00f8326907e06f2c274d.tar.gz | |
Merge branch 'master' of https://github.com/semorrison/pandoc
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index 71e1e0ac2..7c370dd47 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -416,6 +416,7 @@ inlineCommands = M.fromList $ , ("=", option (str "=") $ try $ tok >>= accent macron) , ("c", option (str "c") $ try $ tok >>= accent cedilla) , ("v", option (str "v") $ try $ tok >>= accent hacek) + , ("u", option (str "u") $ try $ tok >>= accent breve) , ("i", lit "i") , ("\\", linebreak <$ (optional (bracketed inline) *> optional sp)) , (",", pure mempty) @@ -708,6 +709,21 @@ hacek 'Z' = 'Ž' hacek 'z' = 'ž' hacek c = c +breve :: Char -> Char +breve 'A' = 'Ă' +breve 'a' = 'ă' +breve 'E' = 'Ĕ' +breve 'e' = 'ĕ' +breve 'G' = 'Ğ' +breve 'g' = 'ğ' +breve 'I' = 'Ĭ' +breve 'i' = 'ĭ' +breve 'O' = 'Ŏ' +breve 'o' = 'ŏ' +breve 'U' = 'Ŭ' +breve 'u' = 'ŭ' +breve c = c + tok :: LP Inlines tok = try $ grouped inline <|> inlineCommand <|> str <$> (count 1 $ inlineChar) |