From 2344fd375cf8b3cf0efba8177d3794523fae9a80 Mon Sep 17 00:00:00 2001
From: Marc Coquand <marc@mccd.space>
Date: Sat, 18 May 2024 09:56:05 -0500
Subject: Update keybindings

---
 lib/stitched_article.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lib/stitched_article.ml')

diff --git a/lib/stitched_article.ml b/lib/stitched_article.ml
index f42812f..d512b39 100644
--- a/lib/stitched_article.ml
+++ b/lib/stitched_article.ml
@@ -52,12 +52,12 @@ let rec render
      | `Down -> scroll_down ()
      | `Up -> scroll_up ())
   | `Resize _ -> render t state
-  | `Key (`ASCII 's', []) -> go_back ()
+  | `Key (`ASCII 'f', []) -> go_back ()
   | `Mouse ((`Press _ | `Drag), (_, y), _) ->
     render t { state with pos = 0, min y content_length }
   | `Key (`ASCII 'j', []) | `Key (`ASCII 'N', [ `Ctrl ]) -> scroll_down ()
   | `Key (`ASCII 'k', []) | `Key (`ASCII 'P', [ `Ctrl ]) -> scroll_up ()
-  | `Key (`ASCII 'r', []) ->
+  | `Key (`ASCII 's', []) ->
     let (input_state : Input_prompt.state) =
       { screen = img
       ; user_input = ""
-- 
cgit v1.2.3