rhet-butler 0.11.1 → 0.12.1

data/lib/rhet-butler/slide-arranger.rb

@@ -1,39 +0,0 @@
-require 'rhet-butler/slide-traverser'
-module RhetButler
-  class SlideArranger < SlideTraverser
-    attr_reader :slides, :current_slide
-    attr_accessor :root_arrangement
-
-    def setup
-      @slides = []
-      on_group(@root_arrangement)
-    end
-
-    def null_slide
-      @null_slide ||= Slide.new
-    end
-
-    def previous_slide
-      case @previous_slide
-      when Slide
-        @previous_slide
-      when nil
-        null_slide
-      else
-        @previous_slide.previous_slide
-      end
-    end
-
-    def on_slide(slide)
-      @current_slide = slide.dup
-      target_stack.last.arrange(self)
-      @slides.push @current_slide
-      @previous_slide = @current_slide
-    end
-
-    def ascend
-      @previous_slide = target_stack.last
-      super
-    end
-  end
-end

data/lib/rhet-butler/slide-processor.rb

@@ -1,27 +0,0 @@
-require 'rhet-butler/slide-rendering'
-require 'rhet-butler/arrangement-finder'
-require 'rhet-butler/slide-arranger'
-
-module RhetButler
-  class SlideProcessor
-    attr_accessor :root_group, :blueprint, :default_content_filters, :default_note_filters
-    attr_reader :slides
-
-    def process
-      rendering = SlideRendering.new
-      rendering.root_group = @root_group
-      rendering.traverse
-
-      finder = ArrangementFinder.new
-      finder.root_group = @root_group
-      finder.blueprint = @blueprint
-      finder.traverse
-
-      arranger = SlideArranger.new
-      arranger.root_arrangement = finder.root_arrangement
-      arranger.traverse
-
-      @slides = arranger.slides
-    end
-  end
-end

data/spec/arrangements.rb

@@ -1,76 +0,0 @@
-require 'rhet-butler/arrangement'
-require 'rhet-butler/slide'
-require 'rhet-butler/slide-loader'
-
-describe RhetButler::Arrangement do
-  let :slides do
-    (1..5).map do |num|
-      RhetButler::Slide.new.tap do |slide|
-        slide.content = "Slide ##{num}"
-      end
-    end
-  end
-
-  let :arranger do
-    arranger = RhetButler::SlideArranger.new
-    arranger.root_arrangement = arrangement
-    arranger
-  end
-
-  let :arranged do
-    arranger.traverse
-    arranger.slides
-  end
-
-  describe "digression" do
-    let :arrangement do
-      arrangement = RhetButler::Arrangement["linear"].new(1000, 0)
-      digression = RhetButler::Arrangement["linear-digress"].new(0, 1000)
-      digression.slides = (1..3).map do |num|
-        RhetButler::Slide.new.tap do |slide|
-          slide.content = "Aside ##{num}"
-        end
-      end
-      arrangement.slides = slides
-      arrangement.slides.insert(4, digression)
-      arrangement
-    end
-
-    it "should still last slide a 5000,0" do
-      arranged.last.position.x.should == 5000
-      arranged.last.position.y.should == 0
-    end
-
-    it "should have 8 slides" do
-      arranged.should have(8).slides
-    end
-
-    it "should put the last digression slide at 4000,3000" do
-      arranged[6].position.x.should == 4000
-      arranged[6].position.y.should == 3000
-    end
-  end
-
-  describe "horizontal" do
-    let :arrangement do
-      arrangement = RhetButler::Arrangement["horizontal"].new
-      arrangement.slides = slides
-      arrangement
-    end
-
-    it "should all at the same y position" do
-      arranged.map do |slide|
-        slide.position.y
-      end.uniq.should have(1).value
-    end
-
-    it "should monotonically increase x position" do
-      arranged.each_cons(2).map do |left, right|
-        right.position.x - left.position.x
-      end.each do |difference|
-        difference.should > 0
-      end
-    end
-
-  end
-end

data/spec/slide-processing.rb

@@ -1,76 +0,0 @@
-require 'rhet-butler/slide-loader'
-
-describe RhetButler::SlideProcessor do
-  def slide(content)
-    slide = RhetButler::Slide.new
-    slide.content = content
-    slide.content_filters = default_content_filters
-    slide.note_filters = default_content_filters
-    slide
-  end
-
-  def group(*slides)
-    group = RhetButler::SlideGroup.new
-    group.slides = slides
-    group
-  end
-
-  let :slides do
-    [
-      slide("A"),
-      slide("B"),
-      group(slide("C"), slide("D"), slide("E"))
-    ]
-  end
-
-  let :root_group do
-    group(*slides)
-  end
-
-  let :root_arrangement do
-    RhetButler::Arrangement['horizontal'].new
-  end
-
-  let :blueprint do
-    [
-      RhetButler::LayoutRule.new.tap do |rule|
-        rule.layout_type = 'horizontal'
-      end
-    ]
-  end
-
-  let :default_content_filters do
-    [RhetButler::SlideRenderers::Textile.new]
-  end
-
-  let :processor do
-    processor = RhetButler::SlideProcessor.new
-    processor.root_group = root_group
-    processor.blueprint = blueprint
-    processor.default_content_filters = default_content_filters
-    processor.default_note_filters = default_content_filters
-    processor
-  end
-
-  let :result do
-    processor.process
-    processor.slides
-  end
-
-  it "should produce slides" do
-    result.each do |slide|
-      slide.should be_a_kind_of(RhetButler::Slide)
-    end
-  end
-
-  it "should have five slides" do
-    result.should have(5).slides
-
-  end
-
-  it "should put all the slides in order" do
-    result.map do |slide|
-      slide.content
-    end.should == %w{A B C D E}.map{|str| "<p>#{str}</p>"}
-  end
-end