'+u' => ["upcase word", 'mi'],
'^v' => ["verbatim char", 'mv'],
'^w' => ["delete word", 'mo ring'], # unix
-# '^xBS' => ["delete till bol", 'mo'],
- '^x' => ["extend$sign{_}ed", 'me arg'],
+ '^x' => ["extend$sign{_}ed", 'me arg mode^x'],
'^y' => ["yank top", 'co'],
'+y' => ["rotate yank", 'co ring'],
'^+y'=> ["yank arg"],
},
+'^x' => {
+ lead => $ascii ? "'x" : "x̂",
+ desc => 'emacs ctrl-x bindings',
+
+ '^h' => '^u',
+ '(' => ["start macro", 'mv'],
+ ')' => ["end macro", 'mv'],
+ 'e' => ["run macro", 'mv', 'Execute'],
+ '^e' => ["editor", 'mi ext linkvim'],
+ '^r' => ["reload inputrc", 'mv'],
+ '^u' => '^_',
+ '^x' => ["swap cursor", 'pm', 'eXchange'],
+ '^g' => '^g',
+ '^h' => '^u',
+ '^v' => ["shell version", 'ci ext'],
+ '^?' => '^x^h',
+},
+
use Shiar_Sheet::Keyboard;
my $keys = Shiar_Sheet::Keyboard->new({do 'readline.inc.pl'});
$keys->map($get{map}) or undef $get{map};
-$keys->print_rows($get{rows}, [4,3,2]);
+$keys->print_rows($get{rows} || '^x=213', [4,3,2]);
:>
</ul>