FileConventions: implement the function

Implement DetectNotUsingKebabCaseInGitHubCIJobs function.

Author: tehraninasab

scripts/eofConvention.fsx

@@ -3,6 +3,7 @@
 open System.IO
 open System
 
+#r "nuget: YamlDotNet, Version=13.0.2"
 #load "../src/FileConventions/Helpers.fs"
 #load "../src/FileConventions/Library.fs"
 

scripts/mixedLineEndings.fsx

@@ -3,6 +3,7 @@
 open System
 open System.IO
 
+#r "nuget: YamlDotNet, Version=13.0.2"
 #load "../src/FileConventions/Library.fs"
 #load "../src/FileConventions/Helpers.fs"
 

scripts/shebangConvention.fsx

@@ -3,6 +3,7 @@
 open System
 open System.IO
 
+#r "nuget: YamlDotNet, Version=13.0.2"
 #load "../src/FileConventions/Library.fs"
 #load "../src/FileConventions/Helpers.fs"
 

scripts/unpinnedDotnetPackageVersions.fsx

@@ -3,6 +3,7 @@
 open System
 open System.IO
 
+#r "nuget: YamlDotNet, Version=13.0.2"
 #load "../src/FileConventions/Library.fs"
 #load "../src/FileConventions/Helpers.fs"
 

scripts/unpinnedDotnetToolInstallVersions.fsx

@@ -3,6 +3,7 @@
 open System
 open System.IO
 
+#r "nuget: YamlDotNet, Version=13.0.2"
 #load "../src/FileConventions/Library.fs"
 #load "../src/FileConventions/Helpers.fs"
 

scripts/unpinnedGitHubActionsImageVersions.fsx

@@ -3,6 +3,7 @@
 open System
 open System.IO
 
+#r "nuget: YamlDotNet, Version=13.0.2"
 #load "../src/FileConventions/Library.fs"
 #load "../src/FileConventions/Helpers.fs"
 

scripts/unpinnedNugetPackageReferenceVersions.fsx

@@ -3,6 +3,7 @@
 open System
 open System.IO
 
+#r "nuget: YamlDotNet, Version=13.0.2"
 #load "../src/FileConventions/Library.fs"
 #load "../src/FileConventions/Helpers.fs"
 

src/FileConventions/FileConventions.fsproj

@@ -10,4 +10,8 @@
     <Compile Include="Helpers.fs" />
   </ItemGroup>
 
+  <ItemGroup>
+    <PackageReference Include="YamlDotNet" Version="13.0.2" />
+  </ItemGroup>
+
 </Project>

src/FileConventions/Library.fs

@@ -5,6 +5,9 @@ open System.IO
 open System.Linq
 open System.Text.RegularExpressions
 
+open YamlDotNet
+open YamlDotNet.RepresentationModel
+
 let HasCorrectShebang(fileInfo: FileInfo) =
     let fileText = File.ReadLines fileInfo.FullName
 
@@ -130,4 +133,49 @@ let DetectNotUsingSnakeCaseInScriptName(fileInfo: FileInfo) =
 
 let DetectNotUsingKebabCaseInGitHubCIJobs(fileInfo: FileInfo) =
     assert (fileInfo.FullName.EndsWith ".yml")
-    false
+
+    let read yaml =
+        use reader = new StringReader(yaml)
+        let stream = YamlStream()
+        stream.Load(reader)
+        stream.Documents
+
+    let doc = read(File.ReadAllText fileInfo.FullName)
+
+    let ymlNode = doc.[0].RootNode
+
+    // Borrowed from https://stackoverflow.com/questions/46697298/whats-the-best-way-to-parse-yaml-in-f-on-net-core
+    let getMapping(ymlNode: YamlNode) =
+        let node = ymlNode :?> YamlMappingNode
+
+        let mapping =
+            node.Children
+            |> Seq.map(fun kvp ->
+                let keyNode = kvp.Key :?> YamlScalarNode
+                keyNode.Value, kvp.Value
+            )
+            |> Map.ofSeq
+
+        mapping
+
+    let jobNames =
+        match ymlNode.NodeType with
+        | YamlNodeType.Mapping ->
+            let mapping = getMapping ymlNode
+            let maybeJobs = mapping.TryFind "jobs"
+
+            match maybeJobs with
+            | Some jobs ->
+                let mapping = getMapping jobs
+                (mapping |> Map.toSeq |> Seq.map fst)
+            | None -> Seq.empty
+        | _ -> Seq.empty
+
+    jobNames
+    |> Seq.map(fun jobName ->
+        let isKebabCase =
+            jobName.ToLower() = jobName && not(jobName.Contains("_"))
+
+        isKebabCase
+    )
+    |> Seq.contains false