# TwitterShoes.rb
# v0.7 > 09-04-2008
# by pedro mg (http://blog.tquadrado.com)
# TwitterShoes is a ruby script created to be a Twitter (http://www.twitter.com) client, that uses
# Shoes.rb (http://code.whytheluckystiff.net/shoes) to be run on various platforms
# (Linux, MacOSX, Windows). Shoes.rb is a winner !!
# License:
#     Twittershoes.rb is free software; you can redistribute it and/or modify
#     it under the terms of the GNU General Public License as published by the
#     Free Software Foundation; either version 2 of the License, or (at your option)
#     any later version.
#     The Twittershoes.rb is distributed in the hope that it will be useful, but
#     WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
#     FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
#     Please access http://www.fsf.org/ for more GNU General Public License information

# TODO use line 195 to insert your Twitter credentials in this testing version
#

Default_png = <<PNGSTART
\211PNG\r\n\032\n\000\000\000\rIHDR\000\000\0000\000\000\0000\004\003\000\000\000\245,\344\264\000\000\000\001sRGB\000\256\316\034\351\000\000\0000PLTE\207cC\207eJ\211iS\212qb\214vn\214~}\220\207\215\217\220\235\224\233\260\227\244\301\233\257\324\237\267\342\241\277\360\242\304\373\236\311\377\245\313\3731j\275\350\000\000\000\001bKGD\000\210\005\035H\000\000\000\tpHYs\000\000\v\023\000\000\v\023\001\000\232\234\030\000\000\000\atIME\a\330\003\034\003\0172\"\337U\003\000\000\001TIDAT8\313c\020\304\001\030F%\bK000`\225`\016\357H\026\300&\221\375\356\335\333\311\214\230\022\032\357V\244\317\371\035\210!!\320w]\200\201u\377f\210\004\243\022\\\232\345\334\004\240l\314\017F\220\004s\347\256\251\214P\t\211?\016@\222\363\215!PB \372\317\236wMP\t\255\237 \222\365n\002PB\370\334d\345\234\347\020-\002\266?A\f\341{\r@\t\311_\n\002\354@\275`\340\367\002,q~\002P\302\372;\243 \363\271\004\210D\034X\253\320~\240\204\200\317SFA\241\365\r\020\t\333\037p\035\002~_A\022\023 \0226`;D\336\001\355\020\360\275\212\244C\353\227\"\220d{\vt\225\200\3157F\240\313\n \022\354o\003\200\244\324kE\220\253\200Ng{\023\000\r\333}\213\030\005\005j\237\203|\316z\267H\320\373\a\324\353\002\271\257\234\030\325\317O\002\205\225@\355\253\316s\213\301\022\300x\020;\177\262s\337KCp \262\256\271\263]QP\331\330\330\330\304PP\300\363\354\333\323I\320\210\022v\026\020\024\210{\367\356\335\373\211@]\246\251\216\360\250\005\231c\321\001\004\211 \363\030\030Q\342\\\200\001\232\nF\363\a\035$\000|\224\234q\3363+s\000\000\000\000IEND\256B`\202
PNGSTART
# __END__ and DATA global constant are not working under Shoes yet.
# Default_png can move there, later.

require 'rexml/document'
require 'net/http'
require 'yaml'
require 'time'

LIMIT = 140

class Mytime < Time

  def self.elapsed_time(e) # time representation twitter_like, using: ago's
    et = now - parse(e)
    case et
      when 1..60
        "#{et.to_i} secs ago"
      when 60..120
        "#{(et/60).to_i} min ago"
      when 120..3600
        "#{(et/60).to_i} mins ago"
      when 3600..7200
        "#{(et/60/60).to_i} hour ago"
      when 7200..86400
        "#{(et/60/60).to_i} hours ago"
      when 86400..172800
        "#{(et/60/60).to_i} day ago"
      else
        "#{(et/60/60/60).to_i} days ago"
    end
  end

end


class Twitter

  TIMELINE = {
    'me' => '/statuses/friends_timeline.xml',
    'public' => '/statuses/public_timeline.xml',
    'friends' => '/statuses/friends.xml',
    'followers' => '/statuses/followers.xml'
  }
  TIMELINE_ELEMENT = {
    'me' => '/statuses/status',
    'public' => '/statuses/status',
    'friends' => '/users',
    'followers' => '/users',
    'update' => '/status'
  }

  attr_reader :user

  def initialize
    @user, @passwd, @timeline, @state = '', '', 'me', ''
    @path = "#{user_home}/.twittershoes"
    @file = "#{@path}/twitterhoes.yaml"
  end

  def credentials(u,p,n) # user, pass, new user ?
    if n
      @user = u
      @passwd = p
      store_credentials
    else
      defs = YAML::load_file(@file)
      @user = defs[:user]
      @passwd = defs[:passwd]
    end
    return @state
  end

  def store_credentials
    begin
      tree = { :user => @user, :passwd => @passwd }
      if !File.directory?(@path)
        FileUtils.mkdir(@path)
      end
      File.open(@file, 'w') { |f|
        YAML::dump(tree, f)
      }
      @state = [true, 'credentials successfuly stored locally']
    rescue
      @state = [false, 'error storing local credentials']
    end
  end

  def user_home
    # Windows: on IRC, a solution to find Windows user path: ENV['USERPROFILE']
    # nix_platform ? ENV['HOME'] : ENV['USERPROFILE']
    # *nix based:
    if RUBY_PLATFORM =~ /win32/
      if ENV['USERPROFILE']
        if File.exist?(File.join(File.expand_path(ENV['USERPROFILE']), "Application Data"))
          File.join File.expand_path(ENV['USERPROFILE']), "Application Data"
        else
          File.expand_path(ENV['USERPROFILE'])
        end
      else
        File.join File.expand_path(Dir.getwd), "data"
      end
    else
      ENV['HOME']
    end
  end

  def pull_xml
    begin
      Net::HTTP.start('twitter.com') { |http|
        req = Net::HTTP::Get.new(TIMELINE[@timeline])
        req.basic_auth @user, @passwd
        response = http.request(req)
        return response.body
      }
    rescue => e
      # TODO: better Connection Error: #{$!}
      return e
    end
  end

  def twittstack
    stack = []
    doc = REXML::Document.new pull_xml
    doc.elements.each(TIMELINE_ELEMENT[@timeline]) { |element|
      stack << [ element.text("id").to_i,
                  element.text("created_at"),
                  element.text("user/name"),
                  element.text("text"),
                  element.text("user/profile_image_url"),
                  element.text("source"),
                  element.text("truncated"),
                  element.text("user/id"),
                  element.text("user/screen_name"),
                  element.text("user/description"),
                  element.text("user/protected") ]
    }
    return stack
  end

  def destroy_message(msg)
    Net::HTTP.start('twitter.com') { |http|
      req = Net::HTTP::Get.new(msg)
      req.basic_auth @user, @passwd
      response = http.request(req)
      return response
    }
  end

  def post_message(msg)
    url = URI.parse('http://twitter.com/statuses/update.xml')
    req = Net::HTTP::Post.new(url.path)
    req.basic_auth @user, @passwd
    req.set_form_data({'status' => msg})
    res = Net::HTTP.new(url.host, url.port).start { |http| http.request(req) }
    case res
    when Net::HTTPSuccess, Net::HTTPRedirection
      res.body
    else
      res.error!
    end
  end

end


class Tshoe < Shoes
   url '/', :index
   url '/setup', :setup

  def index
    @data = nil
    @t = Twitter.new
    @state = @t.credentials('YOUR_TWITTER_LOGIN', 'YOUR_TWITTER_PASSWORD', true)
    @page = 1
    fetch_data
    listen
  end

  def fetch_data
    @data = @t.twittstack
  end

  def setup
    alert("set me up, please...")
  end

  def twit(id, i, n, sn, t, e)  # twit (id, image, name, screen_name, text, elapsedtime)
    sn == @t.user ? del = link(" x", :underline => false, :stroke => "#732A2A") { @t.destroy_message("/status/destroy/#{id}.xml"); alert("Stadud id:#{id} has been DELETED") } : del = ""
    flow :margin => 5 do
      background "#161616", :radius => 8
      stack :width => 58 do
        image i, :margin => 5, :click => "http://twitter.com/#{sn}"
      end
      stack :width => -58, :margin => 5 do
        l = link(n, :click => "http://twitter.com/#{sn}", :underline => false, :stroke => orange)
        m = link(Mytime.elapsed_time(e), :font => 'smallfont', :size => 6, :stroke => '#6D6D6D', :underline => false, :click => "http://www.twitter.com/#{sn}/statuses/#{id}")
        r = link('←', :underline => false, :stroke => '#183616') { @i_say.text = "@#{sn} " }
        eval "para l, ': ', \"#{t}\", \" \", m, \" \", r, del, :font => 'Arial', :size => 8, :stroke => '#999999'"
      end
    end
  end

  def linkparse(s) # tweet message link parse and conversion to shoes links with eval(uation)
    s.gsub!(/\"/, "'")
    if s.include? "http://"
      r = ""
      s.each(' ') { |e|
        b = e.gsub!(/http:\/\/\S+/, "link('#{e}', :click => '#{e}', :font => 'Arial', :size => 8, :underline => false, :stroke => '#397EAA')")
        b.nil? ? r << e : r << "\", #{b}, \""
      }
      r
    else
      s
    end
  end

  def string_alert # alert message for the number of chars left to the tweet message
    c = (LIMIT-@i_say.text.length)
    @remaining.style :stroke => "#3276BA"
    c > 10 ? (@remaining.style :stroke => orange) : (@remaining.style :stroke => red) if (c < 21)
    c > 0 ? "#{c.to_s} chars" : "Too Long!"
  end

  def upandaway
    @t.post_message(@i_say.text)
    @i_say.text = ''
  end

  def get_thread
    if @data != nil
      # @data.each { |msg| twit(msg[0], remote_image(msg[4]), msg[2], msg[8], linkparse(msg[3]), msg[1]) }
      @data.each { |msg| twit(msg[0], msg[4], msg[2], msg[8], linkparse(msg[3]), msg[1]) }
    else
      m1 = 'fetching twitter data... please wait or press '
      m2 = "link('here', :font => 'Arial', :size => 8, :underline => false, :stroke => '#397EAA') { fetch_data; clear; listen }"
      m = "#{m1}, \", #{m2}, \""
      twit("0", default_twitter_image, "TwitterShoes", "twitershoes", m, Time.now.to_s)
    end
  end

  def default_twitter_image
    # no cache here. Image is always (because rarely) created on-time.
    name = File.join(LIB_DIR, 'twitter_image.png')
    File.open(name, 'wb') do |fout|
      fout.syswrite Default_png
    end
    name
  end

  def listen
    background "#2F2F2F"
    # stack :width => 1.0, :height => -50 do # SHOES TICKET submitted for negative heights inside a page.
    stack :width => 1.0, :height => 500 do 
      background "#2F2F2F"
      get_thread
    end
    flow :width => 1.0, :height => 50 do
      background "#2F2F2F"
      stack :width => -50 do
        @i_say = edit_box "what are you doing ?", :margin => 5, :width => 250, :height => 50, :size => 9 do
          @remaining.replace string_alert
          if @i_say.text[-1] == ?\n
            upandaway
          end
        end
      end
      stack :width => 50 do
        para(link(" Update ", :size => 8, :font => "Arial", :fill => "#4992E6" , :stroke => "#D5E0ED", :underline => false) { upandaway })
        para(link("<  ", :size => 8, :font => "Arial", :stroke => "#3276BA", :underline => false) { alert("previous page (temporarily disabled by Twitter)") },
             "  1  ", 
             link("  >", :size => 8, :font => "Arial", :stroke => "#3276BA", :underline => false) { alert("next page (temporarily disabled by Twitter)") }, 
             :top => 15, :size => 7, :font => "Arial", :stroke => "#3276BA", :underline => false)
        @remaining = para "140", " chars", :top => 30, :size => 6, :font => "Arial", :stroke => "#3276BA"
      end
    end
  end

end


Shoes.app :title => "Twitter needs Shoes", :width => 300, :height => 550, :radius => 12, :resizable => true