@@ -415,6 +415,7 @@ inlineCommands = M.fromList $
415415 , (".", option (str ".") $ try $ tok >>= accent dot)
416416 , ("=", option (str "=") $ try $ tok >>= accent macron)
417417 , ("c", option (str "c") $ try $ tok >>= accent cedilla)
418+ , ("v", option (str "v") $ try $ tok >>= accent hacek)
418419 , ("i", lit "i")
419420 , ("\\", linebreak <$ (optional (bracketed inline) *> optional sp))
420421 , (",", pure mempty)
@@ -671,6 +672,42 @@ cedilla 's' = 'ş'
671672cedilla 'S' = 'Ş'
672673cedilla c = c
673674
675+hacek :: Char -> Char
676+hacek 'A' = 'Ǎ'
677+hacek 'a' = 'ǎ'
678+hacek 'C' = 'Č'
679+hacek 'c' = 'č'
680+hacek 'D' = 'Ď'
681+hacek 'd' = 'ď'
682+hacek 'E' = 'Ě'
683+hacek 'e' = 'ě'
684+hacek 'G' = 'Ǧ'
685+hacek 'g' = 'ǧ'
686+hacek 'H' = 'Ȟ'
687+hacek 'h' = 'ȟ'
688+hacek 'I' = 'Ǐ'
689+hacek 'i' = 'ǐ'
690+hacek 'j' = 'ǰ'
691+hacek 'K' = 'Ǩ'
692+hacek 'k' = 'ǩ'
693+hacek 'L' = 'Ľ'
694+hacek 'l' = 'ľ'
695+hacek 'N' = 'Ň'
696+hacek 'n' = 'ň'
697+hacek 'O' = 'Ǒ'
698+hacek 'o' = 'ǒ'
699+hacek 'R' = 'Ř'
700+hacek 'r' = 'ř'
701+hacek 'S' = 'Š'
702+hacek 's' = 'š'
703+hacek 'T' = 'Ť'
704+hacek 't' = 'ť'
705+hacek 'U' = 'Ǔ'
706+hacek 'u' = 'ǔ'
707+hacek 'Z' = 'Ž'
708+hacek 'z' = 'ž'
709+hacek c = c
710+
674711tok :: LP Inlines
675712tok = try $ grouped inline <|> inlineCommand <|> str <$> (count 1 $ inlineChar)
676713