From ed3908ce6ce3c615978c46ac99e95483f3856947 Mon Sep 17 00:00:00 2001
From: Alex 'AdUser' Z <ad_user@runbox.com>
Date: Mon, 23 Jul 2018 03:00:10 +1000
Subject: [PATCH] * ssa-info : show fonts info

---
 bin/ssa-info | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/bin/ssa-info b/bin/ssa-info
index c41a543..dc3919c 100755
--- a/bin/ssa-info
+++ b/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) {