Fossil SCM
Enhance the --tk diff viewer to respond to vi/less-style key bindings.
Commit
314e8d8a1f264cabab3c335f06be15274d10dae2
Parent
2762fecd9ef294b…
1 file changed
+7
+7
| --- src/diff.tcl | ||
| +++ src/diff.tcl | ||
| @@ -238,16 +238,23 @@ | ||
| 238 | 238 | event generate .bb.files <ButtonRelease-1> |
| 239 | 239 | break |
| 240 | 240 | } |
| 241 | 241 | foreach {key axis args} { |
| 242 | 242 | Up y {scroll -5 units} |
| 243 | + k y {scroll -5 units} | |
| 243 | 244 | Down y {scroll 5 units} |
| 245 | + j y {scroll 5 units} | |
| 244 | 246 | Left x {scroll -5 units} |
| 247 | + h x {scroll -5 units} | |
| 245 | 248 | Right x {scroll 5 units} |
| 249 | + l x {scroll 5 units} | |
| 246 | 250 | Prior y {scroll -1 page} |
| 251 | + b y {scroll -1 page} | |
| 247 | 252 | Next y {scroll 1 page} |
| 253 | + space y {scroll 1 page} | |
| 248 | 254 | Home y {moveto 0} |
| 255 | + g y {moveto 0} | |
| 249 | 256 | End y {moveto 1} |
| 250 | 257 | } { |
| 251 | 258 | bind . <$key> "scroll-$axis $args; break" |
| 252 | 259 | bind . <Shift-$key> continue |
| 253 | 260 | } |
| 254 | 261 |
| --- src/diff.tcl | |
| +++ src/diff.tcl | |
| @@ -238,16 +238,23 @@ | |
| 238 | event generate .bb.files <ButtonRelease-1> |
| 239 | break |
| 240 | } |
| 241 | foreach {key axis args} { |
| 242 | Up y {scroll -5 units} |
| 243 | Down y {scroll 5 units} |
| 244 | Left x {scroll -5 units} |
| 245 | Right x {scroll 5 units} |
| 246 | Prior y {scroll -1 page} |
| 247 | Next y {scroll 1 page} |
| 248 | Home y {moveto 0} |
| 249 | End y {moveto 1} |
| 250 | } { |
| 251 | bind . <$key> "scroll-$axis $args; break" |
| 252 | bind . <Shift-$key> continue |
| 253 | } |
| 254 |
| --- src/diff.tcl | |
| +++ src/diff.tcl | |
| @@ -238,16 +238,23 @@ | |
| 238 | event generate .bb.files <ButtonRelease-1> |
| 239 | break |
| 240 | } |
| 241 | foreach {key axis args} { |
| 242 | Up y {scroll -5 units} |
| 243 | k y {scroll -5 units} |
| 244 | Down y {scroll 5 units} |
| 245 | j y {scroll 5 units} |
| 246 | Left x {scroll -5 units} |
| 247 | h x {scroll -5 units} |
| 248 | Right x {scroll 5 units} |
| 249 | l x {scroll 5 units} |
| 250 | Prior y {scroll -1 page} |
| 251 | b y {scroll -1 page} |
| 252 | Next y {scroll 1 page} |
| 253 | space y {scroll 1 page} |
| 254 | Home y {moveto 0} |
| 255 | g y {moveto 0} |
| 256 | End y {moveto 1} |
| 257 | } { |
| 258 | bind . <$key> "scroll-$axis $args; break" |
| 259 | bind . <Shift-$key> continue |
| 260 | } |
| 261 |