From ce9aa8e47ac9905deb75c25ef32e8ad3a022d33d Mon Sep 17 00:00:00 2001
From: cage <cage@invalid>
Date: Sun, 13 Oct 2024 13:06:32 +0200
Subject: [PATCH] - added commands to close the gopher window.

---
 doc/tinmop.man | 9 +++++++++
 doc/tinmop.org | 3 +++
 etc/init.lisp  | 9 +++++++++
 3 files changed, 21 insertions(+)

diff --git a/doc/tinmop.man b/doc/tinmop.man
index d8069a1..279b1a6 100644
--- a/doc/tinmop.man
+++ b/doc/tinmop.man
@@ -1420,6 +1420,15 @@ file-explorer-go-up
 file-explorer-expand-path
 .SS "Gopher window"
 .TP
+\fBC-g\fP
+close-gopher-window
+.TP
+\fBC-q\fP
+close-gopher-window
+.TP
+\fBq  \fP
+close-gopher-window
+.TP
 \fBC-J (key \fIenter\fP)  \fP
 gopher-window:open-menu-link
 .TP
diff --git a/doc/tinmop.org b/doc/tinmop.org
index 58c4b24..6407fa7 100644
--- a/doc/tinmop.org
+++ b/doc/tinmop.org
@@ -712,6 +712,9 @@
 
 ** Gopher window
 
+- C-g :: close-gopher-window
+- C-q :: close-gopher-window
+- q   :: close-gopher-window
 - C-J (key /enter/)   :: gopher-window:open-menu-link
 - C-b a :: bookmark-gopher-page
 - C-b d :: delete-gemini-bookmark
diff --git a/etc/init.lisp b/etc/init.lisp
index 464a3ee..c481d49 100644
--- a/etc/init.lisp
+++ b/etc/init.lisp
@@ -834,6 +834,15 @@
 
 ;; gopher viewer keymap
 
+(defun close-gopher-window ()
+  (ui-goodies::close-window-and-return-to-threads specials:*gopher-window*))
+
+(define-key "C-g"       #'close-gopher-window                        *gopher-keymap*)
+
+(define-key "C-q"       #'close-gopher-window                        *gopher-keymap*)
+
+(define-key "q"         #'close-gopher-window                        *gopher-keymap*)
+
 (define-key "C-J"       #'gopher-window:open-menu-link               *gopher-keymap*)
 
 (define-key "C-b a"     #'bookmark-gopher-page                       *gopher-keymap*)