thumblemonks-grudge 0.1.0

data/lib/grudge/config.rb

@@ -0,0 +1,23 @@
+require 'ostruct'
+
+module Grudge
+  module Config
+    class ConfigFile
+      def initialize(config_file, env=:development)
+        @env_config = OpenStruct.new(YAML.load(config_file)[env.to_s])
+      end
+
+      def method_missing(meth, *args, &blk)
+        @env_config.send(meth)
+      end
+    end # ConfigFile
+
+    def self.fire_me_up(env)
+      @config = ConfigFile.new(File.new('config/grudge.yml'), env)
+    end
+
+    def self.method_missing(meth, *args, &blk)
+      @config.send(meth)
+    end
+  end # Config
+end # Grudge

data/lib/grudge/database.rb

@@ -0,0 +1,15 @@
+require 'data_mapper'
+require 'data_objects'
+require 'dm-validations'
+
+module Grudge
+  module Database
+    def self.fire_me_up
+      puts "Connecting to database and migrating"
+      db_config = Grudge::Config.database
+      db_config = db_config.symbolize_keys if db_config.kind_of?(Hash)
+      DataMapper.setup(:default, db_config)
+      DataMapper.auto_upgrade!
+    end
+  end # Database
+end # Grudge

data/lib/grudge/extensions.rb

@@ -0,0 +1,18 @@
+module Grudge
+  module Sinatra
+    module Extensions
+      def catch_all_css
+        get('/stylesheets/*.css') {sass params["splat"].first.to_sym}
+      end
+
+      # When you don't want to do anything special, but load 
+      def get_obvious(name)
+        get "/#{name}" do
+          title = name.to_s
+          haml name.to_sym
+        end
+      end
+
+    end # Extensions
+  end # Sinatra
+end # Grudge

data/lib/grudge/helpers.rb

@@ -0,0 +1,28 @@
+module Grudge
+  module Sinatra
+    module Helpers
+      def set_title(msg) @title = msg; end
+      def title; "Grudge - #{@title}"; end
+
+      def anchor(name, url, options={})
+        defaults = {:href => url}
+        options_str = hash_to_attributes(defaults.merge(options))
+        %Q[<a #{options_str}>#{name}</a>]
+      end
+
+      def stylesheet_include(name, options={})
+        defaults = {:href => "/stylesheets/#{name}.css", :media => "screen",
+          :rel => "stylesheet", :type => "text/css"}
+        options_str = hash_to_attributes(defaults.merge(options))
+        %Q[<link #{options_str}/>]
+      end
+
+      def repository_name; Grudge::Repository.origin_uri.to_s; end
+
+    private
+      def hash_to_attributes(options)
+        options.map {|k,v| "#{k}=\"#{v}\""}.join(' ')
+      end
+    end # Helpers
+  end # Sinatra
+end # Grudge

data/lib/grudge/repository.rb

@@ -0,0 +1,47 @@
+require 'git'
+require 'logger'
+
+module Grudge
+  module Repository
+
+    def self.origin_uri
+      URI.parse(Grudge::Config.repo["origin"])
+    end
+
+    def self.master_path; Grudge::Config.repo["master"]; end
+
+    def self.open
+      @repo ||= repo(:open, master_path)
+    end
+    
+    def self.open_or_clone
+      return open if File.exists?(master_path)
+      repo(:clone, origin_uri, master_path)
+    end
+
+    def self.pull
+      open.pull('origin', 'origin/master', 'grudge origin pull')
+    end
+
+    def self.object(sha)
+      open.object(sha)
+    end
+
+    def self.latest_commits_since(since=nil, &block)
+      log_opts = {}
+      log_opts[:between] = [since, ''] if since
+      pull
+      open.lib.log_commits(log_opts).map do |commit|
+        yield object(commit) if block_given?
+      end
+    end
+
+  private
+    # ensuring that we always append the logger to the options
+    def self.repo(command, *args)
+      @logger ||= Logger.new(Grudge::Config.log)
+      args << {:log => @logger}
+      Git.send(command, *args)
+    end
+  end # Repository
+end # Grudge

data/lib/models/commit.rb

@@ -0,0 +1,55 @@
+class Commit
+  include DataMapper::Resource
+  property :id, Serial
+  property :sha, String, :length => 40, :nullable => false,
+    :unique_index => true
+  property :committed_at, DateTime, :nullable => false
+  property :score, Integer, :default => 0
+  property :created_at, DateTime
+  property :updated_at, DateTime
+
+  has n, :votes
+
+  def awesome!; vote!(Vote.awesome); end
+  def awesome_score; vote_score(:score.gt); end
+  def awesome?; score > 0; end
+
+  def suck!; vote!(Vote.suck); end
+  def suck_score; vote_score(:score.lt); end
+  def suck?; score < 0; end
+
+  # Helpers
+
+  def self.last; first(:order => [:committed_at.desc]); end
+  def self.recent; first(20, :order => [:committed_at.desc]); end
+  def self.popular; first(20, :order => [:score.desc]); end
+  def self.unpopular; first(20, :order => [:score.asc]); end
+  def self.search(sha)
+    object = Grudge::Repository.object(sha)
+    first(:sha => object.sha) if object
+  end
+
+  # Repository delegation methods
+
+  def author_name; repository_object.author.name; end
+  def message; repository_object.message; end
+  
+  def self.download!
+    last_commit = last
+    last_sha = last_commit ? last_commit.sha : nil
+    Grudge::Repository.latest_commits_since(last_sha) do |repo_commit|
+      Commit.create!(:sha => repo_commit.sha,
+        :committed_at => repo_commit.committer_date)
+    end
+  end
+
+private
+  def vote!(vote)
+    votes << vote
+    update_attributes({:score => @score + vote.score})
+  end
+
+  def vote_score(condition); votes.sum(:score, condition => 0); end
+  
+  def repository_object; @object ||= Grudge::Repository.object(sha); end
+end

data/lib/models/vote.rb

@@ -0,0 +1,16 @@
+class Vote
+  include DataMapper::Resource
+  property :id, Serial
+  property :commit_id, Integer, :nullable => false
+  property :score, Integer, :nullable => false
+  property :created_at, DateTime
+
+  belongs_to :commit
+
+  def self.awesome; self.new(:score => 1); end
+  def self.suck; self.new(:score => -1); end
+
+  def awesome?; score > 0; end
+  def suck?; score < 0; end
+
+end

data/lib/views/application.haml

@@ -0,0 +1,26 @@
+%html
+  %head
+    %title= title
+    = stylesheet_include :application
+  %body
+    #header
+      %span Grudge
+      %span.slogan commit some fun
+
+    #nav
+      = anchor('Recent', "/")
+      = anchor('Popular', "/popular")
+      = anchor('Unpopular', "/unpopular")
+      %span#searchbox
+        Find a Commit
+        %form.box{:method => "post", :action => '/search'}
+          %input{:type => 'text', :name => "query", :maxlength => 30, :size => 40}
+      
+    %p
+      Repository:
+      = repository_name
+      
+    #content= yield
+    #footer.clear
+      © 2008 - Thumble Monks -
+      = Grudge::VERSION

data/lib/views/application.sass

@@ -0,0 +1,110 @@
+!serif = times
+!sans = Arial
+
+!light_text_color = #999
+!medium_text_color = #666
+
+!highlight_color = #ffc
+
+!link_color = #24b
+
+body
+  :background-color white
+  :width 900px
+  :margin 0 auto
+
+.clear
+  :clear both
+
+a, a:link, a:visited
+  :color = !link_color
+
+#header
+  :font-family = !serif
+  :font-size 180%
+  :margin-top 1ex
+  :padding-bottom .5ex
+  :border-bottom 1px solid #999
+  .slogan
+    :font-family = !sans
+    :color green
+    :font-size 60%
+
+#footer
+  :font-family = !sans
+  :font-size 70%
+  :padding-top 1ex
+
+#nav
+  :padding-top 1ex
+  :font-family = !sans
+  :font-size 85%
+  #searchbox
+    :margin-left 5em
+    form
+      :display inline
+
+#content
+  :font-family = !sans
+  
+  h2
+    :margin 1ex 0ex
+    :font-weight normal
+    :font-family = !serif
+    :color = !medium_text_color
+
+  h3
+    :margin 0
+    :font-weight normal
+    :font-family = !serif
+    :color = !medium_text_color
+  
+  ul
+    :list-style-type none
+    :padding 0
+    li
+      :margin 0 0 1em 0
+      :padding 0
+      &.commit
+        .awesome
+          :color green
+        .suck
+          :color #e24
+        .vote
+          :float left
+          :text-align right
+          :width 3em
+          :padding 0 1ex .5ex 1ex
+          :font-size 175%
+          :color #555
+        .info
+          :font-size 90%
+          :float left
+          :width 50%
+          :border-left 1px dotted #ddd
+          :padding 0 0 0 1em
+          .date
+            :color #69c
+            :font-size 90%
+            :width 15em
+            :float left
+          .author
+            :float left
+            :font-size 90%
+          .sha
+            :color = !light_text_color
+            :font-size 90%
+            a
+              :color = !light_text_color
+        .nav
+          :float left
+          :border-left 1px dotted #ddd
+          :padding 0 0 0 1em
+          :width 25%
+          :font-size 70%
+        .message
+          :margin-top .5ex
+          :background-color #f8f8f8
+          :font-family = !serif
+          pre
+            :padding 1ex

data/lib/views/index.haml

@@ -0,0 +1,28 @@
+%h2 Commits
+%ul
+  - @commits.each do |commit|
+    %li.commit
+      .vote
+        .net
+          - if commit.awesome?
+            %span.awesome= commit.score
+          - elsif commit.suck?
+            %span.suck= commit.score
+          - else
+            = commit.score
+      .info
+        .date= commit.committed_at.strftime("%b %m, %Y %X")
+        .author= commit.author_name
+        .sha.clear= anchor(commit.sha, "/#{commit.sha}")
+      .nav
+        %div
+          Score:
+          %span.awesome= commit.awesome_score
+          \/
+          %span.suck= commit.suck_score
+        Vote:
+        = anchor('Awesome', "/#{commit.sha}/awesome")
+        = anchor('Suck', "/#{commit.sha}/suck")
+      .message.clear
+        %pre= commit.message
+

data/lib/views/not_found.haml

@@ -0,0 +1 @@
+I don't even know you anymore

data/lib/views/show.haml

@@ -0,0 +1,25 @@
+%ul
+  %li.commit
+    .vote
+      .net
+        - if @commit.awesome?
+          %span.awesome= @commit.score
+        - elsif @commit.suck?
+          %span.suck= @commit.score
+        - else
+          = @commit.score
+    .info
+      .date= @commit.committed_at.strftime("%b %m, %Y %X")
+      .author= @commit.author_name
+      .sha.clear= @commit.sha
+    .nav
+      %div
+        Score:
+        %span.awesome= @commit.awesome_score
+        \/
+        %span.suck= @commit.suck_score
+      Vote:
+      = anchor('Awesome', "/#{@commit.sha}/awesome")
+      = anchor('Suck', "/#{@commit.sha}/suck")
+    .message.clear
+      %pre= @commit.message

data/test/commit_test.rb

@@ -0,0 +1,226 @@
+require File.join(File.dirname(__FILE__), 'test_helper')
+
+class CommitTest < Test::Unit::TestCase
+  context "required attributes" do
+    setup do
+      @commit = Commit.new
+      @commit.valid?
+      @errors = @commit.errors
+    end
+    
+    should "include sha" do
+      assert_equal ["Sha must not be blank"], @errors[:sha]
+    end
+    
+    should "include committed at" do
+      assert_equal ["Committed at must not be blank"], @errors[:committed_at]
+    end
+  end # required attributes
+
+  context "unique attributes" do
+    setup do
+      @commit = Factory(:commit)
+    end
+  
+    should "include unique sha" do
+      begin
+        Factory(:commit, :sha => @commit.sha)
+        flunk("Should hav raised a unique exception for :sha")
+      rescue Exception => e
+        assert_match %r[not unique], e.to_s
+      end
+    end
+  end # unique attributes
+
+  context "default values" do
+    setup { @commit = Commit.new }
+
+    should "be zero for score" do
+      assert_equal 0, @commit.score
+    end
+  end # default values
+  
+  context "associations" do
+    setup { @commit = Factory(:commit) }
+    should "have n votes" do
+      assert_kind_of DataMapper::Associations::OneToMany::Proxy, @commit.votes
+      assert_equal (1.0/0), Commit.relationships[:votes].options[:max]
+    end
+  end # associations
+
+  context "scoring" do
+    context "awesome!" do
+      setup do
+        @commit = Factory(:commit)
+        @commit.awesome!
+      end
+
+      should_change "Vote.count", :by => 1
+
+      should "add a new positive vote" do
+        assert @commit.votes.all?(&:awesome?)
+      end
+
+      should "be accessible seperate from net score" do
+        assert_equal 1, @commit.awesome_score
+      end
+
+      should "update net score" do
+        assert_equal 1, @commit.score
+      end
+
+      should "be awesome?" do
+        assert @commit.awesome?
+      end
+
+      should "not suck?" do
+        deny @commit.suck?
+      end
+    end # awesome!
+
+    context "suck!" do
+      setup do
+        @commit = Factory(:commit)
+        @commit.suck!
+      end
+
+      should_change "Vote.count", :by => 1
+
+      should "add a new negative vote" do
+        assert @commit.votes.all?(&:suck?)
+      end
+
+      should "be accessible seperate from net score" do
+        assert_equal -1, @commit.suck_score
+      end
+
+      should "update net score" do
+        assert_equal -1, @commit.score
+      end
+
+      should "not be awesome?" do
+        deny @commit.awesome?
+      end
+
+      should "suck?" do
+        assert @commit.suck?
+      end
+    end # suck!
+
+    context "with equal mix" do
+      setup do
+        @commit = Factory(:commit)
+        @commit.awesome!
+        @commit.suck!
+      end
+
+      should_change "Vote.count", :by => 2
+
+      should "be neither awesome or sucky" do
+        deny @commit.awesome?
+        deny @commit.suck?
+      end
+
+      should "have zero score" do
+        assert_equal 0, @commit.score
+      end
+    end # with equal mix
+  end # scoring
+
+  context "helpers" do
+    setup do
+      @awesome = Factory(:commit, :committed_at => (Time.now - 7200))
+      @awesome.awesome!
+
+      @suck = Factory(:commit, :committed_at => (Time.now - 3600))
+      @suck.suck!
+
+      @neutral = Factory(:commit, :committed_at => (Time.now))
+    end
+
+    should "return most recently committed commits" do
+      assert_equal [@neutral, @suck, @awesome], Commit.recent
+    end
+
+    should "return most popular commits" do
+      assert_equal [@awesome, @neutral, @suck], Commit.popular
+    end
+    
+    should "return most unpopular commits" do
+      assert_equal [@suck, @neutral, @awesome], Commit.unpopular
+    end
+
+    should "return last committed record" do
+      assert_equal @neutral, Commit.last
+    end
+  end # helpers
+
+  context "search" do
+    context "for existing object" do
+      setup do
+        @commit = Factory(:commit)
+        @search_key = 'abc'
+        Grudge::Repository.expects(:object).with(@search_key).
+          returns(O(:sha => @commit.sha))
+      end
+
+      should "find commit based on partial id" do
+        assert_equal @commit, Commit.search(@search_key)
+      end
+    end # for existing object
+
+    context "for nonexistant object" do
+      setup do
+        @search_key = 'abc'
+        Grudge::Repository.expects(:object).with(@search_key).returns(nil)
+      end
+
+      should "find nothing if sha does not match anything" do
+        assert_nil Commit.search(@search_key)
+      end
+    end # for nonexistant object
+  end # search
+
+  context "unstored values" do
+    setup do
+      @commit = Factory(:commit)
+      Grudge::Repository.expects(:object).with(@commit.sha).
+        returns(repository_commit)
+    end
+
+    should "delegate author name" do
+      assert_equal "Barney", @commit.author_name
+    end
+
+    should "delegate commit message" do
+      assert_equal "This is the shiznit!", @commit.message
+    end
+  end # unstored values
+  
+  context "download" do
+    setup do
+      @repo_commits = (1..10).map {repository_commit}
+    end
+
+    context "when there is one existing commit" do
+      setup do
+        last_commit = Factory(:commit)
+        Grudge::Repository.stubs(:latest_commits_since).with(last_commit.sha).
+          multiple_yields(*@repo_commits)
+        Commit.download!
+      end
+
+      should_change "Commit.count", :by => 11
+    end # when there is one existing commit
+
+    context "when there are no existing commits" do
+      setup do
+        Grudge::Repository.expects(:latest_commits_since).with(nil).
+          multiple_yields(*@repo_commits)
+        Commit.download!
+      end
+
+      should_change "Commit.count", :by => 10
+    end # when there are no existing commits
+  end # download
+end