Add completions for autogen-modules and autogen-includes in cabal file stanzas (#4526)

This adds completions for the `autogen-modules:` and `autogen-includes:` fields across
library, executable, test-suite, and benchmark stanzas in Cabal files.

Author: Sid1005

plugins/hls-cabal-plugin/src/Ide/Plugin/Cabal/Completion/Data.hs

@@ -90,31 +90,39 @@ libraryFields =
       ("visibility:", constantCompleter ["private", "public"]),
       ("reexported-modules:", noopCompleter),
       ("signatures:", noopCompleter),
-      ("other-modules:", modulesCompleter sourceDirsExtractionLibrary)
+      ("other-modules:", modulesCompleter sourceDirsExtractionLibrary),
+      ("autogen-includes:", filePathCompleter),
+      ("autogen-modules:", modulesCompleter sourceDirsExtractionLibrary)
+
     ]
 
 executableFields :: Map KeyWordName Completer
 executableFields =
   Map.fromList
     [ ("main-is:", mainIsCompleter sourceDirsExtractionExecutable),
       ("scope:", constantCompleter ["public", "private"]),
-      ("other-modules:", modulesCompleter sourceDirsExtractionExecutable)
+      ("other-modules:", modulesCompleter sourceDirsExtractionExecutable),
+      ("autogen-modules:", modulesCompleter sourceDirsExtractionExecutable)
     ]
 
 testSuiteFields :: Map KeyWordName Completer
 testSuiteFields =
   Map.fromList
     [ ("type:", constantCompleter ["exitcode-stdio-1.0", "detailed-0.9"]),
       ("main-is:", mainIsCompleter sourceDirsExtractionTestSuite),
-      ("other-modules:", modulesCompleter sourceDirsExtractionTestSuite)
+      ("other-modules:", modulesCompleter sourceDirsExtractionTestSuite),
+      ("autogen-modules:", modulesCompleter sourceDirsExtractionTestSuite),
+      ("autogen-includes:", filePathCompleter)
     ]
 
 benchmarkFields :: Map KeyWordName Completer
 benchmarkFields =
   Map.fromList
     [ ("type:", noopCompleter),
       ("main-is:", mainIsCompleter sourceDirsExtractionBenchmark),
-      ("other-modules:", modulesCompleter sourceDirsExtractionBenchmark)
+      ("other-modules:", modulesCompleter sourceDirsExtractionBenchmark),
+      ("autogen-modules:", modulesCompleter sourceDirsExtractionBenchmark),
+      ("autogen-includes:", filePathCompleter)
     ]
 
 foreignLibraryFields :: Map KeyWordName Completer

plugins/hls-cabal-plugin/test/Completer.hs

@@ -40,9 +40,51 @@ completerTests =
       completionHelperTests,
       filePathExposedModulesTests,
       exposedModuleCompleterTests,
-      importCompleterTests
+      importCompleterTests,
+      autogenModulesCompletionTests
     ]
 
+autogenModulesCompletionTests :: TestTree
+autogenModulesCompletionTests =
+  testGroup
+    "Autogen modules completion"
+    [ runCabalTestCaseSession "Completes autogen-modules in library stanza" "" $ do
+        doc <- openDoc "cabal-files/autogen-completion.cabal" "cabal"
+        completions <- getCompletions doc (Position 5 4)
+        liftIO $ do
+          print (map (^. L.label) completions)
+          assertBool "autogen-modules: should be in completions" $
+            any (\c -> T.isInfixOf "autogen-modules:" (c ^. L.label)) completions
+          assertBool "autogen-includes: should be in completions" $
+            any (\c -> T.isInfixOf "autogen-includes:" (c ^. L.label)) completions
+    
+    , runCabalTestCaseSession "Completes autogen-modules in executable stanza" "" $ do
+        doc <- openDoc "cabal-files/autogen-completion-exe.cabal" "cabal"
+        completions <- getCompletions doc (Position 5 4)
+        liftIO $ do
+          assertBool "autogen-modules: should be in completions" $
+            any (\c -> T.isInfixOf "autogen-modules:" (c ^. L.label)) completions
+    
+    , runCabalTestCaseSession "Completes autogen fields in test-suite stanza" "" $ do
+        doc <- openDoc "cabal-files/autogen-completion-test.cabal" "cabal"
+        completions <- getCompletions doc (Position 6 4)
+        liftIO $ do
+          assertBool "autogen-modules: should be in completions" $
+            any (\c -> T.isInfixOf "autogen-modules:" (c ^. L.label)) completions
+          assertBool "autogen-includes: should be in completions" $
+            any (\c -> T.isInfixOf "autogen-includes:" (c ^. L.label)) completions
+    
+    , runCabalTestCaseSession "Completes autogen fields in benchmark stanza" "" $ do
+        doc <- openDoc "cabal-files/autogen-completion-bench.cabal" "cabal"
+        completions <- getCompletions doc (Position 6 4)
+        liftIO $ do
+          assertBool "autogen-modules: should be in completions" $
+            any (\c -> T.isInfixOf "autogen-modules:" (c ^. L.label)) completions
+          assertBool "autogen-includes: should be in completions" $
+            any (\c -> T.isInfixOf "autogen-includes:" (c ^. L.label)) completions
+    ]
+
+
 basicCompleterTests :: TestTree
 basicCompleterTests =
   testGroup

plugins/hls-cabal-plugin/test/testdata/cabal-files/autogen-completion-bench.cabal

@@ -0,0 +1,8 @@
+cabal-version: 3.2
+name: test-project
+
+benchmark bench
+  type: exitcode-stdio-1.0
+  main-is: BenchMain.hs
+  autogen
+

plugins/hls-cabal-plugin/test/testdata/cabal-files/autogen-completion-exe.cabal

@@ -0,0 +1,7 @@
+cabal-version: 3.2
+name: test-project
+
+executable main
+  main-is: Main.hs
+  autogen
+

plugins/hls-cabal-plugin/test/testdata/cabal-files/autogen-completion-test.cabal

@@ -0,0 +1,8 @@
+cabal-version: 3.2
+name: test-project
+
+test-suite test
+  type: exitcode-stdio-1.0
+  main-is: TestMain.hs
+  autogen
+

plugins/hls-cabal-plugin/test/testdata/cabal-files/autogen-completion.cabal

@@ -0,0 +1,6 @@
+cabal-version: 3.2
+name: test-project
+
+library
+  exposed-modules: SomeModule
+  autogen