Add value completion for cabal-version

Author: Jana Chadt

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

@@ -288,7 +288,10 @@ completion _ide _ complParams = do
     result :: Maybe VFS.PosPrefixInfo -> VirtualFile -> J.List CompletionItem
     result Nothing _ = J.List []
     result (Just pfix) cnts
-      | pos ^. JL.line == 0 = J.List [buildCompletion (fst cabalVersionKeyword)]
+      | pos ^. JL.line == 0 = case traceShowId $ context of
+          Just (_, kw)
+            | KeyWord _ <- kw -> J.List $ map buildCompletion $ snd cabalVersionKeyword
+          _ -> J.List [buildCompletion (fst cabalVersionKeyword)]
       | Just ctx <- context  = J.List $ makeCompletionItems pfix (getCompletionsForContext ctx)
       | otherwise = J.List []
       where
@@ -328,7 +331,7 @@ getContext :: Position -> [T.Text] -> Maybe Context
 getContext pos ls =
   case lvlContext of
     TopLevel -> do
-      kwContext <- getKeyWordContext pos ls cabalKeywords
+      kwContext <- getKeyWordContext pos ls (uncurry Map.insert cabalVersionKeyword cabalKeywords)
       pure (TopLevel, kwContext)
     Stanza s ->
       case Map.lookup (traceShowId s) stanzaKeywordMap of
@@ -480,6 +483,16 @@ stanzaKeywordMap =
             ("lib-version-info:", []),
             ("lib-version-linux:", [])
           ]
+      ),
+      ( "flag",
+        Map.fromList
+          [ ("description:", []),
+            ("default:", ["True", "False"]),
+            ("manual:", ["False", "True"]),
+            ("lib-def-file:", []),
+            ("lib-version-info:", []),
+            ("lib-version-linux:", [])
+          ]
       )
     ]
   where
@@ -501,7 +514,27 @@ stanzaKeywordMap =
         ("ghcjs-prof-options:", []),
         ("ghcjs-shared-options:", []),
         ("includes:", []),
-        ("install-includes:", [])
+        ("install-includes:", []),
+        ("include-dirs:", []),
+        ("c-sources:", []),
+        ("cxx-sources:", []),
+        ("asm-sources:", []),
+        ("cmm-sources:", []),
+        ("js-sources:", []),
+        ("extra-libraries:", []),
+        ("extra-ghci-libraries:", []),
+        ("extra-bundled-libraries:", []),
+        ("extra-lib-dirs:", []),
+        ("cc-options:", []),
+        ("cpp-options:", []),
+        ("cxx-options:", []),
+        ("cmm-options:", []),
+        ("asm-options:", []),
+        ("ld-options:", []),
+        ("pkgconfig-depends:", []),
+        ("frameworks:", []),
+        ("extra-framework-dirs:", []),
+        ("mixins:", [])
       ]
 
 -- cabalFlagKeywords :: [(T.Text, T.Text)]