Zooming: Ctrl-=' as an alias for
Ctrl-+'
On many keyboards, `-' and `+' are not symmetrical; while `-' requires only one key to be pressed, `+' requires 2 keys: `Shift' and `='. Consequently, zooming in is `Ctrl--', but zooming out is `Ctrl-Shift-='. This commit includes `Ctrl-=' as an alternative for zooming out.
This commit is contained in:
parent
7d51766219
commit
e5cadbd358
2 changed files with 3 additions and 2 deletions
3
KEYS
3
KEYS
|
@ -47,7 +47,8 @@ Ctrl-p - launch a command with the document path as an argument
|
||||||
<,> - rotate
|
<,> - rotate
|
||||||
[,] - decrease/increase page brightness
|
[,] - decrease/increase page brightness
|
||||||
Ctrl-g - interrupt search
|
Ctrl-g - interrupt search
|
||||||
Ctrl-+/- - zoom in/out
|
Ctrl-+ or Ctrl-= - zoom in
|
||||||
|
Ctrl-- - zoom out
|
||||||
Ctrl-0 - fit page width and reset panning
|
Ctrl-0 - fit page width and reset panning
|
||||||
Ctrl-1 - fit page height
|
Ctrl-1 - fit page height
|
||||||
Ctrl-2 - zoom to ...
|
Ctrl-2 - zoom to ...
|
||||||
|
|
2
main.ml
2
main.ml
|
@ -4713,7 +4713,7 @@ let viewkeyboard key mask =
|
||||||
enttext (s, "", Some (onhist state.hists.pat),
|
enttext (s, "", Some (onhist state.hists.pat),
|
||||||
textentry, ondone (key = 47), true)
|
textentry, ondone (key = 47), true)
|
||||||
|
|
||||||
| 43 | 0xffab when ctrl -> (* ctrl-+ *)
|
| 43 | 0xffab | 61 when ctrl -> (* ctrl-+ or ctrl-=*)
|
||||||
let incr = if conf.zoom +. 0.01 > 0.1 then 0.1 else 0.01 in
|
let incr = if conf.zoom +. 0.01 > 0.1 then 0.1 else 0.01 in
|
||||||
setzoom (conf.zoom +. incr)
|
setzoom (conf.zoom +. incr)
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue