Show HTML pages in a task view beside the transcript

mac/Sources/Byre/Startup.swift

@@ -172,6 +172,7 @@ final class Connection {
     let origin: URL
     let overlays = Overlays()
     let forwards: Forwards
+    let pages: Pages
     var phase: Phase = .starting
     @ObservationIgnored private var stopped = false
     @ObservationIgnored private var restarting = false
@@ -179,6 +180,7 @@ final class Connection {
     init(origin: URL) {
         self.origin = origin
         forwards = Forwards(host: origin.host()!)
+        pages = Pages(api: API(origin: origin))
         Task {
             await start()
         }
@@ -194,6 +196,7 @@ final class Connection {
     func stop() async {
         stopped = true
         forwards.closeAll()
+        pages.close()
         if let store {
             await store.stop()
         }
@@ -228,7 +231,7 @@ final class Connection {
     }
 
     private func attempt(_ old: Store?) async -> Bool {
-        let store = Store(api: API(origin: origin), images: old?.images ?? ImageDrafts(), forwards: forwards)
+        let store = Store(api: API(origin: origin), images: old?.images ?? ImageDrafts(), forwards: forwards, pages: pages)
         do {
             let status = try await store.api.client.getStatus().ok.body.json
             async let me: Void = store.loadMe()