my $opt_mode = 'month';
my $opt_nocolor = 0;
+my $opt_forcecolor = 0;
my $opt_start;
my $opt_end;
my $cfg;
'quarter|q' => sub {$opt_mode = 'quarter'},
'month|m' => sub {$opt_mode = 'month'},
'no-color|nocolor|raw' => \$opt_nocolor,
+ 'force-color' => \$opt_forcecolor,
'start' => \$opt_start,
'end' => \$opt_end)
or die("Error in command line arguments\n");
die "Cannot read config file\n" unless $cfg;
+$opt_nocolor = !(-t STDOUT) unless $opt_forcecolor;
+
if (!defined $opt_start || !defined $opt_end) {
calculate_start_end @ARGV;
}