Add openSourceInHackage setting.

Author: pranaysashank

package.json

@@ -99,6 +99,12 @@
           "default": true,
           "description": "When opening 'Documentation' for external libraries, open in hackage by default. Set to false to instead open in vscode."
         },
+        "haskell.openSourceInHackage": {
+          "scope": "resource",
+          "type": "boolean",
+          "default": true,
+          "description": "When opening 'Source' for external libraries, open in hackage by default. Set to false to instead open in vscode."
+        },
         "haskell.trace.server": {
           "scope": "resource",
           "type": "string",

src/docsBrowser.ts

@@ -72,12 +72,8 @@ export namespace DocsBrowser {
   }
 
   // registers the browser in VSCode infrastructure
-  export function registerDocsBrowser(alwaysOpenInHackage: boolean): Disposable {
-    if (alwaysOpenInHackage) {
-      return commands.registerCommand('haskell.showDocumentation', openDocumentationOnHackage);
-    } else {
-      return commands.registerCommand('haskell.showDocumentation', showDocumentation);
-    }
+  export function registerDocsBrowser(): Disposable {
+    return commands.registerCommand('haskell.showDocumentation', showDocumentation);
   }
 
   async function openDocumentationOnHackage({
@@ -143,6 +139,8 @@ export namespace DocsBrowser {
   }
 
   function processLink(ms: MarkdownString | MarkedString): string | MarkdownString {
+    const openDocsInHackage = workspace.getConfiguration('haskell').get('openDocumentationInHackage');
+    const openSourceInHackage = workspace.getConfiguration('haskell').get('openSourceInHackage');
     function transform(s: string): string {
       return s.replace(
         /\[(.+)\]\((file:.+\/doc\/(?:.*html\/libraries\/)?([^\/]+)\/(?:.*\/)?(.+\.html#?.*))\)/gi,
@@ -151,15 +149,25 @@ export namespace DocsBrowser {
           if (title == 'Documentation') {
             hackageUri = `https://hackage.haskell.org/package/${packageName}/docs/${fileAndAnchor}`;
             const encoded = encodeURIComponent(JSON.stringify({ title, localPath, hackageUri }));
-            const cmd = 'command:haskell.showDocumentation?' + encoded;
+            let cmd: string;
+            if (openDocsInHackage) {
+              cmd = 'command:haskell.openDocumentationOnHackage?' + encoded;
+            } else {
+              cmd = 'commnad:haskell.showDocumentation?' + encoded;
+            }
             return `[${title}](${cmd})`;
           } else if (title == 'Source') {
             hackageUri = `https://hackage.haskell.org/package/${packageName}/docs/src/${fileAndAnchor.replace(
               /-/gi,
               '.'
             )}`;
             const encoded = encodeURIComponent(JSON.stringify({ title, localPath, hackageUri }));
-            const cmd = 'command:haskell.showDocumentation?' + encoded;
+            let cmd: string;
+            if (openSourceInHackage) {
+              cmd = 'command:haskell.openDocumentationOnHackage?' + encoded;
+            } else {
+              cmd = 'command:haskell.showDocumentation?' + encoded;
+            }
             return `[${title}](${cmd})`;
           } else {
             return s;

src/extension.ts

@@ -90,8 +90,7 @@ export async function activate(context: ExtensionContext) {
   context.subscriptions.push(ImportIdentifier.registerCommand());
 
   // Set up the documentation browser.
-  const openInHackage = workspace.getConfiguration('haskell').openDocumentationInHackage;
-  const docsDisposable = DocsBrowser.registerDocsBrowser(openInHackage);
+  const docsDisposable = DocsBrowser.registerDocsBrowser();
   context.subscriptions.push(docsDisposable);
 
   const openOnHackageDisposable = DocsBrowser.registerDocsOpenOnHackage();