ruby-tumblr 0.0.1

data/History.txt

@@ -0,0 +1,4 @@
+== 0.0.1 2007-08-20
+
+* 1 major enhancement:
+  * Initial release

data/License.txt

@@ -0,0 +1,56 @@
+Ruby is copyrighted free software by Yukihiro Matsumoto <matz@netlab.jp>.
+You can redistribute it and/or modify it under either the terms of the GPL
+(see the file GPL), or the conditions below:
+
+  1. You may make and give away verbatim copies of the source form of the
+     software without restriction, provided that you duplicate all of the
+     original copyright notices and associated disclaimers.
+
+  2. You may modify your copy of the software in any way, provided that
+     you do at least ONE of the following:
+
+       a) place your modifications in the Public Domain or otherwise
+          make them Freely Available, such as by posting said
+	  modifications to Usenet or an equivalent medium, or by allowing
+	  the author to include your modifications in the software.
+
+       b) use the modified software only within your corporation or
+          organization.
+
+       c) give non-standard binaries non-standard names, with
+          instructions on where to get the original software distribution.
+
+       d) make other distribution arrangements with the author.
+
+  3. You may distribute the software in object code or binary form,
+     provided that you do at least ONE of the following:
+
+       a) distribute the binaries and library files of the software,
+	  together with instructions (in the manual page or equivalent)
+	  on where to get the original distribution.
+
+       b) accompany the distribution with the machine-readable source of
+	  the software.
+
+       c) give non-standard binaries non-standard names, with
+          instructions on where to get the original software distribution.
+
+       d) make other distribution arrangements with the author.
+
+  4. You may modify and include the part of the software into any other
+     software (possibly commercial).  But some files in the distribution
+     are not written by the author, so that they are not under these terms.
+
+     For the list of those files and their copying conditions, see the
+     file LEGAL.
+
+  5. The scripts and library files supplied as input to or produced as 
+     output from the software do not automatically fall under the
+     copyright of the software, but belong to whomever generated them, 
+     and may be sold commercially, and may be aggregated with this
+     software.
+
+  6. THIS SOFTWARE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR
+     IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
+     WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+     PURPOSE.

data/Manifest.txt

@@ -0,0 +1,16 @@
+History.txt
+License.txt
+Manifest.txt
+README.txt
+Rakefile
+lib/tumblr.rb
+lib/tumblr/version.rb
+scripts/txt2html
+setup.rb
+test/test_helper.rb
+test/test_ruby-tumblr.rb
+website/index.html
+website/index.txt
+website/javascripts/rounded_corners_lite.inc.js
+website/stylesheets/screen.css
+website/template.rhtml

data/README.txt

@@ -0,0 +1,6 @@
+README for ruby-tumblr
+======================
+ruby-tumblr is a library for tumblr API.
+
+Copyright (c) 2007 Keita Yamaguchi
+

data/Rakefile

@@ -0,0 +1,123 @@
+require 'rubygems'
+require 'rake'
+require 'rake/clean'
+require 'rake/testtask'
+require 'rake/packagetask'
+require 'rake/gempackagetask'
+require 'rake/rdoctask'
+require 'rake/contrib/rubyforgepublisher'
+require 'fileutils'
+require 'hoe'
+
+include FileUtils
+require File.join(File.dirname(__FILE__), 'lib', 'tumblr', 'version')
+
+AUTHOR = 'Keita Yamaguchi'  # can also be an array of Authors
+EMAIL = "keita.yamaguchi@gmail.com"
+DESCRIPTION = "ruby-tumblr is a library for tumblr API."
+GEM_NAME = 'ruby-tumblr' # what ppl will type to install your gem
+
+@config_file = "~/.rubyforge/user-config.yml"
+@config = nil
+def rubyforge_username
+  unless @config
+    begin
+      @config = YAML.load(File.read(File.expand_path(@config_file)))
+    rescue
+      puts <<-EOS
+ERROR: No rubyforge config file found: #{@config_file}"
+Run 'rubyforge setup' to prepare your env for access to Rubyforge
+ - See http://newgem.rubyforge.org/rubyforge.html for more details
+      EOS
+      exit
+    end
+  end
+  @rubyforge_username ||= @config["username"]
+end
+
+RUBYFORGE_PROJECT = 'ruby-tumblr' # The unix name for your project
+HOMEPATH = "http://#{RUBYFORGE_PROJECT}.rubyforge.org"
+DOWNLOAD_PATH = "http://rubyforge.org/projects/#{RUBYFORGE_PROJECT}"
+
+NAME = "ruby-tumblr"
+REV = nil 
+# UNCOMMENT IF REQUIRED: 
+# REV = `svn info`.each {|line| if line =~ /^Revision:/ then k,v = line.split(': '); break v.chomp; else next; end} rescue nil
+VERS = Tumblr::VERSION::STRING + (REV ? ".#{REV}" : "")
+CLEAN.include ['**/.*.sw?', '*.gem', '.config', '**/.DS_Store']
+RDOC_OPTS = ['--quiet', '--title', 'ruby-tumblr documentation',
+    "--opname", "index.html",
+    "--line-numbers", 
+    "--main", "README",
+    "--inline-source"]
+
+class Hoe
+  def extra_deps 
+    @extra_deps.reject { |x| Array(x).first == 'hoe' } 
+  end 
+end
+
+# Generate all the Rake tasks
+# Run 'rake -T' to see list of generated tasks (from gem root directory)
+hoe = Hoe.new(GEM_NAME, VERS) do |p|
+  p.author = AUTHOR 
+  p.description = DESCRIPTION
+  p.email = EMAIL
+  p.summary = DESCRIPTION
+  p.url = HOMEPATH
+  p.rubyforge_name = RUBYFORGE_PROJECT if RUBYFORGE_PROJECT
+  p.test_globs = ["test/**/test_*.rb"]
+  p.clean_globs |= CLEAN  #An array of file patterns to delete on clean.
+  
+  # == Optional
+  p.changes = p.paragraphs_of("History.txt", 0..1).join("\n\n")
+  p.extra_deps = [['tzinfo', '>= 0.3.3']]
+  #p.spec_extras = {}    # A hash of extra values to set in the gemspec.
+end
+
+CHANGES = hoe.paragraphs_of('History.txt', 0..1).join("\n\n")
+PATH    = (RUBYFORGE_PROJECT == GEM_NAME) ? RUBYFORGE_PROJECT : "#{RUBYFORGE_PROJECT}/#{GEM_NAME}"
+hoe.remote_rdoc_dir = File.join(PATH.gsub(/^#{RUBYFORGE_PROJECT}\/?/,''), 'rdoc')
+
+desc 'Generate website files'
+task :website_generate do
+  Dir['website/**/*.txt'].each do |txt|
+    sh %{ ruby scripts/txt2html #{txt} > #{txt.gsub(/txt$/,'html')} }
+  end
+end
+
+desc 'Upload website files to rubyforge'
+task :website_upload do
+  host = "#{rubyforge_username}@rubyforge.org"
+  remote_dir = "/var/www/gforge-projects/#{PATH}/"
+  local_dir = 'website'
+  sh %{rsync -aCv #{local_dir}/ #{host}:#{remote_dir}}
+end
+
+desc 'Generate and upload website files'
+task :website => [:website_generate, :website_upload, :publish_docs]
+
+desc 'Release the website and new gem version'
+task :deploy => [:check_version, :website, :release] do
+  puts "Remember to create SVN tag:"
+  puts "svn copy svn+ssh://#{rubyforge_username}@rubyforge.org/var/svn/#{PATH}/trunk " +
+    "svn+ssh://#{rubyforge_username}@rubyforge.org/var/svn/#{PATH}/tags/REL-#{VERS} "
+  puts "Suggested comment:"
+  puts "Tagging release #{CHANGES}"
+end
+
+desc 'Runs tasks website_generate and install_gem as a local deployment of the gem'
+task :local_deploy => [:website_generate, :install_gem]
+
+task :check_version do
+  unless ENV['VERSION']
+    puts 'Must pass a VERSION=x.y.z release version'
+    exit
+  end
+  unless ENV['VERSION'] == VERS
+    puts "Please update your version.rb to match the release version, currently #{VERS}"
+    exit
+  end
+end
+
+

data/lib/tumblr/version.rb

@@ -0,0 +1,9 @@
+module Tumblr #:nodoc:
+  module VERSION #:nodoc:
+    MAJOR = 0
+    MINOR = 0
+    TINY  = 1
+
+    STRING = [MAJOR, MINOR, TINY].join('.')
+  end
+end

data/lib/tumblr.rb

@@ -0,0 +1,375 @@
+#!/usr/bin/ruby
+
+require "net/http"
+require "uri"
+require "rexml/document"
+require "tzinfo"
+require "time"
+
+class Tumblr
+  class Data
+    attr_accessor :tumblelog, :posts
+    
+    def initialize(doc = nil)
+      if doc
+        @tumblelog = Tumblelog.new(REXML::XPath.first(doc, "//tumblelog"))
+        @posts = Posts.new(REXML::XPath.first(doc, "//posts"), @tumblelog.timezone)
+      end
+    end
+    
+    def self.load(path)
+      xml.each do |post|
+        case post.attributes["type"]
+        when "regular"
+          Regular.new()
+        when "quote"
+          Quote.new(post)
+        end
+      end
+    end
+
+    def save(path)
+      File.open(path, "w") do |file|
+        doc = REXML::Document.new
+        root = doc.add_element "ruby-tumblr", {"version" => "0.1"}
+        root.elements << @tumblelog.to_xml if @tumblelog
+        root.elements << @posts.to_xml if @posts
+        doc.write(file)
+      end
+    end
+
+    def <<(other)
+      @tumblelog = other.tumblelog unless @tumblelog
+      @posts ? @posts << other.posts : @posts = other.posts
+    end
+
+    class Tumblelog
+      attr_accessor :name, :timezone, :cname, :title, :description
+
+      def initialize(elt)
+        @name = elt.attributes["name"]
+        @timezone = TZInfo::Timezone.get(elt.attributes["timezone"])
+        @cname = elt.attributes["cname"]
+        @title = elt.attributes["title"]
+        @description = elt.attributes["description"]
+      end
+
+      def to_xml
+        elt = REXML::Element.new("tumblelog")
+        elt.attributes["name"] = @name
+        elt.attributes["timezone"] = @timezone.name
+        elt.attributes["cname"] = @cname
+        elt.attributes["title"] = @title
+        elt.text = description
+        return elt
+      end
+    end
+
+    class Posts < Array
+      attr_accessor :total, :start, :type
+
+      def initialize(elt, tz)
+        @total = elt.attributes["total"].to_i
+        @start = elt.attributes["start"].to_i if elt.attributes.has_key? "start"
+        @type = elt.attributes["type"]
+        
+        elt.elements.each("post") do |e|
+          push((case e.attributes["type"]
+           when "regular"; Regular
+           when "quote"; Quote
+           when "photo"; Photo
+           when "link"; Link
+           when "video"; Video
+           when "conversation"; Conversation
+          end).new(e, tz))
+        end
+      end
+
+      def to_xml
+        elt = REXML::Element.new("posts")
+        elt.attributes["total"] = @total
+        elt.attributes["type"] = @type
+        each do |post|
+          elt.elements << post.to_xml
+        end
+        return elt
+      end
+    end
+
+    class Post
+      attr_reader :postid, :url, :date, :bookmarklet
+      
+      def initialize(elt, tz)
+        @postid = elt.attributes["id"]
+        @url = elt.attributes["url"]
+        @date = Time.parse(elt.attributes["date"] + tz.strftime("%Z"))
+        @bookmarklet = (elt.attributes["bookmarklet"] == "true")
+        @timezone = tz
+      end
+
+      def to_xml
+        elt = REXML::Element.new("post")
+        elt.attributes["postid"] = @postid
+        elt.attributes["date"] = @date.strftime("%a, %d %b %Y %X")
+        elt.attributes["bookmarklet"] = "true" if @bookmark 
+        elt.attributes["url"] = @url
+        return elt
+      end
+    end
+
+    class Regular < Post
+      attr_accessor :title, :body
+      
+      def initialize(elt, tz)
+        super
+        @title = elt.elements["regular-title"].text if elt.elements["regular-title"]
+        @body = elt.elements["regular-body"].text if elt.elements["regular-body"]
+      end
+      
+      def to_xml
+        elt = super
+        title = elt.add_element("regular-title")
+        title.text = @title
+        body = elt.add_element("regular-body")
+        body.text = @body
+        return elt
+      end
+    end
+
+    class Quote < Post
+      attr_accessor :text, :source
+      
+      def initialize(elt, tz)
+        super
+        @text = elt.elements["quote-text"].text
+        @source = elt.elements["quote-source"].text
+      end
+      
+      def to_xml
+        elt = super
+        et = elt.add_element("quote-text")
+        et.text = @text
+        es = elt.add_element("quote-source")
+        es.text = @source
+        return elt
+      end
+    end
+
+    class Photo < Post
+      attr_accessor :caption, :urls
+      
+      def initialize(elt, tz)
+        super
+        @caption = elt.elements["photo-caption"].text
+        @urls = Hash.new
+        elt.elements.each("photo-url") do |url|
+          @urls[url.attributes["max-width"].to_i] = url.text
+        end
+      end
+
+      def to_xml
+        elt = super
+        caption = elt.add_element "photo-caption"
+        caption.text = @caption
+        @urls.each do |width, url|
+          e = elt.add_element "photo-url", {"max-width" => width}
+          e.text = url
+        end
+        return elt
+      end
+    end
+
+    class Link < Post
+      attr_accessor :name, :url, :description
+      
+      def initialize(elt, tz)
+        super
+        @text = elt.elements["link-text"].text if elt.elements["link-text"]
+        @url = elt.elements["link-url"].text
+        @description = elt.elements["link-description"].text if elt.elements["link-description"]
+      end
+      
+      def to_xml
+        elt = super
+        name = elt.add_element "link-text"
+        name.text = @text
+        url = elt.add_element "link-url"
+        url.text = @url
+        description = elt.add_element "link-description"
+        description.text = @description
+        return elt
+      end
+    end
+
+    class Conversation < Post
+      attr_accessor :title, :lines
+      
+      def initialize(elt, tz)
+        super
+        @title = elt.elements["conversation-title"].text
+        @text = elt.elements["conversation-text"].text
+        @lines = []
+        elt.each("conversation-line") do |line|
+          name = line.attributes["name"]
+          label = line.attributes["label"]
+          @lines << [name, label, line.text]
+        end
+      end
+      
+      def to_xml
+        elt = super
+        title = elt.add_element "conversation-title"
+        title.text = @title
+        text = elt.add_element "conversation-text"
+        text.text = @text
+        @lines.each do |line|
+          e = elt.add_element "conversation-line", {"name" => line[0], "label" => line[1]}
+          e.text = line[2]
+        end
+        return elt
+      end
+    end
+
+    class Video < Post
+      def initialize(elt, tz)
+        super
+        @caption = elt.elements["video-caption"].text
+        @source = elt.elements["video-source"].text
+        @player = elt.attributes["video-player"]
+      end
+
+      def to_xml
+        elt = super
+        caption = elt.add_element "video-caption"
+        caption.text = @caption
+        player = elt.add_element "video-player"
+        player.text = @player
+        source = elt.add_element "video-source"
+        source.text = @source
+        return elt
+      end
+    end
+  end
+
+  module API
+    class ResponseError < StandardError
+      attr_reader :response
+      def initialize(response)
+        @response = response
+      end
+    end
+    
+    class AuthError < StandardError; end
+    
+    class BadRequestError < StandardError
+      attr_reader :message
+      def initialize(message)
+        @message = message
+      end
+    end
+
+    class Reader
+      attr_accessor :http, :start, :num, :type
+      
+      def initialize(http, num=20, type=nil)
+        @http = http
+        @num = num
+        @type = type
+        @total = request(0, 0).posts.total
+      end
+      
+      def last_page
+        ((@total - 1) / @num) + 1
+      end
+      
+      def page(pos)
+        request(pos*@num, @num)
+      end
+
+      private
+      
+      def request(start, num)
+        req = Net::HTTP::Post.new "/api/read"
+        data = {"start" => start, "num" => num}
+        data["type"] = @type if @type
+        req.set_form_data data
+        res = http.request(req)
+        if res.kind_of?(Net::HTTPSuccess)
+          return Tumblr::Data.new(REXML::Document.new(res.body))
+        else
+          raise ResponseError.new(res)
+        end
+      end
+    end
+
+    def self.read(hostname, num=20, type=nil, &b)
+      Net::HTTP.start(hostname) do |http|
+        reader = Reader.new(http, num, type)
+        reader.instance_eval &b
+      end
+    end
+
+    class Writer
+      attr_accessor :http, :email, :password, :generator
+      
+      def initialize(http, email, password, generator)
+        @http = http
+        @email = email
+        @password = password
+        @generator = generator
+      end
+      
+      def regular(body, title=nil)
+        post("type" => "regular", "title" => title, "body" => body)
+      end
+      
+      def quote(text, source=nil)
+        post("type" => "quote", "quote" => text, "source" => source)
+      end
+      
+      def photo(source, caption=nil)
+        post("type" => "photo", "caption" => caption, "source" => source)
+      end
+
+      def link(url, name=nil, description=nil)
+        post("type" => "link", "name" => name, "url" => url, "description" => description)
+      end
+      
+      def conversation(conversation, title=nil)
+        post("type" => "conversation", "title" => title, "conversation" => conversation)
+      end
+
+      def video(embed, caption=nil)
+        post("type" => "video", "embed" => embed, "caption" => caption)
+      end
+      
+      def post(data)
+        req = Net::HTTP::Post.new "/api/write"
+        req.set_form_data({
+          "email" => @email,
+          "password" => @password,
+          "generator" => @generator
+        }.merge(data))
+        res = @http.request req
+        case res.code
+        when '201'
+          return res.body.chomp
+        when '403'
+          raise AuthError.new
+        when '400'
+          raise BadRequestError.new(res.body)
+        else
+          raise ResponseError.new(res)
+        end
+      end
+    end
+    
+    def self.write(email, password, generator="ruby-tumblr", &b)
+      Net::HTTP.start("www.tumblr.com") do |http|
+        writer = Writer.new(http, email, password, generator)
+        writer.instance_eval &b
+      end
+    end
+
+  end
+end

data/scripts/txt2html

@@ -0,0 +1,67 @@
+#!/usr/bin/env ruby
+
+require 'rubygems'
+require 'redcloth'
+require 'syntax/convertors/html'
+require 'erb'
+require File.dirname(__FILE__) + '/../lib/tumblr/version.rb'
+
+version  = Tumblr::VERSION::STRING
+download = 'http://rubyforge.org/projects/ruby-tumblr'
+
+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.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
+  body_text = fsrc.read
+  syntax_items = []
+  body_text.gsub!(%r!<(pre|code)[^>]*?syntax=['"]([^'"]+)[^>]*>(.*?)</
>!m){
+    ident = syntax_items.length
+    element, syntax, source = $1, $2, $3
+    syntax_items << "<#{element} class='syntax'>#{convert_syntax(syntax, source)}</#{element}>"
+    "syntax-temp-#{ident}"
+  }
+  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)