146a107 · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

LaTeX reader: support `\k` ogonek accent.

146a107John MacFarlane9 years ago

src/Text/Pandoc/Readers/LaTeX.hs+5

@@ -961,6 +961,10 @@ hacek 'Z' = "Ž"

961hacek 'z' = "ž"

962hacek c = [c]

963

964+ogonek :: Char -> String

965+ogonek 'a' = "ą"

966+ogonek c = [c]

967+

964breve :: Char -> String

968breve :: Char -> String

965breve 'A' = "Ă"

969breve 'A' = "Ă"

966breve 'a' = "ă"

970breve 'a' = "ă"

@@ -1286,6 +1290,7 @@ inlineCommands = M.fromList $

1286 , ("c", option (str "c") $ try $ tok >>= accent cedilla)

1290 , ("c", option (str "c") $ try $ tok >>= accent cedilla)

1287 , ("v", option (str "v") $ try $ tok >>= accent hacek)

1291 , ("v", option (str "v") $ try $ tok >>= accent hacek)

1288 , ("u", option (str "u") $ try $ tok >>= accent breve)

1292 , ("u", option (str "u") $ try $ tok >>= accent breve)

1293+ , ("k", option (str "k") $ try $ tok >>= accent ogonek)

1289 , ("i", lit "i")

1294 , ("i", lit "i")

1290 , ("\\", linebreak <$ (do inTableCell <- sInTableCell <$> getState

1295 , ("\\", linebreak <$ (do inTableCell <- sInTableCell <$> getState

1291 guard $ not inTableCell

1296 guard $ not inTableCell