From cc161f1b320704c914a1e183f6a8c2f4863b7c20 Mon Sep 17 00:00:00 2001
From: Laura Hausmann <laura@hausmann.dev>
Date: Mon, 27 May 2024 11:33:23 +0200
Subject: [PATCH] [parsing] Support mentions of unicode usernames

---
 Iceshrimp.Parsing/Mfm.fs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/Iceshrimp.Parsing/Mfm.fs b/Iceshrimp.Parsing/Mfm.fs
index 4bedcd5a..2735d676 100644
--- a/Iceshrimp.Parsing/Mfm.fs
+++ b/Iceshrimp.Parsing/Mfm.fs
@@ -110,6 +110,7 @@ module private MfmParser =
     let isNotWhitespace c = Char.IsWhiteSpace c = false
 
     let isAsciiLetterOrNumber c = Char.IsAsciiLetter c || Char.IsDigit c
+    let isLetterOrNumber c = Char.IsLetterOrDigit c
 
     let (|CharNode|MfmNode|) (x: MfmNode) =
         if x :? MfmCharNode then
@@ -231,9 +232,9 @@ module private MfmParser =
         previousCharSatisfiesNot isNotWhitespace
         >>. skipString "@"
         >>. many1Chars (
-            satisfy isAsciiLetterOrNumber
+            satisfy isLetterOrNumber
             <|> pchar '_'
-            <|> attempt (anyOf ".-" .>> nextCharSatisfies isAsciiLetterOrNumber)
+            <|> attempt (anyOf ".-" .>> nextCharSatisfies isLetterOrNumber)
         )
         .>>. opt (skipChar '@' >>. domain)
         .>> (lookAhead