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

Exit alt screen before quit

Browse Source
This commit is contained in:
Dmitrii Kovanikov 2024-02-04 14:45:48 +00:00
parent 3ea427ead8
commit 7802849271
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/tui/update.ml
View File

@ -18,7 +18,7 @@ let move_right model = model
let update event (model: Model.t) =
match event with
(* if we press `q` or the escape key, we exit *)
| Event.KeyDown (Key "q" | Escape) -> (model, Command.Quit)
| Event.KeyDown (Key "q" | Escape) -> (model, Command.Seq [Command.Exit_alt_screen; Command.Quit])
(* if we press a digit, we switch to the corresponding tab *)
| Event.KeyDown (Key "1") ->