Implement PluginMethod for more methods

Author: fendor

hls-plugin-api/src/Ide/Types.hs

@@ -218,20 +218,33 @@ pluginResponsible uri pluginDesc
       mfp = uriToFilePath uri
 
 instance PluginMethod TextDocumentDefinition where
-  pluginEnabled = undefined
-  combineResponses = undefined
+  pluginEnabled _ msgParams pluginDesc _ =
+    pluginResponsible uri pluginDesc
+    where
+      uri = msgParams ^. J.textDocument . J.uri
+  combineResponses _ _ _ _ (x :| _) = x
+
 instance PluginMethod TextDocumentTypeDefinition where
-  pluginEnabled = undefined
-  combineResponses = undefined
+  pluginEnabled _ msgParams pluginDesc _ =
+    pluginResponsible uri pluginDesc
+    where
+      uri = msgParams ^. J.textDocument . J.uri
+  combineResponses _ _ _ _ (x :| _) = x
+
 instance PluginMethod TextDocumentDocumentHighlight where
-  pluginEnabled = undefined
-  combineResponses = undefined
+  pluginEnabled _ msgParams pluginDesc _ =
+    pluginResponsible uri pluginDesc
+    where
+      uri = msgParams ^. J.textDocument . J.uri
+
 instance PluginMethod TextDocumentReferences where
-  pluginEnabled = undefined
-  combineResponses = undefined
+  pluginEnabled _ msgParams pluginDesc _ =
+    pluginResponsible uri pluginDesc
+    where
+      uri = msgParams ^. J.textDocument . J.uri
+
 instance PluginMethod WorkspaceSymbol where
-  pluginEnabled = undefined
-  combineResponses = undefined
+  pluginEnabled _ _ _ _ = True
 
 instance PluginMethod TextDocumentCodeLens where
   pluginEnabled _ msgParams pluginDesc config =