Browse Source

* ssa-info : show fonts info

master
Alex 'AdUser' Z 6 years ago
parent
commit
ed3908ce6c
  1. 4
      bin/ssa-info

4
bin/ssa-info

@ -48,6 +48,10 @@ section('Styles');
my @sorted = map { sprintf('%s (%d)', $_, $stats->{$_}) } my @sorted = map { sprintf('%s (%d)', $_, $stats->{$_}) }
sort { $stats->{$b} <=> $stats->{$a} } keys %{ $stats }; sort { $stats->{$b} <=> $stats->{$a} } keys %{ $stats };
line(Usage => join(', ', @sorted)); line(Usage => join(', ', @sorted));
$stats = $ssa->fonts_usage;
@sorted = map { sprintf('%s (%d)', $_, $stats->{$_}) }
sort { $stats->{$b} <=> $stats->{$a} } keys %{ $stats };
line(Fonts => join(', ', @sorted));
} }
if (scalar @{ $ssa->{fonts} } > 0) { if (scalar @{ $ssa->{fonts} } > 0) {

Loading…
Cancel
Save