keys: drop ascii support

[sheet.git] / starcraft.plp
diff --git a/starcraft.plp b/starcraft.plp

index 8279df3b6308727ae3db13467eefd2d69a223fab..7da0ed211f703a3348cc2164436d3b1875784819 100644 (file)
--- a/starcraft.plp
+++ b/starcraft.plp
@@ -9,7 +9,7 @@ use Shiar_Sheet::KeySigns qw(%sign);
  
  our $VERSION = 'v1.0';
  
-$header{content_type} = "text/html; charset=$sign{charset}";
+$header{content_type} = "text/html; charset=utf-8";
  
  :><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
   "http://www.w3.org/TR/html4/loose.dtd">
@@ -50,8 +50,10 @@ $header{content_type} = "text/html; charset=$sign{charset}";
  </li>
  
  <:
-use Shiar_Sheet::Keyboard;
-my $keys = Shiar_Sheet::Keyboard->new({do 'starcraft.inc.pl'});
+use Shiar_Sheet::Keyboard 2;
+my $info = do 'starcraft.eng.inc.pl' or die $@;
+$info->{def} = do 'starcraft.inc.pl';
+my $keys = Shiar_Sheet::Keyboard->new($info);
  $keys->map($get{map}) or undef $get{map};
  $keys->print_rows($get{rows} || '1 =P1 Z1', [0]);
  :>
@@ -94,9 +96,6 @@ $keys->print_rows($get{rows} || '1 =P1 Z1', [0]);
                 <ul class="legend legend-set">
                 <li>keyboard <strong>map</strong> is
                         <:= $get{map} ? 'set to ' : '' :><em><:= $keys->{map} :></em>
-               <li><strong>ascii</strong> mode is
-                       <:= defined $sign{-ascii} && 'forced ' :><em><:=
-                               $sign{-ascii} ? 'on' : 'off' :></em>
                 <li><strong>keys</strong> are
                         <em><:= $showkeys ? 'always shown' : 'hidden if unassigned' :></em><:=
                                 !exists $get{keys} && ' by default' :>