Add [YANKED] tag support

src/Ionide.KeepAChangelog/Library.fs

@@ -225,20 +225,26 @@ module Parser =
 
         attempt dmyDots <|> ymdDashes
 
+    let pYanked: Parser<_> =
+        opt (pstring "[YANKED]")
+        |>> function
+            | None -> false
+            | Some _ -> true
 
     let pVersion = mdUrl pSemver <|> pSemver
 
     let pRelease: Parser<Release> =
         let vPart = skipString "##" >>. spaces1 >>. pVersion
         let middle = spaces1 .>> pchar '-' .>> spaces1
-        let date = pDate .>> skipRestOfLine true
+        let date = pDate
+        let yanked = opt spaces1 >>. pYanked
         let content = choice [ pData; pNonStructuredData ]
 
-        pipe5 vPart middle date (opt (many newline)) (opt content) (fun v _ date _ data ->
+        pipe6 vPart middle date yanked (opt (many newline)) (opt content) (fun v _ date yanked _ data ->
             { Version = v
               Date = date
               Data = data
-              IsYanked = false })
+              IsYanked = yanked })
 
     let pChangeLogs: Parser<Changelogs, unit> =
         let unreleased =

test/Ionide.KeepAChangelog.Test/Program.fs

@@ -111,6 +111,22 @@ let sample1ReleaseExpected =
         IsYanked = false
     }
 
+let yankedRelease = normalizeNewline """## [0.3.1] - 8.1.2022 [YANKED]
+
+### Added
+
+- Add XmlDocs to the generated package
+
+"""
+
+let yankedReleaseExpected =
+    {
+        Version = SemanticVersion.Parse "0.3.1"
+        Date = DateTime(2022, 1, 8)
+        Data = Some { ChangelogData.Default with Added = "- Add XmlDocs to the generated package\n\n" }
+        IsYanked = true
+    }
+
 let sample = normalizeNewline """# Changelog
 All notable changes to this project will be documented in this file.
 
@@ -211,6 +227,7 @@ let parsingExamples = testList "parsing examples" [
     runSuccess "header and unreleased" (Parser.pHeader >>. Parser.pUnreleased) headerAndUnreleased None
     runSuccess "release" Parser.pRelease singleRelease singleReleaseExpected
     runSuccess "sample 1 release" Parser.pRelease sample1Release sample1ReleaseExpected
+    runSuccess "yanked release" Parser.pRelease yankedRelease yankedReleaseExpected
     runSuccess
         "header and unreleased and released"
         (Parser.pHeader >>. Parser.pUnreleased