rabbit 0.9.2 → 0.9.3

data/lib/rabbit/theme/default/default.rb

@@ -28,3 +28,9 @@ include_theme("per-slide-background-image")
 include_theme("body-background-image")
 
 include_theme("tag")
+
+if display? and canvas.renderer.widget.class.name == "Clutter::GtkEmbed"
+  include_theme("clutter-comment")
+else
+  include_theme("footer-comment")
+end

data/lib/rabbit/theme/footer-comment/footer-comment.rb

@@ -0,0 +1,46 @@
+theme_exit unless display?
+
+proc_name = "footer-comment"
+
+@footer_comment_props ||= {
+  "size" => (@xx_small_font_size * 0.5).ceil,
+  "font_family" => @font_family,
+}
+@footer_comment_color ||= @default_foreground
+@footer_comment_min_display_time ||= 1
+
+match(SlideElement) do |slides|
+  slides.delete_post_draw_proc_by_name(proc_name)
+  canvas.delete_on_comment_proc_by_name(proc_name)
+
+  break if @footer_comment_uninstall
+
+  comments = []
+  canvas.on_comment(proc_name) do |comment|
+    comments << comment
+    canvas.activate("Redraw")
+  end
+
+  redraw_time = Time.now
+  slides.add_post_draw_proc(proc_name) do |slide, canvas, x, y, w, h, simulation|
+    unless simulation
+      unless comments.empty?
+        content = comments.first
+        text = Text.new(ERB::Util.h(content.strip.gsub("\n", " ")))
+        if Time.now - redraw_time > @footer_comment_min_display_time
+          redraw_time = Time.now
+          comments.shift if comments.size > 1
+        end
+        text.font @footer_comment_props
+        set_font_family(text)
+        text.compile(canvas, x, y, w, h)
+        text.layout.set_width(w * Pango::SCALE)
+        text_x = x
+        text_y = canvas.height - slide.margin_bottom - slide.padding_bottom
+        text_y -= text.layout.pixel_size[1]
+        canvas.draw_layout(text.layout, text_x, text_y, @footer_comment_color)
+      end
+    end
+    [x, y, w, h]
+  end
+end

data/lib/rabbit/theme/footer-comment/property.rb

@@ -0,0 +1,3 @@
+@category = N_("Comment")
+@title = N_("Footer Comment")
+@description = N_("Show comment on the footer.")

data/lib/rabbit/theme/image/image.rb

@@ -1,6 +1,7 @@
 proc_name = "image"
 
-@image_frame_width = 1
+@image_frame_width ||= 1
+@image_caption_font_size ||= @normal_font_size
 
 match("**", Image) do |images|
 
@@ -49,7 +50,7 @@ match("**", Image) do |images|
     image.add_post_draw_proc(proc_name) do |canvas, x, y, w, h, simulation|
       if simulation
         caption = Text.new(image.caption)
-        caption.prop_set("size", @normal_font_size)
+        caption.prop_set("size", @image_caption_font_size)
         set_font_family(caption)
         if image.horizontal_centering
           caption.do_horizontal_centering(canvas, x, y, w, h)

data/lib/rabbit/theme/per-slide-background-color/property.rb

@@ -3,7 +3,7 @@
 @abstract = N_("Toolkit to set background color of each slide")
 @description = N_("Set background color of each slide.\n" \
                   "\n" \
-                  "Each image is specified as a slide property:\n" \
+                  "Each color is specified as a slide property:\n" \
                   "  = target slide\n" \
                   "  \n" \
                   "  ...\n" \

data/lib/rabbit/theme/slide-number/slide-number.rb

@@ -6,12 +6,13 @@ proc_name = "slide-number"
 }
 
 @slide_number_color || nil
+@slide_number_position ||= :bottom
 
 match(Slide) do |slides|
   slides.delete_post_draw_proc_by_name(proc_name)
 
   break if @slide_number_uninstall
-  
+
   slides.add_post_draw_proc(proc_name) do |slide, canvas, x, y, w, h, simulation|
     unless simulation
       text = Text.new("#{slide.index}/#{canvas.slide_size - 1}")
@@ -20,8 +21,13 @@ match(Slide) do |slides|
       text.compile(canvas, x, y, w, h)
       layout = text.layout
       layout.set_width(w * Pango::SCALE)
-      num_y = canvas.height - @margin_bottom - text.height
-      canvas.draw_layout(text.layout, x, num_y, @slide_number_color)
+      case @slide_number_position
+      when :bottom
+        number_y = canvas.height - @margin_bottom - text.height
+      when :top
+        number_y = @margin_top
+      end
+      canvas.draw_layout(text.layout, x, number_y, @slide_number_color)
     end
     [x, y, w, h]
   end

data/lib/rabbit/theme/stream-comment/property.rb

@@ -0,0 +1,3 @@
+@category = N_("Comment")
+@title = N_("Stream Comment")
+@description = N_("Stream comments on canvas.")

data/lib/rabbit/theme/stream-comment/stream-comment.rb

@@ -0,0 +1,66 @@
+theme_exit unless display?
+
+proc_name = "stream-comment"
+
+@stream_comment_max_n_comments ||= 20
+@stream_comment_n_moves_base ||= 150
+@stream_comment_n_moves_fluctuation ||= 150
+
+match(SlideElement) do |slides|
+  slides.delete_post_draw_proc_by_name(proc_name)
+  canvas.delete_on_comment_proc_by_name(proc_name)
+
+  break if @stream_comment_uninstall
+
+  stream_comments = []
+  canvas.on_comment(proc_name) do |comment|
+    text = Text.new(ERB::Util.h(comment.strip.gsub("\n", " ")))
+    set_font_family(text)
+    text.font(:size => (@normal_font_size * rand).ceil)
+    text.compile(canvas, 0, 0, canvas.width, canvas.height)
+    color = "\#%02x%02x%02x%02x" %
+      [rand(256), rand(256), rand(256), 128 + rand(128)]
+    width, height = text.layout.pixel_size
+    stream_comment = {
+      :text => text,
+      :color => color,
+      :x => canvas.width,
+      :y => ((canvas.height - height) * rand).ceil,
+      :terminate => false,
+    }
+    stream_comments << stream_comment
+    if stream_comments.size > @stream_comment_max_n_comments
+      oldest_stream_comments = stream_comments.shift
+      oldest_stream_comments[:terminate] = true
+    end
+
+    n = @stream_comment_n_moves_base + rand(@stream_comment_n_moves_fluctuation)
+    delta = (canvas.width + width) / n.to_f
+    GLib::Timeout.add(1000 / 50) do
+      stream_comment[:x] -= delta
+      n -= 1
+      stream_comment[:terminate] = true if n.zero?
+      keep_callback = !stream_comment[:terminate]
+      unless keep_callback
+        stream_comments.reject! do |_stream_comment|
+          _stream_comment == stream_comment
+        end
+      end
+      canvas.activate("Redraw")
+      keep_callback
+    end
+  end
+
+  redraw_time = Time.now
+  slides.add_post_draw_proc(proc_name) do |slide, canvas, x, y, w, h, simulation|
+    unless simulation
+      stream_comments.each do |stream_comment|
+        canvas.draw_layout(stream_comment[:text].layout,
+                           stream_comment[:x],
+                           stream_comment[:y],
+                           stream_comment[:color])
+      end
+    end
+    [x, y, w, h]
+  end
+end

data/lib/rabbit/theme/tag/property.rb

@@ -1,4 +1,4 @@
 @category = N_("Toolkit")
 @title = N_("Tag")
 @abstract = N_("Toolkit to apply custom tag")
-@description = N_("Applyes custom tag style.")
+@description = N_("Applies custom tag style.")

data/lib/rabbit/theme/title-background-image/title-background-image.rb

@@ -1,7 +1,3 @@
-if @title_background_image.nil?
-  theme_exit("must specify @title_background_image!!")
-end
-
 @title_background_image_properties ||= {}
 default_title_backgroud_image_properties = {
   "as_large_as_possible" => true,
@@ -17,8 +13,13 @@ match(TitleSlide) do |slides|
       value = value.to_s if value.is_a?(Symbol)
       image_properties[key.to_s.gsub(/-/, "_")] = value
     end
+    background_image = slide["background-image"] || @title_background_image
+    if background_image.nil?
+      theme_exit("must specify 'background-image' slide property or " \
+                 "@title_background_image!!")
+    end
     properties = {
-      :file_name => find_file(@title_background_image),
+      :file_name => find_file(background_image),
       :proc_name => "title-background-image",
       :properties => image_properties,
     }

data/lib/rabbit/theme/twitter-comment/property.rb

@@ -0,0 +1,4 @@
+@category = N_("Comment")
+@title = N_("Twitter Comment")
+@abstract = N_("Get comments from Twitter TL.")
+@description = N_("Get comments from Twitter TL.")

data/lib/rabbit/theme/twitter-comment/twitter-comment.rb

@@ -0,0 +1,15 @@
+theme_exit unless display?
+
+@twitter_footer_color ||= @default_foreground
+if !defined?(@twitter_footer_filters) or @twitter_footer_filters.nil?
+  theme_exit("must specify @twitter_footer_filters!! as " +
+             "array of keyword: ['keyword1', 'keyword1', ...])")
+end
+
+canvas.twitter.close
+theme_exit if @twitter_footer_uninstall
+
+canvas.twitter.start(@twitter_footer_filters) do |status|
+  tweet = "@#{status['user']['screen_name']}: #{status['text']}"
+  canvas.append_comment(tweet)
+end

data/lib/rabbit/twitter.rb

@@ -0,0 +1,216 @@
+require 'shellwords'
+require 'pathname'
+
+module Rabbit
+  class Twitter
+    CONSUMER_KEY = "wT9WSC0afRw94fxUw0iIKw"
+    CONSUMER_SECRET = "mwY35vfQfmWde9lZbyNNB15QzCq3k2VwGj3X1IAkQ8"
+
+    def initialize(logger)
+      @logger = logger
+      @oauth_parameters = nil
+      @config_file_path = Pathname.new("~/.rabbit/twitter-oauth.yaml")
+      @config_file_path = @config_file_path.expand_path
+      @listeners = []
+      @connection = nil
+    end
+
+    def register_listener(&block)
+      @listeners << block
+    end
+
+    def setup
+      return unless @oauth_parameters.nil?
+      require 'yaml'
+      require 'twitter_oauth'
+      setup_access_token unless @config_file_path.exist?
+      oauth_access_parameters = YAML.load(@config_file_path.read)
+      @oauth_parameters = {
+        :consumer_key => CONSUMER_KEY,
+        :consumer_secret => CONSUMER_SECRET,
+        :access_key => oauth_access_parameters[:access_token],
+        :access_secret => oauth_access_parameters[:access_secret],
+      }
+    end
+
+    def close
+      return if @connection.nil?
+      @connection.close
+      @connection = nil
+    end
+
+    def start(*filters, &block)
+      register_listener(&block) if block_given?
+      setup if @oauth_parameters.nil?
+      require 'socket'
+      require 'twitter/json_stream'
+      stream_options = {
+        :oauth => @oauth_parameters,
+        :user_agent => "Rabitter #{Rabbit::VERSION}",
+        :host => "stream.twitter.com",
+        :path => "/1/statuses/filter.json",
+        :method => "POST",
+        :filters => filters,
+      }
+      @stream = ::Twitter::JSONStream.new(:signature, stream_options)
+      @connection = GLibConnection.new(@logger, @stream, stream_options)
+
+      @stream.each_item do |item|
+        status = JSON.parse(item)
+        @listeners.each do |listener|
+          listener.call(status)
+        end
+      end
+
+      @stream.on_error do |message|
+        @logger.error("[twitter] #{message}")
+      end
+
+      @stream.on_reconnect do |timeout, retries|
+        @logger.info("[twitter][reconnect] #{timeout} seconds (#{retries})")
+      end
+
+      @stream.on_max_reconnects do |timeout, retries|
+        @logger.info("[twitter][max-reconnects] " +
+                     "Failed after #{retries} failed reconnects")
+      end
+
+      @connection.connect
+    end
+
+    private
+    def setup_access_token
+      FileUtils.mkdir_p(@config_file_path.dirname)
+      oauth_options = {
+        :consumer_key => CONSUMER_KEY,
+        :consumer_secret => CONSUMER_SECRET,
+        :proxy => ENV["http_proxy"],
+      }
+      client = TwitterOAuth::Client.new(oauth_options)
+      request_token = client.request_token
+      puts "1) Access this URL: #{request_token.authorize_url}"
+      print "2) Enter the PIN: "
+      pin = STDIN.gets.strip
+      access_token = request_token.get_access_token(:oauth_verifier => pin)
+      oauth_parameters = {
+        :access_token => access_token.token,
+        :access_secret => access_token.secret,
+      }
+      @config_file_path.open("w") do |config_file|
+        config_file.chmod(0600)
+        config_file.puts(YAML.dump(oauth_parameters))
+      end
+    end
+
+    class GLibConnection
+      def initialize(logger, handler, options)
+        @logger = logger
+        @options = options
+        @handler = handler
+        @socket = nil
+        @channel = nil
+        @source_ids = []
+      end
+
+      def connect
+        close
+        @socket = TCPSocket.new(@options[:host], "http")
+        @channel = GLib::IOChannel.new(@socket.fileno)
+        @channel.flags = GLib::IOChannel::FLAG_NONBLOCK
+        reader_id = @channel.add_watch(GLib::IOChannel::IN) do |io, condition|
+          @logger.debug("[twitter][read][start]")
+          data = io.read(4096)
+          @logger.debug("[twitter][read][done] #{data.bytesize}")
+          if data.empty?
+            @source_ids.reject! {|id| id == reader_id}
+            @logger.debug("[twitter][read][eof]")
+            false
+          else
+            @handler.receive_data(data)
+            true
+          end
+        end
+        @source_ids << reader_id
+        error_id = @channel.add_watch(GLib::IOChannel::ERR) do |io, condition|
+          @handler.receive_error(condition)
+          true
+        end
+        @source_ids << error_id
+        @handler.extend(GLibAdapter)
+        @handler.connection = self
+        @handler.connection_completed
+      end
+
+      def send_data(data)
+        rest = data.bytesize
+        writer_id = @channel.add_watch(GLib::IOChannel::OUT) do |io, condition|
+          if rest.zero?
+            @logger.debug("[twitter][flush][start]")
+            @channel.flush
+            @logger.debug("[twitter][flush][done]")
+            @source_ids.reject! {|id| id == writer_id}
+            false
+          else
+            @logger.debug("[twitter][write][start]")
+            written_size = @channel.write(data)
+            if written_size.is_a?(Numeric)
+              @logger.debug("[twitter][write][done] #{written_size}")
+              rest -= written_size
+              data[0, written_size] = ""
+            else
+              # for Ruby/GLib2 < 0.90.9
+              rest = 0
+              data.replace("")
+            end
+            true
+          end
+        end
+        @source_ids << writer_id
+      end
+
+      def close
+        return if @socket.nil?
+        @source_ids.reject! do |id|
+          GLib::Source.remove(id)
+          true
+        end
+        @channel = nil
+        @socket.close
+      end
+
+      def reconnect(options={})
+        close
+        after = options[:after] || 0
+        if after.zero?
+          connect
+        else
+          id = GLib::Timeout.add(after) do
+            connect
+            false
+          end
+          @source_ids << id
+        end
+      end
+    end
+
+    module GLibAdapter
+      attr_accessor :connection
+      def send_data(data)
+        @connection.send_data(data)
+      end
+
+      def reconnect_after(timeout)
+        @reconnect_callback.call(timeout, @reconnect_retries) if @reconnect_callback
+        @connection.reconnect(:after => timeout)
+      end
+
+      def reconnect(server, port)
+        @connection.reconnect
+      end
+
+      def close_connection
+        @connection.close
+      end
+    end
+  end
+end