From: Mischa POSLAWSKY <perl@shiar.org>
Date: Thu, 6 Jan 2011 23:53:30 +0000 (+0100)
Subject: unicode: html styling
X-Git-Tag: v1.5~79
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/6128725dadf468083e2e201b4453a365da81ba8b?ds=sidebyside

unicode: html styling
---

diff --git a/Shiar_Sheet/FormatChar.pm b/Shiar_Sheet/FormatChar.pm
index 0e59678..661bb75 100644
--- a/Shiar_Sheet/FormatChar.pm
+++ b/Shiar_Sheet/FormatChar.pm
@@ -88,6 +88,11 @@ sub cell {
 				push @class, ('l2', 'u-prop'); # unofficial
 			}
 		}
+		elsif ($self->{style} eq 'html') {
+			if (defined $entity) {
+				push @class, ('l3', 'u-html');
+			}
+		}
 		else {
 			my $codepoint = ord(substr $input, 0, 1);
 			if ($codepoint <= 0xFF) {
diff --git a/unicode.plp b/unicode.plp
index f0e435f..d155c06 100644
--- a/unicode.plp
+++ b/unicode.plp
@@ -38,6 +38,7 @@ if (exists $get{q}) {
 }
 if (exists $get{html}) {
 	$glyphs->{anno} = ['html', 'xml'];
+	$glyphs->{style} = 'html';
 }
 
 our $verbose = exists $get{v};