From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sun, 11 Jun 2023 10:02:10 +0000 (+0200)
Subject: correct gnuplot columns if timefmt has spaces
X-Git-Url: http://git.rot13.org/?p=MojoFacets.git;a=commitdiff_plain;h=930f8527c112615ec45556c5f533d1f229ed6fd4

correct gnuplot columns if timefmt has spaces
---

diff --git a/lib/MojoFacets/Gnuplot.pm b/lib/MojoFacets/Gnuplot.pm
index 14a39ed..1af3cc1 100644
--- a/lib/MojoFacets/Gnuplot.pm
+++ b/lib/MojoFacets/Gnuplot.pm
@@ -32,10 +32,16 @@ sub index {
 
 	if ( -e "$dir/$url" ) {
 
+		my $timefmt = $self->param('timefmt');
+
+		my $spaces = $timefmt;
+		$spaces =~ s/\S//g;
+		$spaces = length( $spaces );
+
 		my @plot;
 		foreach ( 1 .. $#$columns ) {
 			my $title = $columns->[$_];
-			my $n = $_ + 1;
+			my $n = $_ + 1 + $spaces;
 			push @plot, qq|"$dir/$url" using 1:$n title "$title" with $with| unless $hide_columns->{ $title };
 		}
 
@@ -46,7 +52,7 @@ set output '$dir/$url.png'
 
 		|;
 
-		if ( my $timefmt = $self->param('timefmt') ) {
+		if ( $timefmt ) {
 			$g .= qq|
 
 set xdata time