Make escape leave bird's eye
This commit is contained in:
parent
77f7a95a79
commit
00756d5875
2 changed files with 10 additions and 2 deletions
2
KEYS
2
KEYS
|
@ -61,10 +61,10 @@ tunables
|
|||
(only font name currently)
|
||||
|
||||
bird's eye mode
|
||||
Ctrl-9/F9/esc - leave bird's eye view
|
||||
(page)up/(page)down - navigate
|
||||
home/end - go to first/last page
|
||||
enter - select the page and leave bird's eye mode
|
||||
Ctrl-9/F9 - leave bird's eye view
|
||||
1st mouse button - select the page under cursor and leave bird's eye mode
|
||||
|
||||
outline/bookmark mode
|
||||
|
|
10
main.ml
10
main.ml
|
@ -1261,7 +1261,15 @@ let viewkeyboard ~key ~x ~y =
|
|||
| None ->
|
||||
let c = Char.chr key in
|
||||
begin match c with
|
||||
| '\027' | 'q' ->
|
||||
| '\027' ->
|
||||
begin match state.birdseye with
|
||||
| None -> exit 0
|
||||
| Some vals ->
|
||||
birdseyeoff vals;
|
||||
reshape conf.winw conf.winh
|
||||
end;
|
||||
|
||||
| 'q' ->
|
||||
exit 0
|
||||
|
||||
| '\008' ->
|
||||
|
|
Loading…
Reference in a new issue