X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/831fbd21461a9d9a6db4eecbc3930432babdfd73..d96b16650836046f79dc76641681445f97bd60ce:/readline.inc.pl

diff --git a/readline.inc.pl b/readline.inc.pl
index 9fcbd48..598d652 100644
--- a/readline.inc.pl
+++ b/readline.inc.pl
@@ -1,95 +1,100 @@
 use utf8;
+{
 
 '' => {
-	desc => "emacs mode",
+	"\e" => ['mv', '+'],
 
-	'+<' => ["history start", 'co'],
+	'+<' => ['co'],
 	'+=' => '+?', #TODO: new # emacs, not in v2.0
-	'+>' => ["history end", 'co'],
+	'+>' => ['co'],
 	'^?' => '^h',
-	'+?' => ["list complet$sign{_}ion$sign{_}s", 'ci'],
-	'^@' => ["set mark", 'mv new'], # not in v2.0
+	'+?' => ['ci'],
+	'^@' => ['mv new'], # not in v2.0
 
-	'+#' => ["prefix comm$sign{_}en$sign{_}t", 'mi new'], # not in v2.0
-	'+&' => ["tilde expand", 'mi'],
-	'+*' => ["complet$sign{_}e all", 'mi new'], # not in v2.0
-	'+.' => ["insert last", 'co'],
+	'+#' => ['mi new'], # not in v2.0
+	'+&' => ['mi'],
+	'+*' => ['mi new'], # not in v2.0
+	'+.' => ['co'],
 	'+~' => '+&amp;', # emacs
 
-	'^[' => ["meta", 'mv'],
+	'^[' => ['mv'],
 	'^+['=> '^i',
-	'+\\'=> ["delete whitesp$sign{_}ace", 'mo'],
-	'^]' => ["find char", 'pm arg new'], # not in v2.0
-	'^+]'=> ["rev find char", 'pm arg new'], # not in v2.0
-	'^_' => ["undo", 'co'],
+	'+\\'=> ['mo'],
+	'^]' => ['pm arg new'], # not in v2.0
+	'^+]'=> ['pm arg new'], # not in v2.0
+	'^_' => ['co'],
 	'+_' => '+.',
 
-	'+~' => ["user$sign{_}name exp$sign{_}and", 'mi ext'], # common emacs => '+&'
-	'+!' => ["cmd expand", 'mi ext'],
-	'+@' => ["host$sign{_}name exp$sign{_}and", 'mi ext'],
-	'+$' => ["variable expand", 'mi ext'],
-	'+^' => ["history expand", 'co ext'],
-	'+/' => ["filename expand", 'ci ext'],
+	'+~' => ['mi ext'], # common emacs => '+&'
+	'+!' => ['mi ext'],
+	'+@' => ['mi ext'],
+	'+$' => ['mi ext'],
+	'+^' => ['co ext'],
+	'+/' => ['ci ext'],
 
-	'^a' => ["begin of line", 'pm'],
-	'^b' => ["char back$sign{_}w$sign{_}ard$sign{_}s", 'pm'],
-	'+b' => ["word back$sign{_}w$sign{_}ard$sign{_}s", 'pm'],
-	'+c' => ["capital$sign{_}ise word", 'mi'],
-	'^d' => ["delete char", 'mo'],
-	'+d' => ["delete word rem$sign{_}ain$sign{_}der", 'mo ring'],
-#	'^e' => ["emacs mode", 'me'],
-	'^e' => ["end of line", 'pm'],
-	'^f' => ["char forward", 'pm'],
-	'+f' => ["word forward", 'pm'],
-	'^g' => ["abort cmd, bell", 'mv'],
+	'^a' => ['pm'],
+	'^b' => ['pm'],
+	'+b' => ['pm'],
+	'^c' => ['mv ext'],
+	'+c' => ['mi'],
+	'^d' => ['mo'],
+	'+d' => ['mo ring'],
+#	'^e' => ['me'],
+	'^e' => ['pm'],
+	'^f' => ['pm'],
+	'+f' => ['pm'],
+	'^g' => ['mv'],
 	'^+g'=> '^g',
-	'^h' => ["back$sign{_}space", 'mo'],
-	'^+h'=> ["delete bound word", 'mo ring'], #TODO
-	'^i' => ["auto$sign{_}complet$sign{_}e", 'mi', '(tab)'],
+	'^h' => ['mo'],
+	'^+h'=> ['mo ring'], #TODO
+	'^i' => ['mi'],
 	'^+i'=> '^v^i',
 	'^j' => '^m',
-	'^+j'=> ["vim mode", 'me'], #TODO: mode^+j
-	'^k' => ["delete till eol", 'mo ring'],
-	'^l' => ["clear screen", 'ci'],
-	'+l' => ["lowcase word", 'mi'],
-	'^m' => ["enter line", 'co', '(enter)'],
+	'^+j'=> ['me'], #TODO: mode^+j
+	'^k' => ['mo ring'],
+	'^l' => ['ci'],
+	'+l' => ['mi'],
+	'^m' => ['co'],
 	'^+m'=> '^+j',
-	'^n' => ["history next", 'co'],
-	'+n' => ["match history", 'co'],
-	'^o' => ["enter and next", 'co ext'],
-	'^p' => ["history back", 'co'],
-	'+p' => ["rev match history", 'co'],
-	'^q' => '^v', # Quote
-	'^r' => ["reverse history", 'co'],
-	'+r' => ["full undo", 'co', 'Revert'],
+	'^n' => ['co'],
+	'+n' => ['co'],
+	'^o' => ['co ext'],
+	'^p' => ['co'],
+	'+p' => ['co'],
+	'^q' => '^v',
+	'^r' => ['co'],
+	'+r' => ['co'],
 	'^+r'=> '+r',
-	'^s' => ["search history", 'co'],
-	'^t' => ["move char forw$sign{_}ard", 'mi', 'Transpose char'],
-	'+t' => ["move word forw$sign{_}ard", 'mi', 'Transpose word'],
-	'^u' => ["delete till bol", 'mo ring'], # unix
-	'+u' => ["upcase word", 'mi'],
-	'^v' => ["verbatim char", 'mv'],
-	'^w' => ["delete word", 'mo ring'], # unix
-	'^x' => ["extend$sign{_}ed", 'me arg mode^x'],
-	'^y' => ["yank top", 'co'],
-	'+y' => ["rotate yank", 'co ring'],
+	'^s' => ['co'],
+	'^t' => ['mi'],
+	'+t' => ['mi'],
+	'^u' => ['mo ring'],
+	'+u' => ['mi'],
+	'^v' => ['mv'],
+	'^w' => ['mo ring'],
+	'^x' => ['me arg mode^x'],
+	'^y' => ['co'],
+	'+y' => ['co ring'],
 	'^+y'=> ["yank arg"],
+	'^z' => ['mv ext'],
 },
 
 '^x' => {
 	lead => $ascii ? "'x"  : "x̂",
-	desc => 'emacs ctrl-x bindings',
 
-	'('  => ["start macro", 'mv'],
-	')'  => ["end macro", 'mv'],
-	'e'  => ["run macro", 'mv', 'Execute'],
-	'^e' => ["editor", 'mi ext linkvim'],
+	"\e" => ['mv mode', '+'],
+
+	'('  => ['mv'],
+	')'  => ['mv'],
+	'e'  => ['mv'],
+	'^e' => ['mi ext linkvi'],
 	'^g' => '^g',
 	'^h' => '^u',
-	'^r' => ["reload inputrc", 'mv'],
+	'^r' => ['mv'],
 	'^u' => '^_',
-	'^x' => ["swap cursor", 'pm new', 'eXchange'], # not in v2.0
-	'^v' => ["shell version", 'ci ext'],
+	'^x' => ['pm new'], # not in v2.0
+	'^v' => ['ci ext'],
 	'^?' => '^x^h',
 },
 
+}