From b574ed25cceab6d6cfac4d61b0ef9ff028f58b6d Mon Sep 17 00:00:00 2001
From: "Peter J. Holzer" <hjp@hjp.at>
Date: Sun, 16 Feb 2020 10:51:30 +0100
Subject: [PATCH] Add --legend-position to tsplot

---
 tsplot | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/tsplot b/tsplot
index 6e09cbc..3ce4b74 100755
--- a/tsplot
+++ b/tsplot
@@ -57,6 +57,7 @@ my $stacked = 0;
 my @yrange;
 my $keeptempfiles;
 my $finalresolution;
+my $legend_position = 'top right';
 
 GetOptions('output_format|output-format=s' => \$output_format,
 	   'log_y|log-y'		   => \$log_y,
@@ -67,6 +68,7 @@ GetOptions('output_format|output-format=s' => \$output_format,
 	   'yrange=s{2}'		   => \@yrange,
 	   'keeptempfiles'		   => \$keeptempfiles,
 	   'finalresolution=i'		   => \$finalresolution,
+	   'legend-position=s'		   => \$legend_position,
           ) 
     or pod2usage(verbose => 0);
 
@@ -76,6 +78,7 @@ binmode STDOUT, ':raw';
 
 my $ts = TimeSeries->new(output_format => $output_format);
 $ts->{keeptempfiles} = 1 if $keeptempfiles;
+$ts->legend_position($legend_position);
 while (<>) {
     chomp;
     my @legend = split($sep);