wip: github links in stacks

Author: ph-fritsche

src/ui/cli/Error.tsx

@@ -4,6 +4,7 @@ import { useTester } from '../TesterContext'
 import { useSubscribers } from './useSubscribers'
 import { Text } from 'ink'
 import { Block, Line } from './Blocks'
+import { Link } from './Link'
 
 export function StackEntryText({
     entry,
@@ -16,7 +17,11 @@ export function StackEntryText({
     ], [entry])
     tester.resolveErrorStackEntry(entry)
 
-    return <Text color="redBright" dimColor>at {String(entry)}</Text>
+    const {url} = entry.resolved.get()
+
+    return url
+        ? <Link url={url}>{`at String(entry)`}</Link>
+        : <Text color="redBright" dimColor>at {String(entry)}</Text>
 }
 
 export function XErrorComponent({

src/ui/cli/Link.tsx

@@ -0,0 +1,32 @@
+import React from 'react'
+import { Text, TextProps } from 'ink'
+
+export function Link({
+    children,
+    url,
+    ...others
+}: TextProps & {
+    children: string
+    url: string
+}) {
+    return <Text {...others}>{ttyHyperlink(url, children)}</Text>
+}
+
+export function ttyHyperlink(
+    url: string,
+    text: string,
+) {
+    return [
+        OSC, '8;',
+        '', // params
+        ';',
+        url,
+        BEL,
+        text,
+        OSC, '8;;',
+        BEL,
+    ].join('')
+}
+
+const OSC = '\u001B]'
+const BEL = '\u0007'