* ssa-info : show fonts info

bin/ssa-info

@@ -48,6 +48,10 @@ section('Styles');
   my @sorted = map { sprintf('%s (%d)', $_, $stats->{$_}) }
     sort { $stats->{$b} <=> $stats->{$a} } keys %{ $stats };
   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) {