From 3eb25f5544e3c385686e5a78690dfa4c1ab17aae Mon Sep 17 00:00:00 2001
From: Simon Ruderich <simon@ruderich.org>
Date: Sun, 26 Sep 2010 18:04:58 +0200
Subject: vim_mode: Add W B E.

At the moment w b e and W B E work the same way (the behavior for W B E
is correct). w b e will be changed later to use vi words.
---
 vim-mode/vim_mode.pl | 25 ++++++++++++++++++++-----
 1 file changed, 20 insertions(+), 5 deletions(-)

diff --git a/vim-mode/vim_mode.pl b/vim-mode/vim_mode.pl
index 976c922..a0b5f1c 100644
--- a/vim-mode/vim_mode.pl
+++ b/vim-mode/vim_mode.pl
@@ -137,6 +137,9 @@ my $movements
      'w' => { func => \&cmd_movement_w },
      'b' => { func => \&cmd_movement_b },
      'e' => { func => \&cmd_movement_e },
+     'W' => { func => \&cmd_movement_W },
+     'B' => { func => \&cmd_movement_B },
+     'E' => { func => \&cmd_movement_E },
      # line movement
      '0' => { func => \&cmd_movement_0 },
      '$' => { func => \&cmd_movement_dollar },
@@ -334,6 +337,18 @@ sub _next_occurrence {
 
 sub cmd_movement_w {
     my ($count, $pos) = @_;
+    cmd_movement_W($count, $pos);
+}
+sub cmd_movement_b {
+    my ($count, $pos) = @_;
+    cmd_movement_B($count, $pos);
+}
+sub cmd_movement_e {
+    my ($count, $pos) = @_;
+    cmd_movement_E($count, $pos);
+}
+sub cmd_movement_W {
+    my ($count, $pos) = @_;
 
     my $input = _input();
     while ($count-- > 0) {
@@ -345,21 +360,21 @@ sub cmd_movement_w {
     }
     _input_pos($pos);
 }
-sub cmd_movement_b {
+sub cmd_movement_B {
     my ($count, $pos) = @_;
 
     my $input = reverse _input();
-    $pos = _end_of_word($input, $count, length($input) - $pos - 1);
+    $pos = _end_of_WORD($input, $count, length($input) - $pos - 1);
     if ($pos == -1) {
         cmd_movement_0();
     } else {
         _input_pos(length($input) - $pos - 1);
     }
 }
-sub cmd_movement_e {
+sub cmd_movement_E {
     my ($count, $pos) = @_;
 
-    $pos = _end_of_word(_input(), $count, $pos);
+    $pos = _end_of_WORD(_input(), $count, $pos);
     if ($pos == -1) {
         cmd_movement_dollar();
     } else {
@@ -367,7 +382,7 @@ sub cmd_movement_e {
     }
 }
 # Go to the end of $count-th word, like vi's e.
-sub _end_of_word {
+sub _end_of_WORD {
     my ($input, $count, $pos) = @_;
 
     # We are already at the end of one a word, ignore the following space so
-- 
cgit v1.2.3