Pratt 1.5.6

data/spec/whence_spec.rb

@@ -0,0 +1,54 @@
+require 'spec_helper'
+
+describe Whence do
+
+  context "scopes" do
+    it "last_unended should return nil if there aren't any unended" do
+      Whence.expects(:first).with(:conditions => "end_at IS NULL", :order => "start_at DESC")
+      Whence.last_unended
+    end
+  end
+
+  context "instances" do
+    before :each do
+      @whence = Whence.new
+    end
+
+    it "parse a string argument to stop!" do
+      when_to = 'yesterday'
+      when_to = '2009-10-06 13:48:58'
+      expectation = Chronic.parse when_to
+
+      @whence.expects(:save!)
+      @whence.expects(:reload)
+      # don't work I'm not sure why
+      # @whence.expects(:end_at).with expectation
+      # Chronic.expects(:parse).with when_to
+
+      @whence.stop! when_to
+      @whence.end_at.should == expectation
+    end
+
+    it "doesn't parse a non-string thing on stop!" do
+      when_to = Chronic.parse 'last week'
+      Chronic.expects(:parse).never
+      @whence.expects(:save!)
+      @whence.expects(:reload)
+      @whence.stop! when_to
+      @whence.end_at.should == when_to
+    end
+
+    it "should change! to project correctly" do
+      project_name = 'proj'
+      @whence.expects(:save!)
+      @whence.expects(:reload)
+      @whence.change! project_name
+      @whence.project.name.should == project_name
+    end
+
+    it "should have a special output for start_at.to_s" do
+      @whence.start_at = Time.parse('Wed Oct 7 10:57:21 PDT 2009')
+      @whence.start_at.to_s.should eql('Wed 07 Oct 2009 10:57:21') 
+    end
+  end
+end

data/tasks/pratt.rb

@@ -0,0 +1,84 @@
+# -*- ruby -*-
+
+namespace :pratt do 
+
+  task :establish_connection do
+    Pratt.connect!( ENV['PRATT_ENV'] || 'development' )
+    Pratt.root 'models', '*.rb' do |model|
+      require model
+    end
+  end
+
+  desc "DB Quick access"
+  namespace :db do
+
+    desc "Show App detail."
+    task :app => :establish_connection do 
+      puts App.last.inspect
+    end
+
+    namespace :schema do
+      desc "Run schema file" 
+      task :run => :establish_connection do
+        raise "Missing required file argument" unless ENV.include? 'file'
+        schema_change = File.open( ENV['file'] ).read
+
+        ActiveRecord::Schema.define do
+          ActiveRecord::Base.transaction do
+            begin
+              eval schema_change
+            rescue Exception => e
+              puts "There was an error:
+              #{e.inspect}.
+              Rolling back!"
+              raise ActiveRecord::Rollback
+            end
+          end
+        end
+      end
+    end
+  end
+
+  namespace :generate do
+    desc "Genarate model"
+    task :model do
+      raise "Missing required klass parameter" unless ENV.include? 'klass'
+      klass = ENV['klass'].downcase.singularize
+      outfile = File.join(Pratt.root('models'), "#{klass}.rb")
+      template = ''
+      Pratt.root('templates', 'model.eruby') {|model_gen| template = File.read(model_gen) }
+
+      eruby = Erubis::Eruby.new(template)
+      unless File.exists? outfile
+        File.open(outfile, 'w') {|file| file.write eruby.result(:klass => klass) }
+      else
+        puts "Model '#{klass}' already exists"
+      end
+
+      Rake::Task["generate:spec"].execute
+    end
+
+    desc "Generate spec test"
+    task :spec do
+      klass = ENV['klass'].downcase.singularize
+      raise "Missing required klass parameter" unless ENV.include? 'klass'
+
+      outpath = File.join(Pratt.root('spec'),      "#{klass}_spec.rb")
+      inpath  = File.join(Pratt.root('templates'), "spec.eruby")
+
+      if File.exists? outpath
+        puts "Spec '#{klass}' already exists"
+      else
+        File.open outpath, 'w' do |outfile|
+          File.open inpath do |infile|
+            eruby = Erubis::Eruby.new( infile.read )
+            outfile.write eruby.result( :klass => klass )
+          end
+        end
+      end
+    end
+  end
+
+end
+
+# vim: syntax=Ruby

data/templates/model.eruby

@@ -0,0 +1,12 @@
+class <%= klass.capitalize.singularize %> < ActiveRecord::Base
+
+  class << self
+    def migrate up = :up
+      ActiveRecord::Schema.define do
+        create_table :<%= klass.downcase.pluralize %> do |t|
+        end if up == :up
+        drop_table :<%= klass.downcase.pluralize %> if up == :down
+      end
+    end
+  end
+end

data/templates/spec.eruby

@@ -0,0 +1,8 @@
+require 'spec_helper'
+require 'pratt'
+
+describe <%= klass.capitalize.singularize %> do
+  it "has a test" do
+    flunk
+  end
+end

data/views/env.rb

@@ -0,0 +1,22 @@
+#!/usr/bin/ruby
+require 'tk'
+require 'tkextlib/tile'
+require 'optparse'
+require 'ostruct'
+
+root = TkRoot.new { title "Pratt Reminder" }
+
+max = ENV.inject(0) {|x,(h,v)| x = h.to_s.length if h.to_s.length > x; x }
+ENV.sort.each do |globl, val| 
+  Tk::Tile::Label.new(root) do
+    text "%#{max}.#{max}s: %0.20s"% [globl, val]
+  end.pack(:side => 'top', :fill => 'y')
+end
+
+Pratt.constants.each do |cnst|
+  Tk::Tile::Label.new(root) do
+    text cnst
+  end.pack(:side => 'top', :fill => 'y')
+end
+
+Tk.mainloop

data/views/graph.eruby

@@ -0,0 +1,20 @@
+Project detail
+<% if scale %>
+  by <%= scale.red %> from
+  <%= when_to.send("beginning_of_#{scale}").strftime(Pratt::FMT).blue %> to <%= when_to.send("end_of_#{scale}").strftime(Pratt::FMT).blue %>
+<% end %>
+     <%= padded_to_max('  ') << 'dys'.underline << ' '*5 << 'hrs'.underline << ' '*5 << 'min'.underline %>
+<%= ( '-'.or '·')*60 %>
+
+<% @projects.each do |proj| %>
+  <% if show_all or ( !show_all and proj.time_spent(scale, when_to) != 0.0 ) %>
+    <%= padded_to_max(proj.name) %><%= ('|'.or '⋮') %> <%= Pratt.totals(proj.time_spent(scale, when_to)) %>
+  <% end %>
+<% end %>
+
+<%= ( '-'.or '·' )*60 %>
+
+    <%= padded_to_max('Total') %> <%= ("%0.2f"%@scaled_total).underline %> hrs
+    <%= Pratt.percent(Project.primary.name,  @primary.to_f,        @scaled_total, :green) %>
+    <%= Pratt.percent(Project.off.name,      @off_total.to_f,      @scaled_total, :yellow) %>
+    <%= Pratt.percent('Other',               @rest_total.to_f,     @scaled_total, :red) %>

data/views/invoice.eruby

@@ -0,0 +1,148 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
+<HTML>
+<HEAD>
+	<META HTTP-EQUIV="CONTENT-TYPE" CONTENT="text/html; charset=utf-8">
+	<TITLE></TITLE>
+	<META NAME="GENERATOR" CONTENT="OpenOffice.org 3.0  (Linux)">
+	<META NAME="AUTHOR" CONTENT=" ">
+	<META NAME="CREATED" CONTENT="20090930;9550000">
+	<META NAME="CHANGED" CONTENT="20091001;21332000">
+	<META NAME="Info 2" CONTENT="">
+	<META NAME="Info 3" CONTENT="">
+	<META NAME="Info 4" CONTENT="">
+	<META NAME="_TemplateID" CONTENT="TC100726791033">
+	<STYLE TYPE="text/css">
+	<!--
+		@page { margin-left: 0.5in; margin-right: 0.5in; margin-top: 0.5in; margin-bottom: 0.51in }
+		P { margin-bottom: 0.08in; direction: ltr; color: #000000; text-align: left; widows: 2; orphans: 2 }
+		P.western { font-family: "Calibri", sans-serif; font-size: 12pt; so-language: en-US }
+		P.cjk { font-family: "Times New Roman", serif; font-size: 12pt; so-language: zxx }
+		P.ctl { font-family: "Calibri", sans-serif; font-size: 12pt; so-language: ar-SA }
+	-->
+	</STYLE>
+</HEAD>
+<BODY LANG="en-US" TEXT="#000000" DIR="LTR">
+<CENTER>
+	<TABLE WIDTH=720 BORDER=0 CELLPADDING=5 CELLSPACING=0 STYLE="page-break-before: always">
+		<COL WIDTH=351>
+		<COL WIDTH=349>
+		<TR VALIGN=TOP>
+			<TD ROWSPAN=2 WIDTH=351 HEIGHT=43>
+				<P STYLE="margin-top: 0.1in; margin-bottom: 0in"><B>QualitySmith LLC</B></P>
+				<P STYLE="margin-bottom: 0in"><FONT SIZE=2 STYLE="font-size: 9pt">106 N 2<SUP>nd</SUP> </FONT> </P>
+				<P STYLE="margin-bottom: 0in"><FONT SIZE=2 STYLE="font-size: 9pt">Walla Walla, WA 99362</FONT></P>
+				<P STYLE="margin-bottom: 0in"><FONT SIZE=2 STYLE="font-size: 9pt">Phone 509-522-0222</FONT></P>
+				<P><FONT SIZE=2 STYLE="font-size: 9pt">Fax </FONT> </P>
+			</TD>
+			<TD WIDTH=349>
+				<P ALIGN=RIGHT><FONT COLOR="#7f7f7f"><FONT SIZE=5 STYLE="font-size: 20pt"><B>INVOICE</B></FONT></FONT></P>
+			</TD>
+		</TR>
+		<TR>
+			<TD WIDTH=349 VALIGN=BOTTOM>
+				<P ALIGN=RIGHT><FONT SIZE=1 STYLE="font-size: 8pt">Date: <%= when_to.send("beginning_of_#{scale}").strftime(Pratt::INVOICE_FMT) %> to <%= when_to.send("end_of_#{scale}").strftime(Pratt::INVOICE_FMT) %></FONT></P>
+			</TD>
+		</TR>
+	</TABLE>
+</CENTER>
+<P CLASS="western" STYLE="margin-bottom: 0in"><BR>
+</P>
+<CENTER>
+	<TABLE WIDTH=720 BORDER=0 CELLPADDING=5 CELLSPACING=0>
+		<COL WIDTH=350>
+		<COL WIDTH=350>
+		<TR VALIGN=TOP>
+			<TD WIDTH=350 HEIGHT=86>
+				<P STYLE="margin-bottom: 0in"><FONT SIZE=1 STYLE="font-size: 8pt"><B>To:</B></FONT></P>
+				<P STYLE="margin-bottom: 0in"><FONT SIZE=2 STYLE="font-size: 9pt">Scott Noel-Hemming</FONT></P>
+				<P STYLE="margin-bottom: 0in"><FONT SIZE=2 STYLE="font-size: 9pt">Frogstarr78 Software</FONT></P>
+				<P STYLE="margin-bottom: 0in"><FONT SIZE=2 STYLE="font-size: 9pt">312 NW 7<SUP>th</SUP> </FONT> </P>
+				<P STYLE="margin-bottom: 0in"><FONT SIZE=2 STYLE="font-size: 9pt">Milton-Freewater, OR, 97862</FONT></P>
+				<P><FONT SIZE=2 STYLE="font-size: 9pt">509.200.9190</FONT></P>
+			</TD>
+			<TD WIDTH=350>
+				<P><BR>
+				</P>
+			</TD>
+		</TR>
+	</TABLE>
+</CENTER>
+<P CLASS="western" STYLE="margin-bottom: 0in"><BR>
+</P>
+<CENTER>
+	<TABLE WIDTH=722 BORDER=1 BORDERCOLOR="#000000" CELLPADDING=3 CELLSPACING=0 RULES=ROWS>
+		<COLGROUP>
+			<COL WIDTH=408>
+			<COL WIDTH=96>
+		</COLGROUP>
+		<COLGROUP>
+			<COL WIDTH=96>
+		</COLGROUP>
+		<COLGROUP>
+			<COL WIDTH=97>
+		</COLGROUP>
+		<TR>
+			<TD WIDTH=408 HEIGHT=12>
+				<P ALIGN=CENTER><FONT SIZE=1 STYLE="font-size: 8pt"><B>DESCRIPTION</B></FONT></P>
+			</TD>
+			<TD WIDTH=96>
+				<P ALIGN=CENTER><FONT SIZE=1 STYLE="font-size: 8pt"><B>HOURS</B></FONT></P>
+			</TD>
+			<TD WIDTH=96>
+				<P ALIGN=CENTER><FONT SIZE=1 STYLE="font-size: 8pt"><B>RATE</B></FONT></P>
+			</TD>
+			<TD WIDTH=97>
+				<P ALIGN=CENTER><FONT SIZE=1 STYLE="font-size: 8pt"><B>AMOUNT</B></FONT></P>
+			</TD>
+		</TR>
+		<% @projects.each do |project| %>
+      <TR>
+        <TD WIDTH=408 HEIGHT=13>
+          <P><%= project.name %></P>
+        </TD>
+        <TD WIDTH=96>
+          <P ALIGN=RIGHT><%= project.time_spent(scale, when_to) %></P>
+        </TD>
+        <TD WIDTH=96>
+          <P ALIGN=RIGHT><%= project.payment.pretty_print %></P>
+        </TD>
+        <TD WIDTH=97>
+          <P ALIGN=RIGHT><FONT SIZE=2><%= project.amount(scale, when_to) %></FONT></P>
+        </TD>
+      </TR>
+		<% end %>
+		<TR>
+			<TD WIDTH=408 HEIGHT=13 VALIGN=TOP>
+				<P CLASS="western"><BR>
+				</P>
+			</TD>
+			<TD COLSPAN=2 WIDTH=198>
+				<P ALIGN=RIGHT><FONT SIZE=1 STYLE="font-size: 8pt">TOTAL</FONT></P>
+			</TD>
+			<TD WIDTH=97>
+				<P ALIGN=RIGHT><FONT SIZE=2><%= @total %></FONT></P>
+			</TD>
+		</TR>
+	</TABLE>
+</CENTER>
+<P CLASS="western" STYLE="margin-bottom: 0in"><BR>
+</P>
+<CENTER>
+	<TABLE WIDTH=720 BORDER=0 CELLPADDING=8 CELLSPACING=0>
+		<COL WIDTH=704>
+		<TR>
+			<TD WIDTH=704 HEIGHT=90 VALIGN=TOP>
+				<P><FONT SIZE=2 STYLE="font-size: 9pt">Make all checks payable to Frogstarr78 Software</FONT></P>
+			</TD>
+		</TR>
+		<TR>
+			<TD WIDTH=704 HEIGHT=13>
+				<P ALIGN=CENTER><FONT SIZE=1 STYLE="font-size: 8pt"><B>Thank you for your business!</B></FONT></P>
+			</TD>
+		</TR>
+	</TABLE>
+</CENTER>
+<P CLASS="western" STYLE="margin-bottom: 0in"><BR>
+</P>
+</BODY>
+</HTML>

data/views/main.rb

@@ -0,0 +1,92 @@
+#!/usr/bin/ruby
+require 'tk'
+require 'tkextlib/tile'
+require 'optparse'
+require 'ostruct'
+
+opts = OpenStruct.new
+opts.projects = []
+opts.current  = -1
+opts.env      = :development
+
+ARGV.options do |opt|
+  opt.on('-e', '--environment ENVIRON', String, "Environment to run under.") do |env|
+    opts.env      = env
+  end
+  opt.on('-p x,y,z', "--projects x,y,z", Array, "List of projects to display.") do |projs|
+    opts.projects = projs
+  end
+  opt.on('-c', '--current CURRENT', String, "Set the current task.") do |cur|
+    opts.current  = opts.projects.index(cur)
+  end
+  opt.parse!
+end
+
+if opts.projects.empty?
+  raise 'No Projects' if ARGV.empty?
+  opts.projects = ARGV.split(',')
+end
+
+opts.current = opts.projects.index(opts.current) if opts.current == -1
+
+root = TkRoot.new { title "Pratt Main" }
+
+button_holder        = Tk::Tile::Frame.new(root){ padding "5 5 5 5" }
+button_holder_top    = Tk::Tile::Frame.new(button_holder) { padding "5 5 5 5" }
+
+project_combo  = Tk::Tile::TCombobox.new(button_holder_top)
+project_combo.values = opts.projects
+project_combo.current = opts.current
+project_combo.pack('side' => 'bottom', 'fill' => 'y')
+
+change = proc {
+  Process.detach(   
+    fork { system("ruby bin/pratt.rb  --change '#{project_combo.get}' --begin '#{project_combo.get}' --unlock") } 
+  )
+  exit
+}
+quit = proc {
+  Process.detach(
+    fork { system("ruby bin/pratt.rb  --end '#{project_combo.get}' --unlock --quit") }
+  )
+  exit
+}
+start = proc {
+  Process.detach(
+    fork { system("ruby bin/pratt.rb  --begin '#{project_combo.get}' --unlock") }
+  )
+  exit
+}
+
+Tk::Tile::Label.new(button_holder_top) { text "What will you be working on?" }.pack('side' => 'top', :fill => 'y')
+
+button_holder_bottom = Tk::Tile::Frame.new(button_holder) { padding "5 5 5 5" }
+TkButton.new(button_holder_bottom) do 
+  text 'Start'
+  command start
+  underline 0
+end.pack :side => 'left', :fill => 'y'
+root.bind("Alt-s", start)
+#root.bind("Return", start)
+
+TkButton.new(button_holder_bottom) do 
+  text 'Change'
+  command change
+  underline 0
+end.pack :side => 'left', :fill => 'y'
+root.bind("Alt-c", change)
+
+TkButton.new(button_holder_bottom) do 
+  text 'Quit'
+  command quit
+  underline 0
+end.pack :side => 'right', :fill => 'y'
+root.bind("Alt-q", quit)
+root.bind("Control-q", quit)
+root.bind("Destroy", quit)
+
+button_holder_top.pack(   :side => 'top'   , :fill => 'y')
+button_holder_bottom.pack(:side => 'bottom', :fill => 'y')
+button_holder.pack(       :side => 'top',    :fill => 'y')
+
+Tk.mainloop