@@ -523,6 +523,7 @@ inlineCommands = M.fromList $
523523 , ("copyright", lit "©")
524524 , ("textasciicircum", lit "^")
525525 , ("textasciitilde", lit "~")
526+ , ("H", try $ tok >>= accent hungarumlaut)
526527 , ("`", option (str "`") $ try $ tok >>= accent grave)
527528 , ("'", option (str "'") $ try $ tok >>= accent acute)
528529 , ("^", option (str "^") $ try $ tok >>= accent circ)
@@ -762,6 +763,21 @@ umlaut 'o' = "ö"
762763umlaut 'u' = "ü"
763764umlaut c = [c]
764765
766+hungarumlaut :: Char -> String
767+hungarumlaut 'A' = "A̋"
768+hungarumlaut 'E' = "E̋"
769+hungarumlaut 'I' = "I̋"
770+hungarumlaut 'O' = "Ő"
771+hungarumlaut 'U' = "Ű"
772+hungarumlaut 'Y' = "ӳ"
773+hungarumlaut 'a' = "a̋"
774+hungarumlaut 'e' = "e̋"
775+hungarumlaut 'i' = "i̋"
776+hungarumlaut 'o' = "ő"
777+hungarumlaut 'u' = "ű"
778+hungarumlaut 'y' = "ӳ"
779+hungarumlaut c = [c]
780+
765781dot :: Char -> String
766782dot 'C' = "Ċ"
767783dot 'c' = "ċ"