#!/usr/bin/ruby
require 'tk'
require 'tkextlib/tile'
require 'optparse'
require 'ostruct'

opts = OpenStruct.new
opts.env          = :development
opts.project_name = ''
opts.start_time   = ''
opts.project_time = ''

ARGV.options do |opt|
  opt.on('-e', '--environment ENVIRON', String, "Environment to run under.") do |env|
    opts.env     = env
  end
  opt.on('-p', '--project PROJECT', String, "Set the current task.") do |proj|
    opts.project_name = proj
  end
  opt.on('-s', '--start START_TIME', String, "Set the current task.") do |time|
    opts.start_time = time
  end
  opt.on('-t', '--project_time PROJECT_TIME', String, "Set the current task.") do |time|
    opts.project_time = time
  end
  opt.parse!
end

yes = proc {
  c = fork { system("ruby bin/pratt.rb --restart '#{opts.project_name}' --unlock") }
  Process.detach(c)
  exit 
}
adjust = proc {
  c = fork { system("ruby bin/pratt.rb --end '#{opts.project_name}' --unlock --gui") }
  Process.detach(c)
  exit 
}
ignore = proc {
  Process.detach(
    fork { system("ruby bin/pratt.rb --unlock") }
  )
  exit 
}

root = TkRoot.new { title "Pratt Reminder" }

frm = Tk::Tile::Frame.new(root) { padding "5 5 5 5" }
top_frm = Tk::Tile::Frame.new(frm) { padding "5 5 5 5" }

Tk::Tile::Label.new(top_frm) do
  text "Have you been working on: "
end.pack(:side => 'top', :fill => 'y')

Tk::Tile::Label.new(top_frm) do
  text opts.project_name
end.pack(:side => 'top', :fill => 'y')

Tk::Tile::Label.new(top_frm) do
  text "started:
  #{opts.start_time}
total time:
  #{opts.project_time.gsub(/\e\[[0-9]+m/, '')}."
end.pack(:side => 'bottom', :fill => 'y')

botm_frm = Tk::Tile::Frame.new(frm) { padding "5 5 5 5" }
TkButton.new(botm_frm) do
  text "Yes"
  command yes
  underline 0
end.pack('side' => 'left', :fill => 'y')
root.bind("Alt-y", yes)
#root.bind("Return", yes)

TkButton.new(botm_frm) do
  text "Ignore"
  command ignore
  underline 0
end.pack('side' => 'right', :fill => 'y')
root.bind("Alt-i", ignore)
root.bind("Escape", ignore)

TkButton.new(botm_frm) do
  text "Adjust"
  command adjust
  underline 0
end.pack('side' => 'right', :fill => 'y')
root.bind("Alt-a", adjust)

top_frm.pack( :side => 'top',    :fill => 'y')
botm_frm.pack(:side => 'bottom', :fill => 'y')
frm.pack(     :side => 'top',    :fill => 'y')

Tk.mainloop