haz/llpp
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Zooming: Ctrl-=' as an alias for Ctrl-+'

Browse source 
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:
Michael Witten 2012-10-03 21:32:44 +00:00 committed by malc
parent 7d51766219
commit e5cadbd358
2 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
KEYS
View file

@ -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
View file

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