#!/usr/bin/perl

# calm -- calendar manager
#
# Copyright (C) 2003 William Lawrence Jarrold <address@hidden>
# Copyright (C) 2004 Joshua Nathaniel Pritikin <address@hidden
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

use strict;
use warnings;
use Term::ANSIColor;

# TODO:
#
# handle YYYY-JUN-DD style dates
# sanity check blobs which look like dates
# option to list entries which are more than 1 year in the future
# maybe use Date::Manip to offer a command line date calculator?
#   calm --calc "today + 3 business days"
# option to turn off the color
# .calmrc config file to specific the path to the DB and default options
# operation manual
# --version
# holiday packs (which don't need DONE)
#   #include "jewish.holiday" etc
# FUTURE entries which are only showed on request
#

# Change as appropriate
my $calendar_filename = "$ENV{HOME}/Todo/calendar.text";

my $future = $ARGV[0] || 1;

my @wdays = qw(Sun Mon Tue Wed Thu Fri Sat);

sub get_date {
  my ($tm) = @_;
  my ($mday, $mon, $year, $wday) = (localtime($tm))[3,4,5,6];
  (sprintf("%02d-%02d-%02d", 1900 + $year, 1 + $mon, $mday), $wdays[$wday])
}

my ($yesterday, $day0) = get_date(time - 24 * 60 * 60);
my ($today, $day1)     = get_date(time);
my ($tomorrow, $day2)  = get_date(time + 24 * 60 * 60);

my @fut;
for (my $d=1; $d <= $future; $d++) {
  my ($date) = get_date(time + 24 * 60 * 60 * $d);
  push @fut, $date;
}

print "Yesterday is $day0 $yesterday
Today     is ".color('bold')."$day1 $today".color('reset')."
Tomorrow  is $day2 $tomorrow\n";

open (INFILE, "sort $calendar_filename |")
    or die "Couldn't open $calendar_filename for reading: $!\n";

while (my $l = <INFILE>){
  next if $l !~ /^(\w+\-\w+\-\w+\b)/;
  my $date = $1;
  if ($l =~ /\bDONE\b/) {
    next
  } elsif ($yesterday gt $date) {
    print color('red').$l.color('reset');
  } elsif ($date eq $yesterday or $date eq $today) {
    print color('green').$l.color('reset');
  }
  for my $morrow (@fut) {
    print $l if $date eq $morrow;
  }
}