worked 0.1.0

data/Rakefile

@@ -0,0 +1,27 @@
+%w[rubygems rake rake/clean fileutils newgem rubigen].each { |f| require f }
+require File.dirname(__FILE__) + '/lib/worked'
+
+# Generate all the Rake tasks
+# Run 'rake -T' to see list of generated tasks (from gem root directory)
+$hoe = Hoe.new('worked', Worked::VERSION) do |p|
+  p.developer('Mirko Stocker', 'me@misto.ch')
+  p.changes              = p.paragraphs_of("History.txt", 0..1).join("\n\n")
+  p.rubyforge_name       = p.name
+  p.extra_deps         = [
+    ['treetop','>= 1.2.4'],
+  ]
+  p.extra_dev_deps = [
+    ['newgem', ">= #{::Newgem::VERSION}"]
+  ]
+
+  p.clean_globs |= %w[**/.DS_Store tmp *.log]
+  path = (p.rubyforge_name == p.name) ? p.rubyforge_name : "\#{p.rubyforge_name}/\#{p.name}"
+  p.remote_rdoc_dir = File.join(path.gsub(/^#{p.rubyforge_name}\/?/,''), 'rdoc')
+  p.rsync_args = '-av --delete --ignore-errors'
+end
+
+require 'newgem/tasks' # load /tasks/*.rake
+Dir['tasks/**/*.rake'].each { |t| load t }
+
+# TODO - want other tests/tasks run by default? Add them to the list
+# task :default => [:spec, :features]

data/bin/worked

@@ -0,0 +1,14 @@
+#!/usr/bin/env ruby
+#
+#  Created by Mirko Stocker on 2009-2-12.
+#  Copyright (c) 2009. All rights reserved.
+
+require File.expand_path(File.dirname(__FILE__) + "/../lib/worked")
+
+require "worked/cli"
+
+CONFIG = File.join(Dir.getwd, ".worked")
+
+File.open(CONFIG, "a") do |file|
+  Worked::CLI.execute(STDOUT, ARGV.join(" "), file)
+end

data/config/website.yml

@@ -0,0 +1,2 @@
+host: misto@rubyforge.org
+remote_dir: /var/www/gforge-projects/worked

data/lib/worked.rb

@@ -0,0 +1,8 @@
+$:.unshift(File.dirname(__FILE__)) unless
+  $:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__)))
+
+require 'worked/inputparser'
+
+module Worked
+  VERSION = '0.1.0'
+end

data/lib/worked/cli.rb

@@ -0,0 +1,37 @@
+require 'optparse'
+require 'worked/recorder'
+
+module Worked
+  class CLI
+    def self.execute(stdout, arguments, file)
+
+      Recorder.new(file).record(arguments)
+
+      #options = {
+      #  :path     => '~'
+      #}
+
+      #parser = OptionParser.new do |opts|
+      #  opts.banner = <<-BANNER.gsub(/^          /,'')
+      #    This application is wonderful because...
+
+      #    Usage: #{File.basename($0)} [options]
+
+      #    Options are:
+      #  BANNER
+      #  opts.separator ""
+      #  opts.on("-p", "--path=PATH", String,
+      #          "This is a sample message.",
+      #          "For multiple lines, add more strings.",
+      #          "Default: ~") { |arg| options[:path] = arg }
+      #  opts.on("-h", "--help",
+      #          "Show this help message.") { stdout.puts opts; exit }
+
+      #  opts.parse!(arguments)
+      #end
+
+      #path = options[:path]
+
+    end
+  end
+end

data/lib/worked/inputgrammar.treetop

@@ -0,0 +1,80 @@
+
+grammar InputGrammar
+
+  rule root
+    time " on " activity
+  end
+
+  rule activity
+    .*
+  end
+
+  rule time
+    time_from / time_in_words / time_range / time_in_digits
+  end
+
+  rule time_from
+    "from " am_pm_time {
+      def from
+        am_pm_time.to_24h
+      end
+    }
+  end
+
+  rule time_range
+    f:am_pm_time " to " t:am_pm_time {
+      def from
+        f.to_24h
+      end
+
+      def to
+        t.to_24h
+      end
+    }
+  end
+
+  rule am_pm_time
+    time_in_digits am_pm:(" am" / " pm" /  "am" / "pm")? {
+      def to_24h
+
+        if methods.include?("am_pm") && am_pm.text_value =~ /pm/
+          return time_in_digits.total + 12.hours
+        end
+
+        time_in_digits.total
+      end
+    }
+  end
+
+  rule time_in_words
+    minutes / hours m:(" "? minutes)? {
+      def total
+	  minutes.to_i.minutes + hours.to_i.hours + m.to_i.minutes
+      end
+    }
+  end
+
+  rule time_in_digits
+    integer m:( ":" integer )? {
+      def total
+	  integer.to_i.hours + m.to_i.minutes
+      end
+    }
+  end
+
+  rule hours
+    integer " "? ( "hour" "s"? / "h" )
+  end
+
+  rule minutes
+    integer " "? ( "minute" "s"? / "m" ) {
+      def total
+        integer.to_i.minutes
+      end
+    }
+  end
+
+  rule integer
+    [0-9]*
+  end
+end

data/lib/worked/inputparser.rb

@@ -0,0 +1,52 @@
+require 'active_support'
+require 'treetop'
+require 'worked/inputgrammar'
+
+class Treetop::Runtime::SyntaxNode
+
+  # Remove all clutter ('hour', ':', etc) from the
+  # time and turn into an integer
+  def to_i
+    text_value.gsub(/\D/, '').to_i
+  end
+
+  def from
+    time_to_seconds_from_day(DateTime.now - total)
+  end
+
+  def to
+    time_to_seconds_from_day(DateTime.now)
+  end
+
+  def time_to_seconds_from_day t
+    t.hour.hours + t.min.minutes
+  end
+
+  # Default value so we don't have to care whether
+  # there really is a minute component
+  def minutes
+    0
+  end
+end
+
+class InputParser
+
+  def self.parse source
+
+    root = InputGrammarParser.new.parse(source)
+
+    from, to = root.time.from, root.time.to
+
+    if from > to
+      from -= 24.hours
+    end
+
+    now      = DateTime.now
+    midnight = DateTime.new(now.year, now.month, now.day)
+
+    [midnight + from.seconds, midnight + to.seconds, root.activity.text_value]
+  end
+end
+
+
+

data/lib/worked/recorder.rb

@@ -0,0 +1,13 @@
+require 'worked/inputparser'
+
+class Recorder
+
+  def initialize out
+    @out = out
+  end
+
+  def record line
+    from, to, activity = InputParser.parse(line)
+    @out << "#{ from }\t#{ to }\t#{ activity }\n"
+  end
+end

data/script/console

@@ -0,0 +1,10 @@
+#!/usr/bin/env ruby
+# File: script/console
+irb = RUBY_PLATFORM =~ /(:?mswin|mingw)/ ? 'irb.bat' : 'irb'
+
+libs =  " -r irb/completion"
+# Perhaps use a console_lib to store any extra methods I may want available in the cosole
+# libs << " -r #{File.dirname(__FILE__) + '/../lib/console_lib/console_logger.rb'}"
+libs <<  " -r #{File.dirname(__FILE__) + '/../lib/worked.rb'}"
+puts "Loading worked gem"
+exec "#{irb} #{libs} --simple-prompt"

data/script/destroy

@@ -0,0 +1,14 @@
+#!/usr/bin/env ruby
+APP_ROOT = File.expand_path(File.join(File.dirname(__FILE__), '..'))
+
+begin
+  require 'rubigen'
+rescue LoadError
+  require 'rubygems'
+  require 'rubigen'
+end
+require 'rubigen/scripts/destroy'
+
+ARGV.shift if ['--help', '-h'].include?(ARGV[0])
+RubiGen::Base.use_component_sources! [:rubygems, :newgem, :newgem_theme, :test_unit]
+RubiGen::Scripts::Destroy.new.run(ARGV)

data/script/generate

@@ -0,0 +1,14 @@
+#!/usr/bin/env ruby
+APP_ROOT = File.expand_path(File.join(File.dirname(__FILE__), '..'))
+
+begin
+  require 'rubigen'
+rescue LoadError
+  require 'rubygems'
+  require 'rubigen'
+end
+require 'rubigen/scripts/generate'
+
+ARGV.shift if ['--help', '-h'].include?(ARGV[0])
+RubiGen::Base.use_component_sources! [:rubygems, :newgem, :newgem_theme, :test_unit]
+RubiGen::Scripts::Generate.new.run(ARGV)

data/script/txt2html

@@ -0,0 +1,77 @@
+#!/usr/bin/env ruby
+
+require 'rubygems'
+begin
+  require 'newgem'
+rescue LoadError
+  puts "\n\nGenerating the website requires the newgem RubyGem"
+  puts "Install: gem install newgem\n\n"
+  exit(1)
+end
+require 'redcloth'
+require 'syntax/convertors/html'
+require 'erb'
+require File.dirname(__FILE__) + '/../lib/worked.rb'
+
+version  = Worked::VERSION
+download = 'http://rubyforge.org/projects/worked'
+
+class Fixnum
+  def ordinal
+    # teens
+    return 'th' if (10..19).include?(self % 100)
+    # others
+    case self % 10
+    when 1: return 'st'
+    when 2: return 'nd'
+    when 3: return 'rd'
+    else    return 'th'
+    end
+  end
+end
+
+class Time
+  def pretty
+    return "#{mday}#{mday.ordinal} #{strftime('%B')} #{year}"
+  end
+end
+
+def convert_syntax(syntax, source)
+  return Syntax::Convertors::HTML.for_syntax(syntax).convert(source).gsub(%r!^<pre>|</pre>$!,'')
+end
+
+if ARGV.length >= 1
+  src, template = ARGV
+  template ||= File.join(File.dirname(__FILE__), '/../website/template.rhtml')
+  
+else
+  puts("Usage: #{File.split($0).last} source.txt [template.rhtml] > output.html")
+  exit!
+end
+
+template = ERB.new(File.open(template).read)
+
+title = nil
+body = nil
+File.open(src) do |fsrc|
+  title_text = fsrc.readline.gsub(/^=/, "")
+  body_text = fsrc.read
+  syntax_items = []
+  body_text.gsub!(%r!<(pre|code)[^>]*?syntax=['"]([^'"]+)[^>]*>(.*?)</\1>!m){
+    ident = syntax_items.length
+    element, syntax, source = $1, $2, $3
+    syntax_items << "<#{element} class='syntax'>#{convert_syntax(syntax, source)}</#{element}>"
+    "syntax-temp-#{ident}"
+  }
+  body_text.gsub!(/^===/, "h3.")
+  body_text.gsub!(/^==/, "h2.")
+  body_text.gsub!(/^- /, "* ")
+  title = RedCloth.new(title_text).to_html.gsub(%r!<.*?>!,'').strip
+  body = RedCloth.new(body_text).to_html
+  body.gsub!(%r!(?:<pre><code>)?syntax-temp-(\d+)(?:</code></pre>)?!){ syntax_items[$1.to_i] }
+end
+stat = File.stat(src)
+created = stat.ctime
+modified = stat.mtime
+
+$stdout << template.result(binding)

data/tasks/website.rake

@@ -0,0 +1,4 @@
+desc 'Generate website files'
+task :website_generate => :ruby_env do
+  sh %{ #{RUBY_APP} script/txt2html README.rdoc > website/index.html}
+end

data/test/test_grammar.rb

@@ -0,0 +1,68 @@
+require File.dirname(__FILE__) + '/test_helper.rb'
+
+class TestGrammar < Test::Unit::TestCase
+
+  def test_hours
+    assert_equal 5, hours("5 hours")
+    assert_equal 5, hours("5hours")
+    assert_equal 5, hours("5 h")
+    assert_equal 5, hours("5h")
+    assert_equal 5, hours("5")
+  end
+
+  def test_minutes
+    assert_equal 10, minutes("5 h 10 minutes")
+    assert_equal 10, minutes("5 h 10 m")
+    assert_equal 10, minutes("5 h 10m")
+    assert_equal 10, minutes("5h10m")
+    assert_equal 10, minutes("5:10")
+  end
+
+  def test_hour_ranges
+    assert_equal  4.hours, range("13 to 17")
+    assert_equal  4.hours, range("1 to 5")
+    assert_equal  4.hours, range("1pm to 5pm")
+    assert_equal  4.hours, range("1 pm to 5 pm")
+    assert_equal 16.hours, range("1 am to 5 pm")
+    assert_equal  2.hours, range("11 to 1pm")
+    assert_equal  2.hours, range("11pm to 1am")
+  end
+
+  def test_hour_minute_ranges
+    assert_equal 4.hours + 30.minutes, range("1 to 5:30")
+    assert_equal 4.hours + 10.minutes, range("13:30 to 17:40")
+  end
+
+  def test_with_activity
+    assert_equal "Testing", activity("5 hours on Testing")
+    assert_equal "Testing and Refactoring", activity("1 to 5 on Testing and Refactoring")
+  end
+
+  def test_from_time
+    assert_in_delta 2.hours, range("from #{DateTime.now.hour - 2}:#{DateTime.now.min}"), 10 #seconds of delta
+  end
+
+  def activity source
+    parse(source).last
+  end
+
+  def range source
+    res = parse("#{source} on X")
+    ((res[1] - res[0]) * 24).hours
+  end
+
+  def hours source
+    res = parse("#{source} on X")
+    res[1].hour - res[0].hour
+  end
+
+  def minutes source
+    res = parse("#{source} on X")
+    res[1].min - res[0].min
+  end
+
+  def parse source
+    InputParser.parse(source)
+  end
+
+end

data/test/test_helper.rb

@@ -0,0 +1,15 @@
+require 'stringio'
+require 'test/unit'
+require File.dirname(__FILE__) + '/../lib/worked'
+
+module WorkedTestHelper
+  def extract_tuple log
+
+    s_from, s_to, activity = /(\S*)\s+(\S*)\s+(.*)/.match(log).captures
+
+    from = DateTime.parse(s_from)
+    to   = DateTime.parse(s_to)
+
+    [ ((to - from) * 24).hours, activity ]
+  end
+end