@@ -965,6 +965,15 @@ hacek c = [c]
965965
966966ogonek :: Char -> String
967967ogonek 'a' = "ą"
968+ogonek 'e' = "ę"
969+ogonek 'o' = "ǫ"
970+ogonek 'i' = "į"
971+ogonek 'u' = "ų"
972+ogonek 'A' = "Ą"
973+ogonek 'E' = "Ę"
974+ogonek 'I' = "Į"
975+ogonek 'O' = "Ǫ"
976+ogonek 'U' = "Ų"
968977ogonek c = [c]
969978
970979breve :: Char -> String
@@ -1293,6 +1302,7 @@ inlineCommands = M.fromList $
12931302 , ("v", accent 'ˇ' hacek)
12941303 , ("u", accent '\774' breve)
12951304 , ("k", accent '\808' ogonek)
1305+ , ("textogonekcentered", accent '\808' ogonek)
12961306 , ("i", lit "i")
12971307 , ("\\", linebreak <$ (do inTableCell <- sInTableCell <$> getState
12981308 guard $ not inTableCell