diff options
| author | Marc Coquand <marc@mccd.space> | 2024-05-18 09:56:05 -0500 |
|---|---|---|
| committer | Marc Coquand <marc@mccd.space> | 2024-05-18 09:56:05 -0500 |
| commit | 2344fd375cf8b3cf0efba8177d3794523fae9a80 (patch) | |
| tree | da480822a3f36855a6ea56d4ea1533d185567d91 /lib/stitched_article.ml | |
| parent | 50ca4e102ffb3219e9ad22b717696dee9d0f4bd6 (diff) | |
| download | stitch-2344fd375cf8b3cf0efba8177d3794523fae9a80.tar.gz stitch-2344fd375cf8b3cf0efba8177d3794523fae9a80.tar.bz2 stitch-2344fd375cf8b3cf0efba8177d3794523fae9a80.zip | |
Update keybindings
Diffstat (limited to '')
| -rw-r--r-- | lib/stitched_article.ml | 4 |
1 files changed, 2 insertions, 2 deletions
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 = "" |