digraphs: reuse unicode character details

[sheet.git] / digraphs.plp

diff --git a/digraphs.plp b/digraphs.plp
index 0d57bf064655140fed1d7cf1f7652288a0d7cee6..702e3e6054fcdc959eba43ea7be0f4d32d83e3d6 100644 (file)
--- a/digraphs.plp
+++ b/digraphs.plp
@@ -10,6 +10,7 @@ Html({
                digraph compose character char glyph table unicode vim
        '],
        stylesheet => [qw'light'],
+       data => [qw( digraphs.inc.pl )],
 });
 
 :>
@@ -62,7 +63,7 @@ for my $c1group (@chars) {
                        my @class = ('X', grep {$_} $prop, $script);
 
                        $glyph = EscapeHTML($glyph);
-                       $glyph = "<span>$glyph</span>" if $prop eq 'Zs';
+                       $glyph = "<span>$glyph</span>" if $prop =~ /\bZs\b/;
 
                        printf "\n".'<td class="%s" title="%s">%s',
                                join(' ', @class), EscapeHTML($desc), $glyph;