Add applyrefact:applyAll command as hie.commands.applyall

Author: expipiplus1

package.json

@@ -184,6 +184,11 @@
         "command": "hie.commands.importIdentifier",
         "title": "Haskell: Import identifier",
         "description": "Imports a function or type based on a Hoogle search"
+      },
+      {
+        "command": "hie.commands.applyAll",
+        "title": "Haskell: Apply all refactorings",
+        "description": "Applies all hlint hints to the file"
       }
     ],
     "keybindings": [

src/extension.ts

@@ -7,6 +7,7 @@ import {
   ExtensionContext,
   OutputChannel,
   TextDocument,
+  TextEditor,
   Uri,
   window,
   workspace,
@@ -210,6 +211,7 @@ function activateHieNoCheck(context: ExtensionContext, folder: WorkspaceFolder,
     registerHiePointCommand('hie.commands.deleteDef', 'hare:deletedef', context);
     registerHiePointCommand('hie.commands.genApplicative', 'hare:genapplicative', context);
     registerHiePointCommand('hie.commands.caseSplit', 'ghcmod:casesplit', context);
+    registerHieFileCommand('hie.commands.applyAll', 'applyrefact:applyAll', context);
     hieCommandsRegistered = true;
   }
 
@@ -246,18 +248,42 @@ async function isHieInstalled(): Promise<boolean> {
 }
 
 /*
- * Create an editor command that calls an action on the active LSP server.
+ * Create an editor command that calls an action on the active LSP server at a particular place in the text.
  */
 async function registerHiePointCommand(name: string, command: string, context: ExtensionContext) {
-  const editorCmd = commands.registerTextEditorCommand(name, (editor, edit) => {
+  registerHieCommand(name, command, context, editor => {
+    return [
+      {
+        file: editor.document.uri.toString(),
+        pos: editor.selections[0].active
+      }
+    ];
+  });
+}
+
+/*
+ * Create an editor command that calls an action on the active LSP server for a file
+ */
+async function registerHieFileCommand(name: string, command: string, context: ExtensionContext) {
+  registerHieCommand(name, command, context, editor => {
+    return [editor.document.uri.toString()];
+  });
+}
+
+/*
+ * Create an editor command that calls an action on the active LSP server.
+ */
+async function registerHieCommand(
+  name: string,
+  command: string,
+  context: ExtensionContext,
+  getArgs: (editor: TextEditor) => any[]
+) {
+  const editorCmd = commands.registerTextEditorCommand(name, editor => {
+    let args = getArgs(editor);
     const cmd = {
       command,
-      arguments: [
-        {
-          file: editor.document.uri.toString(),
-          pos: editor.selections[0].active
-        }
-      ]
+      arguments: args
     };
     // Get the current file and workspace folder.
     const uri = editor.document.uri;