From 6128725dadf468083e2e201b4453a365da81ba8b Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Fri, 7 Jan 2011 00:53:30 +0100
Subject: [PATCH] unicode: html styling

---
 Shiar_Sheet/FormatChar.pm | 5 +++++
 unicode.plp               | 1 +
 2 files changed, 6 insertions(+)

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};
-- 
2.30.0