git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
unicode: customisable table configuration
[sheet.git]
/
Shiar_Sheet
/
FormatChar.pm
diff --git
a/Shiar_Sheet/FormatChar.pm
b/Shiar_Sheet/FormatChar.pm
index 759ca85f57c1fea8bafffdde0cd4c5c2cf58b2b0..4668c5542dc1f52feacdfd972dd9f50755179064 100644
(file)
--- a/
Shiar_Sheet/FormatChar.pm
+++ b/
Shiar_Sheet/FormatChar.pm
@@
-6,7
+6,7
@@
use warnings;
use Data::Dump 'pp';
use PLP::Functions 'EscapeHTML';
use Data::Dump 'pp';
use PLP::Functions 'EscapeHTML';
-our $VERSION = '1.0
4
';
+our $VERSION = '1.0
5
';
our $diinfo = do 'digraphs.inc.pl';
our %di = map { $diinfo->{$_}->[0] => $_ } grep { ref $diinfo->{$_} }
our $diinfo = do 'digraphs.inc.pl';
our %di = map { $diinfo->{$_}->[0] => $_ } grep { ref $diinfo->{$_} }
@@
-205,11
+205,13
@@
sub table {
sub print {
my $self = shift;
while (@_) {
sub print {
my $self = shift;
while (@_) {
- printf '<div class="section"><h2>%s</h2>'."\n\n", shift;
+ print '<div class="section">';
+ printf '<h2>%s</h2>', shift unless ref $_[0];
+ print "\n\n";
while (ref $_[0] and $_ = shift) {
print $self->table($_);
}
while (ref $_[0] and $_ = shift) {
print $self->table($_);
}
- print
'</div>'
;
+ print
"\n</div>"
;
}
}
}
}