rabbit-qt 0.1.0

data/lib/rabbit/theme/simple-item-mark/simple-item-mark.rb

@@ -0,0 +1,112 @@
+include_theme("default-item-mark")
+
+slide_body = [Slide, Body]
+
+item_list_item = [ItemList, ItemListItem]
+
+match(*(slide_body + (item_list_item * 1))) do |items|
+  name = "item1"
+  
+  mark_width = screen_x(2)
+  mark_height = screen_y(2)
+  indent_width = mark_width * 3
+  color = "black"
+
+  items.delete_pre_draw_proc_by_name(name)
+  items.delete_post_draw_proc_by_name(name)
+  
+  draw_mark(items, indent_width, mark_width, mark_height, name) do
+    |item, canvas, x, y, w, h|
+    x -= mark_width
+    canvas.draw_circle(true, x, y, w, h, color)
+  end
+
+  space = @space * (3 / 4.0)
+  items.margin_bottom = space
+end
+
+match(*(slide_body + (item_list_item * 2))) do |items|
+  name = "item2"
+  
+  mark_width = screen_x(1.5)
+  mark_height = screen_y(1.5)
+  indent_width = mark_width * 3
+  color = "black"
+  
+  items.delete_pre_draw_proc_by_name(name)
+  items.delete_post_draw_proc_by_name(name)
+  
+  draw_mark(items, indent_width, mark_width, mark_height, name) do
+    |item, canvas, x, y, w, h|
+    x -= mark_width
+    canvas.draw_circle(true, x, y, w, h, color)
+  end
+
+  space = @space * (2 / 4.0)
+  items.margin_bottom = space
+end
+
+match(*(slide_body + (item_list_item * 3))) do |items|
+  name = "item3"
+  
+  mark_width = screen_x(1.0)
+  mark_height = screen_y(1.0)
+  indent_width = mark_width * 3
+  color = "black"
+  
+  items.delete_pre_draw_proc_by_name(name)
+  items.delete_post_draw_proc_by_name(name)
+  
+  draw_mark(items, indent_width, mark_width, mark_height, name) do
+    |item, canvas, x, y, w, h|
+    x -= mark_width
+    canvas.draw_circle(true, x, y, w, h, color)
+  end
+
+  space = @space * (1 / 4.0)
+  items.margin_bottom = space
+end
+
+enum_list_item = [EnumList, EnumListItem]
+
+match(*(slide_body + enum_list_item + item_list_item)) do |items|
+  name = "enum-item1"
+  
+  mark_width = screen_x(1.5)
+  mark_height = screen_y(1.5)
+  indent_width = mark_width * 3
+  color = "black"
+
+  items.delete_pre_draw_proc_by_name(name)
+  items.delete_post_draw_proc_by_name(name)
+  
+  draw_mark(items, indent_width, mark_width, mark_height, name) do
+    |item, canvas, x, y, w, h|
+    x -= mark_width
+    canvas.draw_circle(true, x, y, w, h, color)
+  end
+
+  space = @space * (2 / 4.0)
+  items.margin_bottom = space
+end
+
+match(*(slide_body + enum_list_item + (item_list_item * 2))) do |items|
+  name = "enum-item2"
+  
+  mark_width = screen_x(1.0)
+  mark_height = screen_y(1.0)
+  indent_width = mark_width * 3
+  color = "black"
+
+  items.delete_pre_draw_proc_by_name(name)
+  items.delete_post_draw_proc_by_name(name)
+  
+  draw_mark(items, indent_width, mark_width, mark_height, name) do
+    |item, canvas, x, y, w, h|
+    x -= mark_width
+    canvas.draw_circle(true, x, y, w, h, color)
+  end
+
+  space = @space * (1 / 4.0)
+  items.margin_bottom = space
+end

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

@@ -0,0 +1,6 @@
+@category = N_("Backward compatibility")
+@title = N_("SlideBackground")
+@abstract = N_("Backward compatibility theme for ((<slide-background-image>))")
+@description = N_("See ((<slide-background-image>))")
+@parameters = {
+}

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

@@ -0,0 +1,3 @@
+format = _("%s is deprecated. Use %s instead.")
+warning(format % ["slide-background", "slide-background-image"])
+include_theme("slide-background-image")

data/lib/rabbit/theme/slide-background-image/property.rb

@@ -0,0 +1,10 @@
+@category = N_("Toolkit")
+@title = N_("SlideBackgroundImage")
+@abstract = N_("Toolkit to display an image as a background of slides")
+@description = N_("Displays an image as a background of slides.")
+@parameters = {
+  "@slide_background_image" => {
+    :default => N_("(Must be specified.)"),
+    :description => N_("Image file name."),
+  },
+}

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

@@ -0,0 +1,25 @@
+proc_name = "slide-background-image"
+
+if @slide_background_image.nil?
+  theme_exit("must specify @slide_background_image!!")
+end
+
+match(Slide) do |slides|
+  loader = ImageLoader.new(find_file(@slide_background_image))
+  resized = false
+
+  slides.delete_pre_draw_proc_by_name(proc_name)
+
+  slides.add_pre_draw_proc(proc_name) do |slide, canvas, x, y, w, h, simulation|
+    unless simulation
+      unless loader.nil?
+        unless resized
+          loader.resize(canvas.width, canvas.height)
+          resized = true
+        end
+        loader.draw(canvas, 0, 0)
+      end
+    end
+    [x, y, w, h]
+  end
+end

data/lib/rabbit/theme/slide-footer-info/property.rb

@@ -0,0 +1,43 @@
+@category = N_("Toolkit")
+@title = N_("Slide Footer Info")
+@abstract = N_("Toolkit to display information at the footer")
+@description = N_("Displays information with a line at the footer of slides.")
+@parameters = {
+  "@slide_footer_info_line_color" => {
+    :default => "#666",
+    :description => N_("Line color."),
+  },
+  "@slide_footer_info_line_width" => {
+    :default => "screen_y(0.1)",
+    :description => N_("Line width."),
+  },
+  "@slide_footer_info_line_pattern" => {
+    :default => N_("white <-> black gradation"),
+    :description => N_("Line fill pattern. @slide_footer_info_line_color " \
+                       "is ignored if this parameter is specified."),
+  },
+  "@slide_footer_info_text_size" => {
+    :default => "screen_size(1.5 * Pango::SCALE)",
+    :description => N_("Text size."),
+  },
+  "@slide_footer_info_x_margin" => {
+    :default => "screen_x(1)",
+    :description => N_("x-axis margin."),
+  },
+  "@slide_footer_info_text_color" => {
+    :default => "#666",
+    :description => N_("Text color."),
+  },
+  "@slide_footer_info_text_over_line" => {
+    :default => "false",
+    :description => N_("Whether show a text over line or not."),
+  },
+  "@slide_footer_info_base_y" => {
+    :default => "canvas.height - @margin_bottom",
+    :description => N_("Base y-axis position to stroke line."),
+  },
+  "@slide_footer_info_uninstall" => {
+    :default => "false",
+    :description => N_("Whether uninstall this theme or not."),
+  }
+}

data/lib/rabbit/theme/slide-footer-info/slide-footer-info.rb

@@ -0,0 +1,51 @@
+name = "slide-footer-info"
+
+@slide_footer_info_line_width ||= screen_y(0.1)
+@slide_footer_info_line_color ||= nil
+if @slide_footer_info_line_color.nil?
+  @slide_footer_info_line_params ||= {
+    :pattern => {
+      :base => [0, 0, canvas.width, 0],
+      :type => :linear,
+      :color_stops => [
+                       [0.0, 1, 1, 1],
+                       [0.3, 0, 0, 0],
+                       [0.7, 0, 0, 0],
+                       [1.0, 1, 1, 1],
+                      ],
+    }
+  }
+else
+  @slide_footer_info_line_color = "#666"
+end
+@slide_footer_info_text_size ||= screen_size(1.5 * Pango::SCALE)
+@slide_footer_info_x_margin ||= screen_x(1)
+@slide_footer_info_text_color ||= "#666"
+@slide_footer_info_text_over_line ||= false
+@slide_footer_info_base_y ||= canvas.height - @margin_bottom
+
+@slide_footer_info_left_text ||= nil
+@slide_footer_info_center_text ||= nil
+@slide_footer_info_right_text ||= nil
+
+include_theme("edge-info-toolkit")
+
+match(SlideElement) do
+  delete_pre_draw_proc_by_name(name)
+
+  break if @slide_footer_info_uninstall
+
+  draw_edge_info(:name => name,
+                 :line_width => @slide_footer_info_line_width,
+                 :line_color => @slide_footer_info_line_color,
+                 :line_params => @slide_footer_info_line_params,
+                 :left_text => @slide_footer_info_left_text,
+                 :center_text => @slide_footer_info_center_text,
+                 :right_text => @slide_footer_info_right_text,
+                 :text_position => :lower,
+                 :text_over_line => @slide_footer_info_text_over_line,
+                 :text_size => @slide_footer_info_text_size,
+                 :text_color => @slide_footer_info_text_color,
+                 :x_margin => @slide_footer_info_x_margin,
+                 :y => @slide_footer_info_base_y)
+end

data/lib/rabbit/theme/slide-header-info/property.rb

@@ -0,0 +1,43 @@
+@category = N_("Toolkit")
+@title = N_("Slide Footer Info")
+@abstract = N_("Toolkit to display information at the header")
+@description = N_("Displays information with a line at the header of slides.")
+@parameters = {
+  "@slide_header_info_line_color" => {
+    :default => "#666",
+    :description => N_("Line color."),
+  },
+  "@slide_header_info_line_width" => {
+    :default => "screen_y(0.1)",
+    :description => N_("Line width."),
+  },
+  "@slide_header_info_line_pattern" => {
+    :default => N_("white <-> black gradation"),
+    :description => N_("Line fill pattern. @slide_header_info_line_color " \
+                       "is ignored if this parameter is specified."),
+  },
+  "@slide_header_info_text_size" => {
+    :default => "screen_size(1.5 * Pango::SCALE)",
+    :description => N_("Text size."),
+  },
+  "@slide_header_info_x_margin" => {
+    :default => "screen_x(1)",
+    :description => N_("x-axis margin."),
+  },
+  "@slide_header_info_text_color" => {
+    :default => "#666",
+    :description => N_("Text color."),
+  },
+  "@slide_header_info_text_over_line" => {
+    :default => "false",
+    :description => N_("Whether show a text over line or not."),
+  },
+  "@slide_header_info_base_y" => {
+    :default => "@margin_top",
+    :description => N_("Base y-axis position to stroke line."),
+  },
+  "@slide_header_info_uninstall" => {
+    :default => "false",
+    :description => N_("Whether uninstall this theme or not."),
+  }
+}

data/lib/rabbit/theme/slide-header-info/slide-header-info.rb

@@ -0,0 +1,42 @@
+name = "slide-header-info"
+
+@slide_header_info_line_color ||= "#666"
+@slide_header_info_line_width ||= screen_y(0.1)
+@slide_header_info_line_params ||= {
+  :pattern => {
+    :base => [0, 0, canvas.width, 0],
+    :type => :linear,
+    :color_stops => [
+                     [0.0, 1, 1, 1],
+                     [0.3, 0, 0, 0],
+                     [0.7, 0, 0, 0],
+                     [1.0, 1, 1, 1],
+                    ],
+  }
+}
+@slide_header_info_text_size ||= screen_size(1.5 * Pango::SCALE)
+@slide_header_info_x_margin ||= screen_x(1)
+@slide_header_info_text_color ||= "#666"
+@slide_header_info_text_over_line ||= false
+@slide_header_info_base_y ||= @margin_top
+
+include_theme("edge-info-toolkit")
+
+match(SlideElement) do
+  delete_pre_draw_proc_by_name(name)
+
+  break if @slide_header_info_uninstall
+
+  draw_edge_info(:name => name,
+                 :line_width => @slide_header_info_line_width,
+                 :line_color => @slide_header_info_line_color,
+                 :line_params => @slide_header_info_line_params,
+                 :left_text => @slide_header_info_left_text,
+                 :right_text => @slide_header_info_right_text,
+                 :text_position => :upper,
+                 :text_over_line => @slide_header_info_text_over_line,
+                 :text_size => @slide_header_info_text_size,
+                 :text_color => @slide_header_info_text_color,
+                 :x_margin => @slide_header_info_x_margin,
+                 :y => @slide_header_info_base_y)
+end

data/lib/rabbit/theme/slide-logo/property.rb

@@ -0,0 +1,26 @@
+@category = N_("Toolkit")
+@title = N_("Slide Logo")
+@abstract = N_("Toolkit to display an image as logo at the top")
+@description = N_("Displays an image as a logo at the top of all slides.")
+@parameters = {
+  "@slide_logo_image" => {
+    :default => N_("(Must be specified.)"),
+    :description => N_("Image file name."),
+  },
+  "@slide_logo_position" => {
+    :default => ":right",
+    :description => N_("Image position. :right or :left."),
+  },
+  "@slide_logo_width" => {
+    :default => "nil",
+    :description => N_("Image width."),
+  },
+  "@slide_logo_height" => {
+    :default => "canvas.height * 0.1",
+    :description => N_("Image height."),
+  },
+  "@slide_logo_uninstall" => {
+    :default => "false",
+    :description => N_("Whether uninstall this theme or not."),
+  },
+}

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

@@ -0,0 +1,58 @@
+name = "slide-logo"
+
+if @slide_logo_image.nil?
+  theme_exit(_("must specify %s!!!") % "@slide_logo_image")
+end
+
+@slide_logo_position ||= :right
+@slide_logo_width ||= nil
+@slide_logo_height ||= canvas.height * 0.1
+
+match(SlideElement) do |slides|
+  delete_pre_draw_proc_by_name(name)
+
+  break if @slide_logo_image_uninstall
+
+  loaders = {}
+
+  slides.each do |slide|
+    slide_logo_image = slide["logo-image"] || @slide_logo_image
+    if slide_logo_image.respond_to?(:call)
+      slide_logo_image = slide_logo_image.call(slide)
+    end
+    slide_logo_image = find_file(slide_logo_image)
+    loaders[slide_logo_image] ||= ImageLoader.new(slide_logo_image)
+    loader = loaders[slide_logo_image]
+
+    slide.add_pre_draw_proc(name) do |canvas, x, y, w, h, simulation|
+      unless simulation
+        slide_logo_width = @slide_logo_width
+        slide_logo_height = @slide_logo_height
+        if slide_logo_width.respond_to?(:call)
+          slide_logo_width = slide_logo_width.call(slide, canvas)
+        end
+        if slide_logo_height.respond_to?(:call)
+          slide_logo_height = slide_logo_height.call(slide, canvas)
+        end
+        loader.resize(slide_logo_width, slide_logo_height)
+
+        case @slide_logo_position
+        when :right
+          logo_x = canvas.width - loader.width
+          logo_y = 0
+        when :left
+          logo_x = 0
+          logo_y = 0
+        else
+          if @slide_logo_position.respond_to?(:call)
+            logo_x, logo_y = @slide_logo_position.call(slide, canvas, loader)
+          else
+            logo_x, logo_y = @slide_logo_position
+          end
+        end
+        loader.draw(canvas, logo_x, logo_y)
+      end
+      [x, y, w, h]
+    end
+  end
+end

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

@@ -0,0 +1,21 @@
+@category = N_("Toolkit")
+@title = N_("TextSlideNumber")
+@abstract = N_("Toolkit to display slide numbers, a text version")
+@description = N_("Displays slide numbers with text at the bottom of the " \
+                  "slides.")
+@parameters = {
+  "@slide_number_props" => {
+    :default => "{ " \
+                "  'size' => @xx_small_font_size, " \
+                "  'font_family' => @font_family, " \
+                "}",
+    :description => N_("Properties of the slide numbers, such as font " \
+                       "family."),
+  },
+  "@slide_number_uninstall" => {
+    :default => "nil",
+    :description => N_("Whether uninstalling this toolkit or not. " \
+                       "This option is useful for cases you do not want to " \
+                       "make the toolkit work for certain slides."),
+  },
+}

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

@@ -0,0 +1,34 @@
+proc_name = "slide-number"
+
+@slide_number_props ||= {
+  "size" => @xx_small_font_size,
+  "font_family" => @font_family,
+}
+
+@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.n_slides - 1}")
+      text.font @slide_number_props
+      text.align = Pango::Alignment::RIGHT
+      text.compile(canvas, x, y, w, h)
+      layout = text.layout
+      layout.set_width(w * Pango::SCALE)
+      case @slide_number_position
+      when :bottom
+        number_y = canvas.height - slide.margin_bottom - text.height
+      when :top
+        number_y = slide.margin_top
+      end
+      canvas.draw_layout(text.layout, x, number_y, @slide_number_color)
+    end
+    [x, y, w, h]
+  end
+end

data/lib/rabbit/theme/slide-show/property.rb

@@ -0,0 +1,4 @@
+@category = N_("Time")
+@title = N_("Slide Show")
+@abstract = N_("Toolkit to do slide show")
+@description = N_("Move to the next slide automatically.")

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

@@ -0,0 +1,31 @@
+theme_exit unless display?
+
+if canvas.allotted_time
+  default_slide_show_span = (canvas.allotted_time / canvas.n_slides.to_f).round
+else
+  default_slide_show_span = 60
+end
+default_slide_show_span *= 1000 # milliseconds -> seconds
+@slide_show_span ||= default_slide_show_span
+@slide_show_loop ||= false
+
+@@slide_show_timeout_id ||= nil
+
+unless @@slide_show_timeout_id.nil?
+  GLib::Source.remove(@@slide_show_timeout_id)
+end
+
+@@slide_show_timeout_id = GLib::Timeout.add(@slide_show_span) do
+  if canvas.last_slide?
+    if @slide_show_loop
+      canvas.reset_timer
+      canvas.activate("FirstSlide")
+      true
+    else
+      false
+    end
+  else
+    canvas.activate("Next")
+    true
+  end
+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/syntax-highlighting/property.rb

@@ -0,0 +1,4 @@
+@category = N_("Toolkit")
+@title = N_("Syntax Highlighting")
+@abstract = N_("Toolkit for syntax highlighting")
+@description = N_("Applies syntax highlighting style.")