From 930f8527c112615ec45556c5f533d1f229ed6fd4 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Sun, 11 Jun 2023 12:02:10 +0200 Subject: [PATCH] correct gnuplot columns if timefmt has spaces --- lib/MojoFacets/Gnuplot.pm | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) 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 -- 2.20.1