From: Mischa POSLAWSKY <perl@shiar.org>
Date: Wed, 4 Feb 2015 00:13:14 +0000 (+0100)
Subject: keys: drop ascii sign alternatives
X-Git-Tag: v1.6~28
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/46ed3fdeb5a9966717f27c99b750d13551cb25e9

keys: drop ascii sign alternatives

Get rid of code complexity for unused feature which can easily be emulated
after downloading (in fact already done by elinks for example, though not as
nicely).  Rather assume Unicode support as it should be.
---

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