chshersh/github-tui
1
1
Fork 0
mirror of https://github.com/chshersh/github-tui.git synced 2024-07-14 22:00:36 +03:00
Code Issues Actions Packages Projects Releases Wiki Activity

Hide and show cursor

Browse Source
This commit is contained in:
Dmitrii Kovanikov 2024-06-24 18:52:07 +01:00
parent b2c44c181d
commit 063b01a111
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/tui/init.ml
View File

@ -1,3 +1,3 @@
open Minttea
let init _model = Command.Enter_alt_screen
let init _model = Command.(Seq [ Hide_cursor; Enter_alt_screen ])

2
lib/tui/update.ml
View File

@ -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)