@@ -961,6 +961,10 @@ hacek 'Z' = "Ž"
961961hacek 'z' = "ž"
962962hacek c = [c]
963963
964+ogonek :: Char -> String
965+ogonek 'a' = "ą"
966+ogonek c = [c]
967+
964968breve :: Char -> String
965969breve 'A' = "Ă"
966970breve 'a' = "ă"
@@ -1286,6 +1290,7 @@ inlineCommands = M.fromList $
12861290 , ("c", option (str "c") $ try $ tok >>= accent cedilla)
12871291 , ("v", option (str "v") $ try $ tok >>= accent hacek)
12881292 , ("u", option (str "u") $ try $ tok >>= accent breve)
1293+ , ("k", option (str "k") $ try $ tok >>= accent ogonek)
12891294 , ("i", lit "i")
12901295 , ("\\", linebreak <$ (do inTableCell <- sInTableCell <$> getState
12911296 guard $ not inTableCell