aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorScott Morrison <scott@tqft.net>2013-08-16 10:03:54 +1000
committerScott Morrison <scott@tqft.net>2013-08-16 10:03:54 +1000
commitc45bd6d468b272a2737dcc2a3c9f4afaebf37494 (patch)
tree41fcc3b3c11223770eaadb8997bda4e41b62005c
parent5af0de23cc60ab02b351e075992f6a936acdf19e (diff)
downloadpandoc-c45bd6d468b272a2737dcc2a3c9f4afaebf37494.tar.gz
adding support for breve accents via \u{} while reading LaTeX
-rw-r--r--src/Text/Pandoc/Readers/LaTeX.hs16
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)