writing: .ex styling for obsolete alphabets

[sheet.git] / Shiar_Sheet / FormatChar.pm

diff --git a/Shiar_Sheet/FormatChar.pm b/Shiar_Sheet/FormatChar.pm
index f676ead1da9cb2a1f7951545f532a39bf513f86a..a3f4cc9c3725bdee642fecceb91ae5b79c1b29ca 100644 (file)
--- a/Shiar_Sheet/FormatChar.pm
+++ b/Shiar_Sheet/FormatChar.pm
@@ -182,7 +182,8 @@ sub table {
                        if ($cell =~ s/^>//) {
                                # header cell text follows
                                $cell =~ s/_/ /g;  # underscores may be used instead of whitespace (for qw//ability)
-                               $rows[-1] .= '<th>'.($cell || '&nbsp;');
+                               my $class = $cell =~ s/^-// && ' class="ex"';
+                               $rows[-1] .= "<th$class>".($cell || '&nbsp;');
                        }
                        next;
                }