From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 5 May 2009 16:45:54 +0000 (+0000)
Subject: readline: mark keys setting the kill ring
X-Git-Tag: v1.3~148
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/7c11eee45cc5878ca4464cc1fddeb566be6c8e7f

readline: mark keys setting the kill ring
---

diff --git a/readline.inc.pl b/readline.inc.pl
index 288885f..9253532 100644
--- a/readline.inc.pl
+++ b/readline.inc.pl
@@ -25,7 +25,7 @@ use utf8;
 	'+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'],
+	'+d' => ["delete word rem$sign{_}ain$sign{_}der", 'mo ring'],
 #	'^e' => ["emacs mode", 'me'],
 	'^e' => ["end of line", 'pm'],
 	'^f' => ["char forward", 'pm'],
@@ -35,7 +35,7 @@ use utf8;
 	'^i' => ["complete", 'mi', '(tab)'],
 	'^j' => '^m',
 	'^+j'=> ["vim mode", 'me'],
-	'^k' => ["delete till eol", 'mo'],
+	'^k' => ["delete till eol", 'mo ring'],
 	'^l' => ["clear screen", 'ci'],
 	'+l' => ["lowcase word", 'mi'],
 	'^m' => ["enter line", 'co', '(enter)'],
@@ -49,10 +49,10 @@ use utf8;
 	'^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'], # unix
+	'^u' => ["delete till bol", 'mo ring'], # unix
 	'+u' => ["upcase word", 'mi'],
 	'^v' => ["verbatim char", 'mv'],
-	'^w' => ["delete word", 'mo'], # unix
+	'^w' => ["delete word", 'mo ring'], # unix
 #	'^xBS' => ["delete till bol", 'mo'],
 	'^x' => ["extend$sign{_}ed", 'me arg'],
 	'^y' => ["yank top", 'co'],
diff --git a/readline.plp b/readline.plp
index 019876f..a49c6d3 100644
--- a/readline.plp
+++ b/readline.plp
@@ -7,7 +7,7 @@ no  warnings 'uninitialized';  # save some useless checks for more legible code
 
 use Shiar_Sheet::KeySigns qw(%sign);  # dependant on $get{ascii}
 
-our $VERSION = 'v1.2';
+our $VERSION = 'v1.0';
 
 $header{content_type} = "text/html; charset=$sign{charset}";
 
@@ -100,7 +100,7 @@ $keys->print_rows($get{static} || '543');
 </div>
 
 <p class="footer">
-	<a href="/" rel="home">sheet.shiar.nl</a>/vim
+	<a href="/" rel="home">sheet.shiar.nl</a>/readline
 	<a href="git://git.shiar.nl/sheet" rel="vcs-git" title="Git repository"><:= $VERSION :></a>
 	created by <a href="http://shiar.nl/" rel="author">Shiar</a> <:= $sign{sep} :>
 	<a title="Licensed under the GNU Affero General Public License, version 3" rel="copyright"