Perl Navigator server/src/hover.ts をいじって、前後の数行を表示してみる

gistfile1.txt

diff --git a/server/src/hover.ts b/server/src/hover.ts
index e469b56..dfb7e60 100644
--- a/server/src/hover.ts
+++ b/server/src/hover.ts
@@ -22,6 +22,20 @@ export function getHover(params: TextDocumentPositionParams, perlDoc: PerlDocume
     let hoverStr = buildHoverDoc(symbol, elem);
     if(!hoverStr) return; // Sometimes, there's nothing worth showing.
 
+    const BEFORE_CONTEXT_COUNT = 3;
+    const AFTER_CONTEXT_COUNT = 3;
+    const context = [
+      '----',
+      "\n",
+      '```perl',
+      txtDoc.getText({
+        start: { line: elem.line - BEFORE_CONTEXT_COUNT, character: 0 },
+        end: { line: elem.line + AFTER_CONTEXT_COUNT, character: 0 }
+      }),
+      '```',
+    ].join("\n");
+    hoverStr += "\n" + context;
+
     const documentation = {contents: hoverStr};