From e16f1c13b6fe3bb142e66e2c4cbc2732c3a78451 Mon Sep 17 00:00:00 2001
From: David Brown <dave@brownsmeet.com>
Date: Fri, 1 Jul 2016 20:15:53 +0100
Subject: [PATCH] Prettify build report

---
 src/tools/make/buildall.pl | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/src/tools/make/buildall.pl b/src/tools/make/buildall.pl
index f6a731d4..3b8b2805 100755
--- a/src/tools/make/buildall.pl
+++ b/src/tools/make/buildall.pl
@@ -119,18 +119,20 @@ sub svgtext {
 
 my $rows = keys %status;
 
+my $width  = 680;
+my $height = ($rows+2) * $emsperline;
+
 open(my $svg, ">build-status.svg") // die "Could not create build-status.svg.";
-print $svg '<svg width="680" height="';
-print $svg ($rows+2) * $emsperline;
-print $svg 'em" xmlns="http://www.w3.org/2000/svg" version="1.1">', "\n";
-print $svg '<rect width="100%" height="100%" rx="20" ry="20" fill="#404040" stroke="#208020" stroke-width="2"/>', "\n";
+print $svg '<svg width="680" height="', $height, 'em" xmlns="http://www.w3.org/2000/svg" version="1.1">', "\n";
+print $svg '<rect x="3" y="3" width="', $width-4, '" height="99%" rx="20" ry="20"';
+print $svg ' fill="#404040" stroke="#20c020" stroke-width="2"/>', "\n";
 
 my $col1 = 20;
 my $col2 = 110;
 my $col3 = 200;
 my $col4 = 310;
 my $col5 = 400;
-my $col6 = 480;
+my $col6 = 475;
 my $col7 = 580;
 
 svgtext($svg, $col1, 0, "#e0e0e0", "OS");