diff --git a/lib/tui/init.ml b/lib/tui/init.ml index 75b7ed0..3226afa 100644 --- a/lib/tui/init.ml +++ b/lib/tui/init.ml @@ -1,3 +1,3 @@ open Minttea -let init _model = Command.Enter_alt_screen +let init _model = Command.(Seq [ Hide_cursor; Enter_alt_screen ]) diff --git a/lib/tui/update.ml b/lib/tui/update.ml index c23817a..f470689 100644 --- a/lib/tui/update.ml +++ b/lib/tui/update.ml @@ -28,7 +28,7 @@ let update event (model : Model.t) = match event with (* if we press `q` or the escape key, we exit *) | Event.KeyDown ((Key "q" | Escape), _modifier) -> - (model, Command.(Seq [ Exit_alt_screen; Quit ])) + (model, Command.(Seq [ Exit_alt_screen; Show_cursor; Quit ])) (* if we press a digit, we switch to the corresponding tab *) | Event.KeyDown (Key "1", _modifier) -> ({ model with current_tab = Model.Code }, Command.Noop)