From 283930efef50fbd108e3c90f072392050b1e8e56 Mon Sep 17 00:00:00 2001
From: cage <cage@invalid>
Date: Thu, 17 Feb 2022 19:01:48 +0100
Subject: [PATCH] - forced opening of TOC window when loading a net address as
 instructed from the command line (i.e. using the '-o' switch).

---
 src/main.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/main.lisp b/src/main.lisp
index 47286ea..e78b863 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -169,7 +169,9 @@ etc.) happened"
                              command-line:*module-file*)
                      :as-error t))))
     (if command-line:*net-address*
-        (ui:open-net-address command-line:*net-address*)
+        (progn
+          (gemini-page-toc:open-toc-window specials:*message-window*)
+          (ui:open-net-address command-line:*net-address*))
         (progn
           (let ((program-events:*process-events-immediately* t))
             (when command-line:*start-timeline*