git-graph: allow user to set height
[u/fanf2/git-graph.git] / git-graph
index 4790965..f6c3ca1 100755 (executable)
--- a/git-graph
+++ b/git-graph
@@ -12,6 +12,7 @@ $0 =~ s{^.*/([^/]+)$}{$1};
 my %opt;
 GetOptions(\%opt, qw{
        cancel|c
+       height|h=i
        overlay|o
        stack|s
 }) or exit 1;
@@ -20,7 +21,7 @@ $opt{overlay} = 1 unless $opt{cancel} or $opt{stack};
 
 my @terminal = GetTerminalSize;
 my $width = $terminal[0] - 11;
-my $height = $terminal[1] - 2;
+my $height = $opt{height} // $terminal[1] - 2;
 
 my %add;
 my %del;