reddit.rb

%w{sinatra data_mapper haml sinatra/reloader dm-timestamps time-ago-in-words uri}.each { |lib| require lib}

DataMapper::setup(:default, "sqlite3://#{Dir.pwd}/example.db")

class Link
  include DataMapper::Resource
  property :id, Serial
  property :title, String, :required => true 
  property :url, Text, :required => true, :format => :url 
  property :points, Integer, :default => 0
  property :created_at, Time

  has n, :votes

  attr_accessor :score

  def score
    time_elapsed = (Time.now - self.created_at) / 3600
    ((self.points - 1) / (time_elapsed + 2) ** 1.8).real
  end

  def self.all_sorted_desc
    all.sort_by(&:score).reverse
  end
end

class Vote
  include DataMapper::Resource
	property :id, Serial
	property :ip_address, String
	property :created_at, Time

	belongs_to :link

	validates_uniqueness_of :ip_address, :scope => :link_id, :message => "You have already voted for this link."
end

DataMapper.finalize.auto_upgrade!

get '/' do 
  @links = Link.all :order => :id.desc
  haml :index
end

get '/hot' do
  @links = Link.all_sorted_desc
  haml :index	
end

post '/' do
  Link.create(:title => params[:title], :url => params[:url])
  redirect back
end

put '/:id/vote/:type' do 
  if params[:type].to_i.abs == 1
    l = Link.get params[:id]
		if l.votes.new(:ip_address => request.ip).save
			l.update(:points => l.points + params[:type].to_i)
		end
  end
  redirect back
end 

__END__

@@ layout
%html
  %head
    %link(rel="stylesheet" href="/css/bootstrap.css")
    %link(rel="stylesheet" href="/css/style.css")
  %body
    .container
      #main
        .title Learn Sinatra
        .options  
          %a{:href => ('/')} New 
          | 
          %a{:href => ('/hot')} Hot
        = yield

@@ index
#links-list 
  -@links.each do |l| 
    .row
      .span3
        %span.span
          %form{:action => "#{l.id}/vote/1", :method => "post"}
            %input{:type => "hidden", :name => "_method", :value => "put"}
            %input{:type => "submit", :value => "⇡"}
        %span.points
          #{l.points}
        %span.span
          %form{:action => "#{l.id}/vote/-1", :method => "post"}
            %input{:type => "hidden", :name => "_method", :value=> "put"}
            %input{:type => "submit", :value => "⇣"}        
      .span6
        .row
          %span.link-title
            %h3
              %a{:href => (l.url)} #{l.title}
              .link-host (#{URI.parse(l.url).host})
        .row
          %span.link-age
            Submitted #{l.created_at.ago_in_words} 

#add-link
  %form{:action => "/", :method => "post"}
    %input{:type => "text", :name => "title", :placeholder => "Title"}
    %input{:type => "text", :name => "url", :placeholder => "Url"}
    %input{:type => "submit", :value => "Submit"}