From 21214137ffbee11ec54c01a6dc0ef92053584e36 Mon Sep 17 00:00:00 2001
From: cage <cage@invalid>
Date: Sat, 28 Aug 2021 19:53:41 +0200
Subject: [PATCH] - added command to show bookmaks also to global keymap;

- switched to gemini keymap when opening a gemini page from memory.
---
 etc/init.lisp           | 2 ++
 src/program-events.lisp | 2 ++
 2 files changed, 4 insertions(+)

diff --git a/etc/init.lisp b/etc/init.lisp
index 605aeb2..4cc3faf 100644
--- a/etc/init.lisp
+++ b/etc/init.lisp
@@ -163,6 +163,8 @@
 
 (define-key "M-g g l"   #'open-gempub-library)
 
+(define-key "M-g g b s" #'display-bookmark)
+
 (define-key "M-right"   #'pass-focus-on-right)
 
 (define-key "M-left"    #'pass-focus-on-left)
diff --git a/src/program-events.lisp b/src/program-events.lisp
index accf419..27caa35 100644
--- a/src/program-events.lisp
+++ b/src/program-events.lisp
@@ -1040,6 +1040,8 @@
                                                       :comes-from-local-file local-path-p))
              (ir-text      (gemini-parser:sexp->text-rows parsed
                                                           gemini-client:*gemini-page-theme*)))
+        (setf (windows:keybindings window)
+              keybindings:*gemini-message-keymap*)
         (gemini-viewer:maybe-initialize-metadata window)
         (refresh-gemini-message-window links page-data ir-text nil)
         (ui:open-gemini-toc)