- my $data = $row->{stats} or next; # skip metadata [summary]
- printf '<tr id="%s">', $id;
- printf '<th title="%s">%s', $row->{description}, $row->{title};
- printf '<td title="%s" class="%s">%s', $caniuse->{statuses}->{$_}, $CSTATUS{$_} // '', $_ for $row->{status};
- for my $browser (@browsers) {
- my ($prev, @span);
- for my $ver (@{ $versions{$browser} }, undef) {
- unless (!defined $prev
- or $data->{$browser}->{$prev} ~~ $data->{$browser}->{$ver}) {
- printf '<td class="%s" colspan="%d">%s',
- $CSTATS{ $data->{$browser}->{$prev} },
- scalar @span,
- join('‒', $span[0], @span > 1 ? $span[-1] : ());
- undef $prev;
- @span = ();
- }
- push @span, $ver;
- $prev = $ver;
+
+ for ($row->{categories}) {
+ my $cell = $_ ? lc $_->[0] : '-';
+ $cell =~ s/ api$//; # trim unessential fluff in 'js api'
+ printf '<th title="%s">%s', join(' + ', @$_), $cell;
+ }
+
+ print '<td>', map {
+ sprintf('<a href="%s" onclick="%s">%s</a>',
+ "#$id",
+ sprintf("try { %s; return false } catch(err) { return true }",
+ "document.getElementById('$id').classList.toggle('target')",
+ ),
+ Entity($_),
+ );
+ } $row->{title};
+ print '<div class=aside>';
+ s/\.?$/./, print "<p>$_</p>" for map { ref $_ ? @$_ : $_ || () }
+ Entity($row->{description}),
+ map { s/\s*\n/\n<br>/g; $_ } $row->{notes};
+ printf 'Resources: %s.', join(', ', map {
+ sprintf '<a href="%s">%s</a>', EscapeHTML($_->{url}), $_->{title}
+ } @$_) for grep { @$_ } $row->{links} // ();
+ printf '<br>Parent feature: %s.', join(', ', map {
+ sprintf '<a href="%s">%s</a>', EscapeHTML("#$_"), $caniuse->{data}->{$_}->{title}
+ } $_) for $row->{parent} || ();
+ print '</div>';
+}
+
+sub saystatuscol {
+ my ($id) = @_;
+ my $row = $caniuse->{data}->{$id};
+
+ for ($row->{status}) {
+ my $cell = $_ // '-';
+ $cell = sprintf '<a href="%s">%s</a>', $_, $cell for $row->{spec} // ();
+ printf '<td title="%s" class="l %s">%s',
+ $caniuse->{statuses}->{$_}, $CSTATUS{$_} // '', $cell;
+ }
+}
+
+sub saybrowsercols {
+ my ($id, $browser) = @_;
+ my $data = $caniuse->{data}->{$id}->{stats}->{$browser};
+ if (ref $data eq 'ARRAY') {
+ # special case for unsupported
+ my $release = $caniuse->{agents}->{$browser}->{verrelease};
+ $data = {
+ map { $_ => defined $release->{$_} ? 'u' : 'n' } keys %$release
+ };
+ }
+
+ my ($prev, @span);
+ for my $ver (@{ $versions{$browser} }, undef) {
+ my $compare = (
+ !defined $ver ? undef : # last column if nameless
+ ref $data ne 'HASH' ? '' : # unclassified if no support hash
+ $data->{$ver} // $prev # known or inherit from predecessor
+ // (grep { defined } @{$data}{ @{ $versions{$browser} } })[0]
+ ~~ 'n' && 'n' # first known version is unsupported
+ || 'u' # unsure
+ );
+ unless (!defined $prev or $prev ~~ $compare) {
+ my $usage = sum(map { $canihas->{$browser}->{$_} } @span);
+ printf '<td class="%s" colspan="%d" title="%s">%s',
+ join(' ',
+ X => $CSTATS{$prev},
+ !$usage ? ('p0') : ('p',
+ sprintf('p%01d', $usage * ($usagepct - .0001) / 10),
+ sprintf('p%02d', $usage * ($usagepct - .0001)),
+ ),
+ sprintf('pp%02d', $usage / $usagemax),
+ ),
+ scalar @span,
+ sprintf('%.1f%% %s', $usage * $usagepct, join(', ',
+ map { ref $_ eq 'CODE' ? $_->($browser) : $_ }
+ map { $DSTATS{$_} // () }
+ map { split / /, $_ }
+ $prev
+ )),
+ showversions(@span),
+ undef $prev;
+ @span = ();