From 47892663040f7e295cc4052438cf804b040f0389 Mon Sep 17 00:00:00 2001 From: Marc Coquand Date: Wed, 15 May 2024 10:45:54 -0500 Subject: Add TODOs, update help, rebind keys --- lib/stitched_article.ml | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'lib/stitched_article.ml') diff --git a/lib/stitched_article.ml b/lib/stitched_article.ml index c5c31d3..ceedc46 100644 --- a/lib/stitched_article.ml +++ b/lib/stitched_article.ml @@ -28,6 +28,7 @@ let render_line size_x y scroll (el : Grep.display_type) i = else I.strf "%s" el |> I.pad ~l:0 ~t:i +(* TODO: Use grep -l to filter notes by regexp and rerender those files*) let rec render t ({ pos; scroll; content_pretty; go_back; content } as state) = let size_x, size_y = Common.Term.size t in let x, y = pos in @@ -58,7 +59,7 @@ let rec render t ({ pos; scroll; content_pretty; go_back; content } as state) = | `Down -> scroll_down () | `Up -> scroll_up ()) | `Resize _ -> render t state - | `Key (`ASCII '@', []) -> go_back () + | `Key (`ASCII 's', []) -> 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 () -- cgit v1.2.3