From: Mischa POSLAWSKY <perl@shiar.org>
Date: Fri, 15 Dec 2023 01:14:46 +0000 (+0100)
Subject: readline: replace code by common keyboard page
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/bdb1ce331dfe266dcff0b74510bce97e08c41075

readline: replace code by common keyboard page
---

diff --git a/readline.eng.inc.pl b/readline.eng.inc.pl
index 2964563..643c5de 100644
--- 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 063771e..0bb69d6 100644
--- 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';