From 6b4cefaabd92d7056651a627267df0abc4f92b3d Mon Sep 17 00:00:00 2001 From: Mischa POSLAWSKY Date: Wed, 4 Feb 2015 01:40:54 +0100 Subject: [PATCH] starcraft: use common html output function --- starcraft.plp | 51 +++++++-------------------------------------------- 1 file changed, 7 insertions(+), 44 deletions(-) diff --git a/starcraft.plp b/starcraft.plp index 7da0ed2..dba4a7d 100644 --- a/starcraft.plp +++ b/starcraft.plp @@ -1,41 +1,13 @@ -<: -use utf8; -use strict; -use warnings; -no warnings 'qw'; # you know what you doing -no warnings 'uninitialized'; # save some useless checks for more legible code - -use Shiar_Sheet::KeySigns qw(%sign); - -our $VERSION = 'v1.0'; - -$header{content_type} = "text/html; charset=utf-8"; +<(common.inc.plp)><: -:> - +Html({ + title => 'starcraft cheat sheet', + version => 'v1.0', + stylesheet => [qw'light dark circus mono red terse'], + keys => 1, +}); - -starcraft cheat sheet - - - -<: - my %styles = map {$_ => $_} qw(dark circus mono red terse); - our $style = exists $get{style} && $styles{$get{style}} || 'light'; - printf(qq{\n}, - $_ eq $style ? 'stylesheet' : 'alternate stylesheet', "$_.css", $_ - ) for keys %styles; - - our $showkeys = exists $get{keys} && $get{keys} ne '0'; - print "\n" unless $showkeys; - print "\n" - if $showkeys and $get{keys} eq 'ghost'; :> - - - -

StarCraft cheat sheet

normal mode (default)

@@ -105,12 +77,3 @@ $keys->print_rows($get{rows} || '1 =P1 Z1', [0]); - - - -- 2.30.0