#!/usr/bin/perl

BEGIN { print "Loading Libraries.\n"; }

use strict;
use Gtk2 -init;
use Gtk2::GladeXML;
use DateTime;
use Date::Manip;
use DateTime::Format::DateManip;
use DateTime::Format::Duration;

my $alarms = {};
#use Net::DBus::GLib;
#use Net::DBus::Dumper;

my $hms_formater = DateTime::Format::Duration->new(
  pattern => "%H:%M:%S"
);


BEGIN { print "Starting application.\n"; }

print "Initializing Glade UI.\n";
my $gladexml = Gtk2::GladeXML->new('timer.glade');
$gladexml->signal_autoconnect_from_package('main');
my $alarm_entry = $gladexml->get_widget('alarm_entry'); 

sub add_alarm_click {
  my $alarm_time = $alarm_entry->get_text;
  my $dm = ParseDate($alarm_time);
  my $dt = DateTime::Format::DateManip->parse_datetime($dm);
  $alarms->{$alarm_time} = $dt;
  update_current_alarms();
}

sub update_current_alarms {

}