From 55e3fa05d6b3a641d91dc02e6c2debb1f84086b2 Mon Sep 17 00:00:00 2001 From: Mischa POSLAWSKY Date: Wed, 4 Feb 2015 01:40:39 +0100 Subject: [PATCH] keyboard: use common html output function --- keyboard.plp | 38 ++++++-------------------------------- 1 file changed, 6 insertions(+), 32 deletions(-) diff --git a/keyboard.plp b/keyboard.plp index 3628ac3..9fd00fe 100644 --- a/keyboard.plp +++ b/keyboard.plp @@ -1,28 +1,13 @@ <(common.inc.plp)><: - our $VERSION = 'v1.0'; - use Shiar_Sheet::KeySigns qw(%sign); - -:> - +Html({ + title => 'keyboard cheat sheet', + version => 'v1.0', + stylesheet => [qw'light dark circus mono red terse'], + keys => 1, +}); - - -keyboard cheat sheet -<:= stylesheet(qw'light dark circus mono red terse') :> - -<: - our $showkeys = exists $get{keys} && $get{keys} ne '0'; - print "\n".'' - unless $showkeys; - print "\n".'' - if $showkeys and $get{keys} eq 'ghost'; :> - - - -

keyboard cheat sheet

normal mode (default)

@@ -104,14 +89,3 @@ $keys->print_rows($get{rows}, [0]); - - - -- 2.30.0