readline: replace code by common keyboard page

diff --git a/readline.eng.inc.pl b/readline.eng.inc.pl
index 29645637c51d68220f2ff60e3a818a1876d09e8e..643c5de651ca9027fd054d0c25943a27bc992dcd 100644 (file)
--- a/readline.eng.inc.pl
+++ b/readline.eng.inc.pl
@@ -1,6 +1,15 @@
 use utf8;
 
 {
+title => 'readline',
+version => 1.2,
+description => [
+       "Reference sheet of default key bindings for GNU readline,",
+       "used for line-editing in most Unix software, notably Emacs and Bash.",
+],
+keywords => [qw( readline gnu bash emacs editing curses )],
+rows => [4, 3, 2],
+
 key => {
        '+<' => "history start",
        '+>' => "history end",

diff --git a/readline.plp b/readline.plp
index 063771e477fd34bf317dfb5bc3da24d4dd2eddc2..0bb69d68fa6b9a038f80a23ae5f1335dcc865c63 100644 (file)
--- a/readline.plp
+++ b/readline.plp
@@ -1,29 +1,4 @@
-<(common.inc.plp)><:
-
-Html({
-       title => 'readline cheat sheet',
-       version => '1.2',
-       description => [
-               "Reference sheet of default key bindings for GNU readline,",
-               "used for line-editing in most Unix software, notably Emacs and Bash.",
-       ],
-       keywords => [qw'
-               readline gnu bash emacs sheet cheat reference overview keyboard editing curses
-       '],
-       stylesheet => [qw( light dark circus mono red )],
-       keys => 1,
-});
-
-:>
-<h1>readline cheat sheet</h1>
-
-<h2>default emacs mode</h2>
-
 <:
-use Shiar_Sheet::Keyboard 2;
-my $info = Data('readline.eng');
-my $keys = Shiar_Sheet::Keyboard->new($info);
-$keys->map($get{map}) or undef $get{map};
-$keys->print_rows($get{rows} || '^x=213', [4,3,2]);
-$keys->print_legends(\%get);
-
+$Request = 'readline';
+$get{rows} ||= '^x=213';
+Include 'keyboard.plp';