From b365c06230bc825537deb8a1fc776debd30b2996 Mon Sep 17 00:00:00 2001
From: tim <tim@treehouse.org.za>
Date: Tue, 19 Dec 2017 22:37:48 +0200
Subject: [PATCH] Collapse multiple injections into one label.

---
 glucometer_graphs.pl | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/glucometer_graphs.pl b/glucometer_graphs.pl
index 351c78a..5c669f5 100644
--- a/glucometer_graphs.pl
+++ b/glucometer_graphs.pl
@@ -102,9 +102,15 @@ while ( my $row = <$ifh> ) {
     # Clean up the comments
     $row =~ s#\((Scan|Sensor)\)(; )?##i;
     $row =~ s#\(Blood\)(; )?##i;
-    $row =~ s#Food \(.*?\)(; )?#{/: 🍎}#i;
-    $row =~ s#Rapid-acting insulin \(.*?\)(; )?#~{/: 💉}{-1{/:=10 Rapid}}#i;
-    $row =~ s#Long-acting insulin \(.*?\)(; )?#~{/: 💉}{-1{/:=10 Long}}#i;
+    $row =~ s#Food \(.*?\)(; )?#:food:#i;
+    $row =~ s#Rapid-acting insulin \(.*?\)(; )?#:rapid-insulin:#i;
+    $row =~ s#Long-acting insulin \(.*?\)(; )?#:long-insulin:#i;
+    # Collapse two shots of insulin into one diagram to avoid overlapping labels
+    $row =~ s#(:(rapid|long)-insulin:){2}#:insulin:#i;
+    $row =~ s#:food:#{/: 🍎}#i;
+    $row =~ s#:insulin:#{/: 💉}#i;
+    $row =~ s#:rapid-insulin:#~{/: 💉}{-1{/:=10 Rapid}}#i;
+    $row =~ s#:long-insulin:#~{/: 💉}{-1{/:=10 Long}}#i;
 
     # Parse CSV into whitespace-separated tokens to avoid conflicting separators
     $row =~ s#^"(\d{4}-\d{2}-\d{2}) (\d{2}:\d{2}:\d{2})","([\d\.]+)",.*,"(.*?)"$#$1T$2 $3 "$4"#;