aboutsummaryrefslogtreecommitdiff
path: root/lib/todos.ml
diff options
context:
space:
mode:
Diffstat (limited to 'lib/todos.ml')
-rw-r--r--lib/todos.ml4
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/todos.ml b/lib/todos.ml
index 907538c..4e52cd4 100644
--- a/lib/todos.ml
+++ b/lib/todos.ml
@@ -8,7 +8,7 @@ type state =
; scroll : int
; content : (string * string) array
; content_pretty : string array
- ; goto_headlines : unit -> unit
+ ; goto_headlines : state -> unit
}
let init ~goto_headlines ~content ~content_pretty =
@@ -75,7 +75,7 @@ let rec render t ({ pos; scroll; content; content_pretty; goto_headlines } as st
}
in
Input_screen.render t input_state
- | `Key (`ASCII '1', []) -> goto_headlines ()
+ | `Key (`ASCII '1', []) -> goto_headlines state
| `Key (`ASCII 'j', []) | `Key (`ASCII 'N', [ `Ctrl ]) -> scroll_down ()
| `Key (`ASCII 'k', []) | `Key (`ASCII 'P', [ `Ctrl ]) -> scroll_up ()
| `Key (`ASCII 't', []) ->