X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/6cbfb8c36a09123dc11f6b2bf5302c4b972a1078..46ed3fdeb5a9966717f27c99b750d13551cb25e9:/Shiar_Sheet/KeySigns.pm

diff --git a/Shiar_Sheet/KeySigns.pm b/Shiar_Sheet/KeySigns.pm
index a22a07a..f33b224 100644
--- a/Shiar_Sheet/KeySigns.pm
+++ b/Shiar_Sheet/KeySigns.pm
@@ -4,40 +4,26 @@ use utf8;
 use strict;
 use warnings;
 
-our $VERSION = 'v1.00';
+our $VERSION = 'v1.01';
 
 sub import {
 	my $class = shift;
 
-	my $ascii = undef;
-	if (exists $PLP::Script::get{ascii}) {
-		# manual override
-		$ascii = !defined $PLP::Script::get{ascii} || $PLP::Script::get{ascii} !~ /^0*$/;
-	}
-	elsif (defined $ENV{HTTP_ACCEPT_CHARSET}) {
-		$ascii = 1;
-		for (split q{,}, $ENV{HTTP_ACCEPT_CHARSET}) {
-			$ascii = undef, last if $_ eq '*' or m{utf-?8}i;
-		}
-	}
-
 	my %sign = (
-		-ascii => $ascii,
-		charset=> $ascii ? 'us-ascii' : 'utf-8',
-		arg    => $ascii ? '.' : '·',  # described as 'dot'
-		args   => $ascii ? ':' : '⁚',
-		argi   => $ascii ? "'" : '′',
-		argm   => $ascii ? '|' : '↕',
-		motion => $ascii ? '|' : '↕',
-		alias  => $ascii ? 'see: ' : '»',
-		up     => $ascii ? 'up'    : '▲',
-		right  => $ascii ? 'right' : '▶',
-		down   => $ascii ? 'down'  : '▼',
-		left   => $ascii ? 'left'  : '◀',
-		sep    => $ascii ? '*'     : '•',
-		_      => defined $ascii && !$ascii ? "\x{200b}" : '<wbr>',
-			# use the correct ZWNJ only when unicode is forced on
-			# default to use unofficial html for best support
+		-ascii => 0,
+		charset=> 'utf-8',
+		arg    => '·',  # described as 'dot'
+		args   => '⁚',
+		argi   => '′',
+		argm   => '↕',
+		motion => '↕',
+		alias  => '»',
+		up     => '▲',
+		right  => '▶',
+		down   => '▼',
+		left   => '◀',
+		sep    => '•',
+		_      => '<wbr>' || "\x{200b}",  # unofficial html, correct ZWNJ character might appear as placeholder
 	);
 
 	my ($parent) = caller;
@@ -55,12 +41,7 @@ Shiar_Sheet::KeySigns - Common Unicode characters in user-preferred charset
 =head1 SYNOPSIS
 
 	use Shiar_Sheet::KeySigns;
-	print "$sign{alias} some$sign{_}thing";  # see: some<wbr>thing
-
-	package PLP::Script;
-	our %get = (ascii => 0);  # user input
-	Shiar_Sheet::KeySigns->import;
-	print "$sign{alias} some$sign{_}thing";  # »some( )thing
+	print "$sign{alias} some$sign{_}thing";  # » some<wbr>thing
 
 =head1 AUTHOR