rabbit 0.6.2

data/lib/rabbit/element/base/draw-hook.rb

@@ -0,0 +1,75 @@
+module Rabbit
+  module Element
+    module Base
+      module DrawHook
+        @@draw_hook_names = []
+
+        class << self
+          def def_draw_hook(klass, name)
+            @@draw_hook_names << name
+            base_name = "#{name}_draw_proc"
+            var_name = "@#{base_name}s"
+            klass.module_eval(<<-EOC, __FILE__, __LINE__ + 1)
+              def add_#{base_name}(name=nil, &block)
+                #{var_name} << [block, name]
+                block
+              end
+
+              def delete_#{base_name}(name=nil, &block)
+                #{var_name}.reject! do |blk,|
+                  blk == block
+                end
+              end
+
+              def delete_#{base_name}_by_name(name)
+                #{var_name}.reject! do |_, nm|
+                  name === nm
+                end
+              end
+
+              def clear_#{base_name}s
+                #{var_name} = []
+              end
+
+              def #{base_name}s(name)
+                #{var_name}.find_all do |_, nm|
+                  name === nm
+                end
+              end
+
+              def #{base_name}(name)
+                #{var_name}.find do |_, nm|
+                  name === nm
+                end
+              end
+EOC
+          end
+
+          def def_draw_hooks(klass, *names)
+            names.each do |name|
+              klass.def_draw_hook(name)
+            end
+          end
+
+          private
+          def append_features(klass)
+            super
+            methods(false).each do |name|
+              klass.module_eval(<<-EOC, __FILE__, __LINE__ + 1)
+                def self.#{name}(*args)
+                  #{self.name}.#{name}(self, *args)
+                end
+EOC
+            end
+          end
+        end
+
+        def clear_draw_procs
+          @@draw_hook_names.each do |name|
+            __send__("clear_#{name}_draw_procs")
+          end
+        end
+      end
+    end
+  end
+end

data/lib/rabbit/element/block-element.rb

@@ -0,0 +1,38 @@
+require 'rabbit/element/base'
+
+module Rabbit
+  module Element
+    module BlockHorizontalCentering
+      attr_reader :ox, :oy, :ow, :oh # dirty!!!!
+
+      def do_horizontal_centering(canvas, x, y, w, h)
+        @ox, @oy, @ow, @oh = @x, @y, @w, @h
+        adjust_width = ((w - width) / 2.0).ceil
+        x += adjust_width
+        w -= adjust_width
+        @centering_adjusted_width = adjust_width
+        compile_for_horizontal_centering(canvas, x, @y, w, h)
+        draw(true)
+      end
+
+      def clear_theme
+        @ox = @oy = @ow = @oh = nil
+        super
+      end
+    end
+
+    module BlockElement
+      include Base
+
+      def inline_element?
+        false
+      end
+
+      def adjust_y_padding(y, h)
+        y += @padding_bottom
+        h -= @padding_bottom
+        [y, h]
+      end
+    end
+  end
+end

data/lib/rabbit/element/block.rb

@@ -0,0 +1,53 @@
+require 'rabbit/element/text-container-element'
+require 'rabbit/element/container-element'
+require 'rabbit/element/block-element'
+
+module Rabbit
+  module Element
+    class Container
+      include ContainerElement
+    end
+
+    class BlockQuote
+      include ContainerElement
+      include BlockHorizontalCentering
+
+      attr_reader :cite, :title
+
+      def initialize(elems=[], prop={})
+        super(elems)
+        %w(cite title).each do |name|
+          instance_variable_set("@#{name}", prop[name])
+        end
+      end
+
+      def to_html(generator)
+        "<blockquote>#{super}</blockquote>"
+      end
+    end
+
+    class Paragraph
+      include TextContainerElement
+
+      def text
+        "#{super}\n"
+      end
+
+      def to_rd
+        text
+      end
+
+      def to_html(generator)
+        "<p>\n#{super}\n</p>"
+      end
+    end
+
+    class WaitBlock
+      include ContainerElement
+
+      def have_wait_tag?
+        true
+      end
+    end
+  end
+end

data/lib/rabbit/element/container-element.rb

@@ -0,0 +1,254 @@
+require 'forwardable'
+require 'rabbit/element/block-element'
+
+module Rabbit
+  module Element
+    module ContainerElement
+      extend Forwardable
+
+      include BlockElement
+      include Enumerable
+
+      attr_reader :elements
+
+      def_delegators(:@elements, :empty?, :each, :first, :last)
+      def_delegators(:@elements, :size, :length)
+
+      def initialize(elems=[])
+        @elements = []
+        elems = [elems] unless elems.is_a?(Array)
+        elems.each do |elem|
+          add_element(elem)
+        end
+        super()
+      end
+
+      def <<(element)
+        @elements << element
+        element.parent = self
+        dirty!
+      end
+      alias add_element <<
+
+      def unshift(element)
+        @elements.unshift(element)
+        element.parent = self
+        dirty!
+      end
+
+      def delete(element)
+        return if @elements.delete(element).nil?
+        element.parent = nil
+        dirty!
+        element
+      end
+
+      def text
+        @elements.collect do |element|
+          element.text
+        end.join("\n")
+      end
+
+      def to_rd
+        @elements.collect do |element|
+          element.to_rd
+        end.join("\n")
+      end
+
+      def substitute_text(&block)
+        substituted = false
+        e = @elements.dup
+        e.each_with_index do |element, i|
+          element_substituted = element.substitute_text(&block)
+          substituted ||= element_substituted
+        end
+        dirty! if substituted
+        substituted
+      end
+
+      def replace_element(child, *targets)
+        index = @elements.index(child)
+        @elements[index, 1] = targets
+      end
+
+      def draw_element(canvas, x, y, w, h, simulation)
+        draw_elements(canvas, x, y, w, h, simulation)
+      end
+
+      def draw_elements(canvas, x, y, w, h, simulation)
+        args = [x, y, w, h]
+        adjust_height = 0
+        if do_vertical_centering?
+          adjust_height = ((h - height - @padding_bottom) / 2.0).ceil
+          if y + adjust_height > 0
+            args = [x, y + adjust_height, w, h - adjust_height]
+          else
+            adjust_height = 0
+          end
+        end
+        @centering_adjusted_height = adjust_height
+        compile_elements(canvas, *args)
+        base_x, base_w = x, w
+        @elements.each do |element|
+          x, y, w, h = element.draw(simulation)
+        end
+        last_element = @elements.last
+        if last_element and last_element.inline_element?
+          container_height = height
+          x = base_x
+          y += container_height
+          w = base_w
+          h -= container_height
+        end
+        [x, y, w, h]
+      end
+
+      def compile(canvas, x, y, w, h)
+        super
+        if_dirty do
+          x, y, w, h = setup_padding(@x, @y, @w, @h)
+          compile_elements(canvas, x, y, w, h)
+          x, w = restore_x_padding(x, w)
+          x, w = adjust_x_centering(x, w)
+          y, h = adjust_y_padding(y, h)
+        end
+      end
+
+      def compile_elements(canvas, x, y, w, h)
+        prev_is_inline = false
+        @elements.each do |element|
+          element.compile(canvas, x, y, w, h)
+          if element.do_horizontal_centering?
+            element.do_horizontal_centering(canvas, x, y, w, h)
+          end
+          x, y, w, h = element.draw(true)
+        end
+      end
+
+      def compile_horizontal(canvas, x, y, w, h)
+        @elements.each do |element|
+          if do_horizontal_centering? or element.do_horizontal_centering?
+            element.do_horizontal_centering(canvas, x, y, w, h)
+          end
+        end
+      end
+
+      def to_html(generator)
+        collect do |element|
+          element.to_html(generator)
+        end.join("\n")
+      end
+
+      def prop_set(*args)
+        each do |elem|
+          elem.prop_set(*args)
+        end
+      end
+
+      def prop_get(name)
+        collect do |elem|
+          elem.prop_get(name)
+        end
+      end
+
+      def prop_delete(name)
+        collect do |elem|
+          elem.prop_delete(name)
+        end
+      end
+
+      def width
+        @elements.collect do |elem|
+          w = elem.w
+          if w
+            w += elem.margin_left + elem.margin_right
+          end
+          w
+        end.compact.max.to_i + @padding_left + @padding_right
+      end
+
+      # SLOW!!
+      def _width
+        block_widths = []
+        block_widths << @elements.inject(0) do |result, elem|
+          if elem.width
+            if elem.inline_element?
+              result + elem.width
+            else
+              block_widths << elem.width
+              elem.width
+            end
+          else
+            result
+          end
+        end
+        block_widths.max.to_i
+      end
+
+      # perhaps SLOW!!
+      def height
+        inline_heights = []
+        @elements.inject(0) do |result, elem|
+          elem_height = elem.height
+          if elem_height
+            if elem.inline_element?
+              inline_heights << elem_height
+              result
+            else
+              prev_inlines_max_height = inline_heights.max.to_i
+              inline_heights.clear
+              h = elem_height + elem.margin_top + elem.margin_bottom
+              result + h + prev_inlines_max_height
+            end
+          else
+            result
+          end
+        end + inline_heights.max.to_i + @padding_top + @padding_bottom
+      end
+
+      def clear_theme
+        @elements.each do |element|
+          element.clear_theme
+        end
+        super
+      end
+      alias container_clear_theme clear_theme
+
+      def dirty?
+        super or @elements.any?{|x| x.dirty?}
+      end
+
+      def inspect(verbose=false)
+        elem_info = @elements.collect do |x|
+          _indent(x.inspect(verbose))
+        end.join("\n")
+        if verbose
+          self_info = super(verbose)
+        else
+          self_info = "<#{self.class.name}>"
+        end
+        self_info + (elem_info.empty? ? "" : "\n") + elem_info
+      end
+
+      def have_wait_tag?
+        @elements.any? {|element| element.have_wait_tag?}
+      end
+
+      def [](name_or_index)
+        if name_or_index.is_a?(Integer)
+          @elements[name_or_index]
+        else
+          super
+        end
+      end
+
+      def []=(name_or_index, value)
+        if name_or_index.is_a?(Integer)
+          @elements[name_or_index] = value
+        else
+          super
+        end
+      end
+    end
+  end
+end

data/lib/rabbit/element/description-list.rb

@@ -0,0 +1,56 @@
+require 'rabbit/element/container-element'
+require 'rabbit/element/text-container-element'
+
+module Rabbit
+  module Element
+    class DescriptionList
+      include ContainerElement
+
+      def to_html(generator)
+        "<dl>\n#{super}\n</dl>"
+      end
+    end
+
+    class DescriptionListItem
+      include ContainerElement
+
+      attr_reader :term, :content
+
+      def initialize(term, content)
+        super()
+        @term = term
+        @content = content
+        add_element(@term)
+        add_element(@content)
+      end
+    end
+
+    class DescriptionTerm
+      include TextContainerElement
+
+      def to_rd
+        ": #{text}"
+      end
+
+      def to_html(generator)
+        "<dt>\n#{super}\n</dt>"
+      end
+    end
+
+    class DescriptionContent
+      include ContainerElement
+
+      def text
+        super.gsub(/^/, "  ")
+      end
+
+      def to_rd
+        text.gsub(/^/, " ")
+      end
+
+      def to_html(generator)
+        "<dd>\n#{super}\n</dd>"
+      end
+    end
+  end
+end