From 80505bc49077b69c9413dc60b7e7b876a8ddd99b Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Sat, 4 Feb 2012 19:31:01 -0800
Subject: LaTeX reader: support \. dot accent.

---
 src/Text/Pandoc/Readers/LaTeX.hs | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'src/Text')

diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs
index 6a3347c0f..ebfc7414c 100644
--- a/src/Text/Pandoc/Readers/LaTeX.hs
+++ b/src/Text/Pandoc/Readers/LaTeX.hs
@@ -342,6 +342,7 @@ inlineCommands = M.fromList
   , ("^", option (str "^") $ try $ tok >>= accent hat)
   , ("~", option (str "~") $ try $ tok >>= accent circ)
   , ("\"", option (str "\"") $ try $ tok >>= accent umlaut)
+  , (".", option (str ".") $ try $ tok >>= accent dot)
   , ("i", lit "i")
   , ("\\", linebreak <$ optional (bracketed inline *> optional sp))
   , (",", pure mempty)
@@ -500,6 +501,18 @@ umlaut 'o' = 'ö'
 umlaut 'u' = 'ü'
 umlaut c = c
 
+dot :: Char -> Char
+dot 'C' = 'Ċ'
+dot 'c' = 'ċ'
+dot 'E' = 'Ė'
+dot 'e' = 'ė'
+dot 'G' = 'Ġ'
+dot 'g' = 'ġ'
+dot 'I' = 'İ'
+dot 'Z' = 'Ż'
+dot 'z' = 'ż'
+dot c = c
+
 tok :: LP Inlines
 tok = try $ grouped inline <|> inlineCommand <|> str <$> (count 1 $ inlineChar)
 
-- 
cgit v1.2.3