Added rule for Lists

Author: gaurav-nelson

.vale/fixtures/RedHat/Lists/.vale.ini

@@ -0,0 +1,5 @@
+; Vale configuration file to test the `Lists` rule
+StylesPath = ../../../styles
+MinAlertLevel = suggestion
+[*.adoc]
+RedHat.Lists = YES

.vale/fixtures/RedHat/Lists/testinvalid.adoc

@@ -0,0 +1,5 @@
+Remove the cover:
+
+- Loosen the captive screws on the side of the cover.
+- Slide the cover toward the back of the computer until the cover clicks
+- Lift the cover straight up

.vale/fixtures/RedHat/Lists/testvalid.adoc

@@ -0,0 +1,5 @@
+Remove the cover:
+
+* Loosen the captive screws on the side of the cover.
+* Slide the cover toward the back of the computer until the cover clicks.
+* Lift the cover straight up.

.vale/styles/RedHat/Lists.yml

@@ -0,0 +1,34 @@
+---
+extends: script
+message: "Write lists so that all or none of the items start with complete sentences. If list items comprise only complete sentences, include a period after each sentence. Except in definition lists, do not include any end punctuation if list items comprise only sentence fragments."
+link: https://tengolang.com/
+# The unprocessed file contents.
+#
+# We need this to access list item markup.
+scope: raw
+script: |
+  text := import("text")
+  matches := []
+  pattern := "[.*-]\\s+(.*)"
+  // Define a function to check if a string is a complete sentence
+  is_complete_sentence := func(s string) bool {
+    // A complete sentence has a capital letter at the beginning and a period at the end
+    return text.has_prefix(s, text.to_upper(text.slice(s, 0, 1))) && text.has_suffix(s, ".")
+  }
+  // Loop through each line of the document
+  for line in text.split(document, "\n") {
+    // Check if the line matches the pattern
+    match := text.re_find(pattern, line)
+    if match != undefined {
+      // Extract the list item from the match
+      item := match[1]
+      // Check if the item is a complete sentence
+      if is_complete_sentence(item) {
+        // If yes, do nothing
+      } else {
+        // If no, add the match to the matches array
+        start := text.index(scope, line)
+        matches = append(matches, {begin: start, end: start + len(line)})
+      }
+    }
+  }