@@ -342,6 +342,7 @@ inlineCommands = M.fromList
342342 , ("^", option (str "^") $ try $ tok >>= accent hat)
343343 , ("~", option (str "~") $ try $ tok >>= accent circ)
344344 , ("\"", option (str "\"") $ try $ tok >>= accent umlaut)
345+ , (".", option (str ".") $ try $ tok >>= accent dot)
345346 , ("i", lit "i")
346347 , ("\\", linebreak <$ optional (bracketed inline *> optional sp))
347348 , (",", pure mempty)
@@ -500,6 +501,18 @@ umlaut 'o' = 'ö'
500501umlaut 'u' = 'ü'
501502umlaut c = c
502503
504+dot :: Char -> Char
505+dot 'C' = 'Ċ'
506+dot 'c' = 'ċ'
507+dot 'E' = 'Ė'
508+dot 'e' = 'ė'
509+dot 'G' = 'Ġ'
510+dot 'g' = 'ġ'
511+dot 'I' = 'İ'
512+dot 'Z' = 'Ż'
513+dot 'z' = 'ż'
514+dot c = c
515+
503516tok :: LP Inlines
504517tok = try $ grouped inline <|> inlineCommand <|> str <$> (count 1 $ inlineChar)
505518