git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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';
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">
:><!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>
<:
</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]);
:>
$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>
<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' :>
<li><strong>keys</strong> are
<em><:= $showkeys ? 'always shown' : 'hidden if unassigned' :></em><:=
!exists $get{keys} && ' by default' :>