notfire/Iceshrimp.NET
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[parsing] Code cleanup

Browse source
This commit is contained in:
Laura Hausmann 2024-09-07 02:12:35 +02:00
parent 37707a0712
commit 5889f3cd26
No known key found for this signature in database
GPG key ID: D044E84C5BE01605
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
Iceshrimp.Parsing/Mfm.fs
View file

@ -302,9 +302,13 @@ module private MfmParser =
let quoteNode =
previousCharSatisfiesNot isNotNewline
>>. many1 (pchar '>' >>. (opt (pchar ' ')) >>. (many1Till inlineNode (skipNewline <|> eof)))
.>> opt (attempt (skipNewline >>. (notFollowedBy <| pchar '>')))
.>>. ((opt (attempt (skipNewline >>. (followedBy <| pchar '>')))) .>>. opt eof)
>>. many1 (
pchar '>'
>>. (opt <| pchar ' ')
>>. (many1Till inlineNode (skipNewline <|> eof))
)
.>> (opt <| attempt (skipNewline >>. (notFollowedBy <| pchar '>')))
.>>. (opt <| attempt (skipNewline >>. (followedBy <| pchar '>')) .>>. opt eof)
|>> fun (q, (followedByQuote, followedByEof)) ->
MfmQuoteNode(
List.collect (fun e -> e @ [ (MfmCharNode('\n') :> MfmInlineNode) ]) q