reset the project. sinatra app. flickr stuff pulled from toolmantim's…

… toolmantim.

app.rb

@@ -0,0 +1,122 @@
+require 'rubygems'
+require 'sinatra'
+require 'haml'
+
+API_KEY = 'c6dd75f50c46aeb23918d4dd857220fe'
+USER_ID = '24905543@N00'
+USER_URL = 'timriley'
+FEATURE_TAG = 'study' # should be 'feature'
+
+# From http://github.com/toolmantim/toolmantim
+require 'net/http'
+require 'hpricot'
+require 'uri'
+require 'delegate'
+
+class Flickr
+  def recent
+    call("search", "per_page" => 9)/:photo
+  end
+  def featured
+    call("search", "tags" => FEATURE_TAG, "per_page" => 500)/:photo
+  end
+  def photo(id)
+    call("getInfo", "photo_id" => id).search(:photo).first
+  end
+  def sizes(photo)
+    call("getSizes", "photo_id" => photo[:id])/:size
+  end
+  def neighbours(photo)
+    featured = featured()
+    [photo, featured].flatten.each {|p| def p.==(other); self[:id] == other[:id]; end }
+    index = featured.index(photo)
+    index && [index != 0 && featured[index-1], featured[index+1]]
+  end
+  def call(method, params)
+    res = Net::HTTP.get(URI.parse("http://api.flickr.com/services/rest/?method=flickr.photos.#{method}&api_key=#{API_KEY}&user_id=#{USER_ID}#{params.collect{|k,v|"&#{k}=#{v}"}}"))
+    return Hpricot.XML(res) if !res.include?('stat="fail"')
+  end
+end
+
+class PrefetchedFlickr < Flickr
+  def initialize
+    @featured_thread = create_featured_fetcher_thread
+  end
+  def featured_with_prefetch # override
+    STDERR.puts "Returning cached flickr photos"
+    @featured_thread["photos"]
+  end
+  alias :featured_without_prefetch :featured
+  alias :featured :featured_with_prefetch
+
+  private
+
+  def create_featured_fetcher_thread
+    Thread.new do
+      Thread.current["photos"] = []
+      while true do
+        Thread.current["photos"] = featured_without_prefetch
+        STDERR.puts "Fetched #{Thread.current["photos"].length} photos"
+        sleep(900)
+      end
+    end
+  end
+end
+
+$flickr = PrefetchedFlickr.new
+
+helpers do
+  def flickr_src(photo, size=nil)
+    "http://farm#{photo[:farm]}.static.flickr.com/#{photo[:server]}/#{photo[:id]}_#{photo[:secret]}#{size && "_#{size}"}.jpg"
+  end
+  def flickr_url(photo)
+    "http://www.flickr.com/photos/#{USER_URL}/#{photo[:id]}/"
+  end
+  def flickr_square(photo)
+    %(<img src="#{flickr_src(photo, "s")}" width="75" height="75" />)
+  end
+  def photo_path(photo)
+    "/photos/#{photo[:id]}"
+  end
+  def pluralize(number, singular)
+    case number.to_i
+    when 0
+      "No #{singular}s"
+    when 1
+      "1 #{singular}"
+    else
+      "#{number} #{singular}s"
+    end
+  end
+end
+
+get '/' do
+  @photo = $flickr.featured[0]
+  @sizes = $flickr.sizes(@photo)
+  haml :photo
+end
+
+get '/archive' do
+  @recent_photos = $flickr.recent
+  @feature_photos = $flickr.featured
+  haml :index
+end
+
+get '/photos/:id' do
+  @photo = $flickr.photo(params[:id]) || raise(Sinatra::NotFound)
+  @sizes = $flickr.sizes(@photo)
+  @prev_photo, @next_photo = $flickr.neighbours(@photo)
+  haml :photo
+end
+
+# TODO
+# not_found do
+#   content_type 'text/html'
+#   haml :not_found
+# end
+# 
+# error do
+#   @error = request.env['sinatra.error'].to_s
+#   content_type 'text/html'
+#   haml :error
+# end unless Sinatra::Application.environment == :development

views/index.haml

@@ -0,0 +1,13 @@
+%h1 Photos
+
+%h2 Recent
+%ul
+  - for photo in @recent_photos
+    %li
+      %a{:href => flickr_url(photo)}= flickr_square(photo)
+
+%h2 Featured
+%ul
+  - for photo in @feature_photos
+    %li
+      %a{:href => photo_path(photo)}= flickr_square(photo)

views/layout.haml

@@ -0,0 +1,9 @@
+!!! Strict
+%html{"xml:lang" => "en", :lang => "en", :xmlns => "http://www.w3.org/1999/xhtml"}
+%head
+  %meta{:content => "text/html; charset=utf-8", "http-equiv" => "Content-Type"}/
+  %title= @page_title || "flickr portfolio"
+
+  %body
+    = yield
+

views/photo.haml

@@ -0,0 +1,36 @@
+- title = (@photo/:title).text.strip
+- title = "Untitled" if title.length == 0
+- @page_title = "#{title}"
+
+- photo_size = @sizes.find {|s| s[:label] == "Large"} || @sizes.find {|s| s[:label] == "Original"}
+
+.photo
+  %a.main{:href => flickr_url(@photo)}
+    %img{:src => photo_size[:source], :width => photo_size[:width], :height => photo_size[:height], :alt => @photo[:title]}/
+
+  %h1
+    %a{:href => flickr_url(@photo)}= (@photo/:title).text.strip
+
+  .description
+    - description_paras = (@photo/:description).text.strip.split("\n\n")
+    - for para in description_paras
+      %p= para
+
+  %p.comments
+    %a{:href => flickr_url(@photo) + "#DiscussPhoto", :title => "Read and leave comments on Flickr" }
+      = pluralize((@photo/:comments).text, "comment")
+
+  %p.tags
+    Tags:
+    = (@photo/:tag).map {|t| %(<a rel="tag" href="http://www.flickr.com/photos/toolmantim/tags/#{t.html}" title="Other flickr photos tagged with '#{t[:raw]}'">#{t[:raw]}</a>) }.join(", ")
+
+  .more-photos
+    %ul
+      - if @prev_photo
+        %li.prev
+          %a{:href => photo_path(@prev_photo), :title => @prev_photo[:title]}= flickr_square(@prev_photo)
+      %li.current
+        %span= flickr_square(@photo)
+      - if @next_photo
+        %li.next
+          %a{:href => photo_path(@next_photo), :title => @next_photo[:title]}= flickr_square(@next_photo)