[parsing] Make EmojiCodeNode parser match EmojiService.CustomEmojiRegex

This commit is contained in:
Laura Hausmann 2024-04-28 00:22:56 +02:00
parent ca56b93524
commit 8828c20b71
No known key found for this signature in database
GPG key ID: D044E84C5BE01605

View file

@ -214,7 +214,7 @@ module private MfmParser =
|>> fun f -> MfmMathBlockNode(f) :> MfmNode |>> fun f -> MfmMathBlockNode(f) :> MfmNode
let emojiCodeNode = let emojiCodeNode =
skipChar ':' >>. manyCharsTill letter (skipChar ':') skipChar ':' >>. manyCharsTill (satisfy isAsciiLetter <|> anyOf "+-_") (skipChar ':')
|>> fun e -> MfmEmojiCodeNode(e) :> MfmNode |>> fun e -> MfmEmojiCodeNode(e) :> MfmNode
let plainNode = let plainNode =