jm81-dm-filters 0.1.0

data/.document

@@ -0,0 +1,5 @@
+README.rdoc
+lib/**/*.rb
+bin/*
+features/**/*.feature
+LICENSE

data/.gitignore

@@ -0,0 +1,7 @@
+*.sw?
+.DS_Store
+coverage
+rdoc
+pkg
+.project
+.loadpath

data/LICENSE

@@ -0,0 +1,20 @@
+Copyright (c) 2009 Jared Morgan
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README.md

@@ -0,0 +1,42 @@
+dm-filters
+==========
+
+This module enables a property in a DataMapper::Resource class to be filtered on
+save into another property, using per-row and/or per-property filters.
+
+To use in a model:
+
+    include Filters::Resource
+
+The syntax when defining a property is:
+
+    property :prop_name, :filter => {
+      :to => :filtered_prop,
+      :with => :filter_column,
+      :default => "DefaultFilter"
+    }
+
+(:with and :default are optional, though at least one should be specified.)
+
+See Filters::AVAILABLE_FILTERS for some filter options. Additional filters
+may be defined in this constant Hash.
+
+If the properties in :to and :with have not yet been defined, they will be
+defined automatically. Hence, if want to specify any options with this, they
+should be defined before to filtered property.
+
+##Installation
+
+To install the gem:
+
+    gem sources -a http://gems.github.com
+    sudo gem install jm81-dm-filters
+    
+To require:
+
+    gem 'jm81-dm-filters'
+    require 'dm-filters'
+
+##Copyright
+
+Copyright (c) 2009 Jared Morgan. See LICENSE for details.

data/Rakefile

@@ -0,0 +1,49 @@
+require 'rubygems'
+require 'rake'
+
+begin
+  require 'jeweler'
+  Jeweler::Tasks.new do |gem|
+    gem.name = "dm-filters"
+    gem.summary = %Q{TODO}
+    gem.email = "jmorgan@morgancreative.net"
+    gem.homepage = "http://github.com/jm81/dm-filters"
+    gem.authors = ["Jared Morgan"]
+    gem.add_dependency('dm-core')
+    # gem is a Gem::Specification... see http://www.rubygems.org/read/chapter/20 for additional settings
+  end
+
+rescue LoadError
+  puts "Jeweler (or a dependency) not available. Install it with: sudo gem install jeweler"
+end
+
+require 'spec/rake/spectask'
+Spec::Rake::SpecTask.new(:spec) do |spec|
+  spec.libs << 'lib' << 'spec'
+  spec.spec_files = FileList['spec/**/*_spec.rb']
+end
+
+Spec::Rake::SpecTask.new(:rcov) do |spec|
+  spec.libs << 'lib' << 'spec'
+  spec.pattern = 'spec/**/*_spec.rb'
+  spec.rcov = true
+end
+
+
+task :default => :spec
+
+require 'rake/rdoctask'
+Rake::RDocTask.new do |rdoc|
+  if File.exist?('VERSION.yml')
+    config = YAML.load(File.read('VERSION.yml'))
+    version = "#{config[:major]}.#{config[:minor]}.#{config[:patch]}"
+  else
+    version = ""
+  end
+
+  rdoc.rdoc_dir = 'rdoc'
+  rdoc.title = "dm-filters #{version}"
+  rdoc.rdoc_files.include('README*')
+  rdoc.rdoc_files.include('lib/**/*.rb')
+end
+

data/VERSION

@@ -0,0 +1 @@
+0.1.0

data/lib/dm-filters.rb

@@ -0,0 +1,141 @@
+require 'rubygems'
+
+# This module enables a property to be filtered on save into another property,
+# using per-row and/or per-property filters. The syntax when defining a property
+# is:
+#   property :prop_name, :filter => {:to => :filtered_prop, :with => :filter_column, :default => "DefaultFilter"}
+#   (:with and :default are optional, though at least one should be specified.)
+#
+# If the properties in :to and :with have not yet been defined, they will be
+# defined automatically. Hence, if want to specify any options with this, they
+# should be defined before to filtered property.
+
+module Filters
+  
+  # A hash, with each entry of the form:
+  # Filter name (used in +filters+ property) => 
+  #  Array of two elements Arrays representing classes that can process this
+  # filter. Elements are: [ argument_for_require, class_name ].
+  # Classes are assumed to respond to +to_html+.
+  AVAILABLE_FILTERS = {
+    'Smartypants' => [['rubypants', 'RubyPants']],
+    'Markdown' => [['rdiscount', 'RDiscount'], ['bluecloth', 'BlueCloth']],
+    'Textile' => [['redcloth', 'RedCloth']],
+    'BibleML' => [[File.dirname(__FILE__) + '/filters/bible_ml', 'BibleML']],
+    'Linebreaker' => [[File.dirname(__FILE__) + '/filters/linebreaker', 'Linebreaker']],
+  }
+  
+  def self.process(filters, content)
+    return content if filters.nil?
+    
+    filters = filters.split(';') if filters.kind_of?(String)
+    filters.each do |name|
+      filter = get_filter(name)
+      next unless filter
+      content = filter.new(content).to_html
+    end
+    content
+  end
+  
+  def self.get_filter(name)
+    name = name.strip.camel_case
+    info = AVAILABLE_FILTERS[name]
+    return(nil) unless info
+      
+    # Try to find loaded class
+    info.each do |c|
+      return Object.const_get(c[1]) if Object.const_defined?(c[1])
+    end
+    
+    # Try to require a class
+    info.each do |c|
+      begin
+        require(c[0])
+        return Object.const_get(c[1])
+      rescue LoadError
+        # Try next
+      end
+    end
+    
+    return nil
+  end
+  
+  # Filters::Resource can be included in a model to enable the
+  # :filtered_to => (name of other property) option for +properties+.
+  # This adds a property name "filters", which is a semi-colon delimited list
+  # of filters through which to process the original property.  
+  module Resource
+    class << self
+      def included(klass) # Set a few 'magic' properties
+        klass.extend(ClassMethods)
+        klass.before :save, :process_filters
+      end
+    end
+      
+    # Process and filters for @filtered_properties.
+    def process_filters
+      return if self.class.filtered_properties.nil?
+      self.class.filtered_properties.each do |f|
+        if attribute_dirty?(f[:name])
+          filters = nil
+          if !f[:with].blank?
+            if f[:with].kind_of?(Symbol)
+              filters = self.__send__(f[:with])
+            else
+              filters = f[:with]
+            end
+          end
+          if filters.blank?
+            filters = f[:default]
+          end
+          if filters == :site
+            filters = self.site.__send__("#{self.class.name.snake_case}_filter")
+          end
+          attribute_set(f[:to], Filters.process(filters, self.__send__(f[:name])))
+        end
+      end
+    end
+
+    module ClassMethods
+      # Override DataMapper's +property+ class method to accept as an option
+      # +filter+. +filter+ Hash with the following pairs:
+      # - +:to+ - Name of property to filter to; this should not be explicitly
+      #   declared as a property.
+      # - +:with+ - Either 1) Name of the property (as a symbol) that designates
+      #   filter (does  not need to be explicitly declared as a property) or
+      #   2) A semi-colon delimited String represented filters to use (or an
+      #   Array of strings).
+      # - +:default+ - A semi-colon delimited String represented filters to use
+      #   (or an Array of strings) if the filter column is blank.
+      def property(name, type, options = {})
+        if filter = options.delete(:filter)
+          @filtered_properties ||= []
+          @filtered_properties << filter.merge({:name => name})
+          begin
+            self.properties[filter[:to].to_s]
+          rescue
+            self.property(filter[:to], type)
+          end
+          if filter[:with].kind_of?(Symbol)
+            begin
+              self.properties[filter[:with].to_s]
+            rescue
+              self.property(filter[:with], String)
+            end
+          end
+        end
+        
+        super(name, type, options)
+      end
+      
+      def filtered_properties
+        begin
+          # This is to work with STI models. It's not a very good solution.
+          @filtered_properties || self.superclass.filtered_properties
+        rescue
+          nil
+        end
+      end
+    end
+  end
+end

data/lib/filters/bible_ml.rb

@@ -0,0 +1,244 @@
+require 'rexml/document'
+require 'open-uri'
+require 'rubypants'
+require 'rdiscount'
+
+class BibleML
+
+  VERSION_IDS = {
+    'cev' => 46,
+    'niv' => 31,
+    'nasb' => 49,
+    'message' => 65,
+    'amp' => 45,
+    'nlt' => 51,
+    '21st century kjv' => 48,
+    'asv' => 8,
+    'darby' => 16,
+    'douay-rheims' => 63,
+    'esv' => 47,
+    'holman' => 77,
+    'kjv' => 9,
+    'ncv' => 78,
+    'nkjv' => 50,
+    'new life' => 74,
+    'wycliffe' => 53,
+    "young" => 15
+  }
+
+  def initialize(input)
+    @xml = REXML::Document.new("<fg:body xmlns:fg='http://fromgenesis.org'>#{input}</fg:body>")
+  end
+  
+  def to_html
+    txt = self.
+      primary_passage.
+      strip_comments.
+      block_quotes.
+      inline_quotes.
+      wikipedia_links.
+      to_s
+    txt = RubyPants.new(txt).to_html
+    txt = RDiscount.new(txt).to_html
+  end
+  
+  # Convert fg:pp tags to Primary Passage links
+  # and set primary passage book and chapter from
+  # last fg:pp tag.
+  def primary_passage
+    @xml.elements.each("//fg:pp") do | pp_el |
+      ref = pp_el.attributes['p']
+      ref_link = REXML::Element.new("a")
+      ref_link.add_attribute('href', bg_link(ref))
+      ref_link.text = "Read #{ref}"
+      pp_el.parent.insert_after(pp_el, ref_link)
+
+      marker = REXML::Text.new(" |\n")
+      pp_el.parent.insert_after(ref_link, marker)
+
+      chapter = pp_el.attributes['p'].split(":")[0]
+      chapter_link = REXML::Element.new("a")
+      chapter_link.add_attribute('href', bg_link(chapter))
+      chapter_link.text = "Full Chapter"
+      pp_el.parent.insert_after(marker, chapter_link)
+      
+      pp_el.parent.delete_element(pp_el)
+      
+      m = chapter.match(/(.*)\s(\d+)\Z/)
+      @passage_book = m[1]
+      @passage_chapter = m[2]
+    end
+    
+    self
+  end
+  
+  # Strip fg:cm tags
+  def strip_comments
+    @xml = REXML::Document.new(@xml.to_s.gsub(/\<\/?fg\:cm([^>]*)>/, ''))
+    self
+  end
+  
+  # Convent fg:bq tags to block quotes with reference
+  def block_quotes
+    @xml.elements.each("//fg:bq") do | bq_el |
+      blockquote = REXML::Element.new("blockquote")
+      
+      if bq_el.has_elements? || bq_el.has_text? 
+        bq_el.children.each do | child |
+          blockquote << child
+        end
+      else
+        blockquote << REXML::Text.new(get_passage(bq_el.attributes['p'], bq_el.attributes['v']))
+      end
+      
+      blockquote << REXML::Text.new("\n")
+      blockquote << REXML::Element.new("br")
+      blockquote << REXML::Text.new("\n(")
+      blockquote << reference_a(bq_el.attributes['p'], bq_el.attributes['v'])
+      blockquote << REXML::Text.new(")\n")
+      
+      bq_el.parent.replace_child(bq_el, blockquote)
+    end
+    self
+  end
+    
+  # Convent fg:iq tags to inline quotes with reference
+  def inline_quotes
+    @xml.elements.each("//fg:iq") do | iq_el |
+      quote = REXML::Element.new("span")
+
+      quote << REXML::Text.new("\"")
+      
+      if iq_el.has_elements? || iq_el.has_text? 
+        iq_el.children.each do | child |
+          quote << child
+        end
+      else
+        quote << REXML::Text.new(get_passage(iq_el.attributes['p'], iq_el.attributes['v']))
+      end
+      
+      quote << REXML::Text.new("\" (")
+      quote << reference_a(iq_el.attributes['p'], iq_el.attributes['v'])
+      quote << REXML::Text.new(")\n")
+      
+      iq_el.parent.replace_child(iq_el, quote)
+    end
+    self
+  end
+  
+  def wikipedia_links
+    @xml.elements.each("//fg:wp") do | wp_el |
+      a = REXML::Element.new("a")
+      
+      a.add_attribute('href', "http://en.wikipedia.org/wiki/#{wp_el.attributes['a']}")
+      if wp_el.has_elements? || wp_el.has_text? 
+        wp_el.children.each do | child |
+          a << child
+        end
+      else
+        a << REXML::Text.new(wp_el.attributes['a'])
+      end
+      
+      wp_el.parent.replace_child(wp_el, a)
+    end
+    self
+  end
+  
+  def fill_missing_text
+    @xml.elements.each("//fg:pp") do | pp_el |
+      chapter = pp_el.attributes['p'].split(":")[0]
+      m = chapter.match(/(.*)\s(\d+)\Z/)
+      @passage_book = m[1]
+      @passage_chapter = m[2]
+    end
+
+    @xml.elements.each("//fg:iq") do | q_el |
+      unless q_el.has_elements? || q_el.has_text? 
+        q_el << REXML::Text.new(get_passage(q_el.attributes['p'], q_el.attributes['v']))
+      end
+    end
+
+    @xml.elements.each("//fg:bq") do | q_el |
+      unless q_el.has_elements? || q_el.has_text?
+        psg = get_passage(q_el.attributes['p'], q_el.attributes['v'])
+        psg = wordwrap(" " + psg) + "\n"
+        q_el << REXML::Text.new(psg)
+      end
+    end
+    self
+  end
+  
+  # Based on http://blade.nagaokaut.ac.jp/cgi-bin/scat.rb/ruby/ruby-talk/10655
+  def wordwrap(txt)
+    txt.gsub(/\t/,"     ").
+        gsub(/\"/,"&quot;").
+        gsub(/\'/,"&apos;").
+        gsub(/.{1,78}(?:\s|\Z)/){($& + 5.chr).
+        gsub(/\n\005/,"\n  ").
+        gsub(/\005/,"\n  ")}.
+        gsub(/&quot;/, "\"").
+        gsub(/&apos;/, "\'")
+  end
+  
+  class << self
+    def fill_missing_text(input)
+      new(input).fill_missing_text.to_s
+    end
+  end
+  
+  def to_s
+    @xml.to_s.gsub(/<\/?fg:body[^>]*>/, '')
+  end
+  
+  # Add book and chapter information to shorthand references
+  def expand_reference(ref)
+    ref.strip!
+    if ref.match(/\A(\d+-?\d*)\Z/) # Just verse(s) given
+      "#{@passage_book} #{@passage_chapter}:#{ref}"
+    elsif ref.match(/\A(\d+):(\d+-?\d*)\Z/) # Just chapter and verse(s) given
+      "#{@passage_book} #{ref}"
+    else
+      ref
+    end
+  end
+  
+  # Generate 'a' element for reference link
+  def reference_a(ref, version = nil, label = nil)
+    ref = expand_reference(ref)
+    
+    unless label
+      label = ref
+      label += ", #{version}" if version
+    end
+    
+    ref_link = REXML::Element.new("a")
+    ref_link.add_attribute('href', bg_link(ref, version))
+    ref_link.text = label
+    
+    ref_link
+  end
+     
+  def bg_link(ref, version = nil)
+    ref = expand_reference(ref)
+    
+    ln = "http://www.biblegateway.com/passage/?search=" + ref.downcase.gsub(/\s/, "%20")
+    ln += ";&version=#{VERSION_IDS[version.downcase]};" if version
+    ln
+  end
+  
+  def get_passage(ref, version = "NASB")
+    xhtml = open(bg_link(ref, version)) do |f|
+      html = f.read.split('<div class="result-text-style-normal">')[1]
+      html = html.split(/<\/?div/)[0]
+      REXML::Document.new("<body>#{html}</body>")
+    end
+
+    xhtml.root.elements.delete_all("//h4")
+    xhtml.root.elements.delete_all("//h5")
+    xhtml.root.elements.delete_all("//span")
+    xhtml.root.elements.delete_all("//sup")
+    xhtml.root.elements.delete_all("//br")
+
+    xhtml.to_s.gsub(/<\/?body>/, '').gsub(/<\/?p\/?>/, '').gsub('&nbsp;', ' ').squeeze(" ").gsub(/ \" /, ' "')
+  end
+end

data/lib/filters/linebreaker.rb

@@ -0,0 +1,14 @@
+# This filter just replaces single newlines with "<br />" tags.
+class Linebreaker
+
+  def initialize(input)
+    @input = input
+  end
+  
+  def to_html
+    @input.
+      gsub(/(\S)\n(\S)/, "\\1<br />\n\\2").
+      gsub(/(\S)\r\n(\S)/, "\\1<br />\n\\2")
+  end
+  
+end

data/spec/dm-filters_spec.rb

@@ -0,0 +1,43 @@
+require File.expand_path(File.dirname(__FILE__) + '/spec_helper')
+
+describe Filters do
+  describe "#process" do
+    before(:each) do
+      @filter_one = mock("Filter 1")
+      @filter_two = mock("Filter 2")
+      @processor_one, @processor_two = mock("Processor 1"), mock("Processor 2")
+      @processed_one, @processed_two = mock("Processed 1"), mock("Processed 2")
+    end
+    
+    it "should process through each filter" do
+      Filters.should_receive(:get_filter).with("FilterOne").and_return(@filter_one)
+      @filter_one.should_receive(:new).with("content").and_return(@processor_one)
+      @processor_one.should_receive(:to_html).and_return(@processed_one)
+      Filters.should_receive(:get_filter).with(" FilterTwo").and_return(@filter_two)
+      @filter_two.should_receive(:new).with(@processed_one).and_return(@processor_two)
+      @processor_two.should_receive(:to_html).and_return(@processed_two)
+      Filters.process("FilterOne; FilterTwo", "content").should == @processed_two
+    end
+  end
+
+  describe "#get_filter" do
+    it "should return nil if name not found in AVAILABLE_FILTERS" do
+      Filters.get_filter("neverafilter").should be_nil
+    end
+    
+    it "should return a filter if it's constant is defined" do
+      red_cloth = mock('RedCloth')
+      Object.should_receive(:const_defined?).with('RedCloth').and_return(true)
+      Object.should_receive(:const_get).with('RedCloth').and_return(red_cloth)
+      Filters.get_filter("Textile").should be(red_cloth)
+    end
+    
+    it "should attempt to require an undefined filter" do
+      red_cloth = mock('RedCloth')
+      Object.should_receive(:const_defined?).with('RedCloth').and_return(false)
+      Filters.should_receive(:require).with('redcloth').and_return(true)
+      Object.should_receive(:const_get).with('RedCloth').and_return(red_cloth)
+      Filters.get_filter("Textile").should be(red_cloth)
+    end
+  end
+end

data/spec/filters/bible_ml_spec.rb

@@ -0,0 +1,106 @@
+require File.expand_path(File.dirname(__FILE__) + '/../spec_helper')
+require File.expand_path(File.dirname(__FILE__) + '/../../lib/filters/bible_ml')
+
+describe BibleML do
+
+  it "should convert a fg:bq element to a block quote" do
+    BibleML.new('<p>1</p><fg:bq p="Exodus 5:1-5" v="ESV">quote <span>hi</span></fg:bq><p>2</p>').
+      block_quotes.
+      to_s.should ==
+      "<p>1</p><blockquote>quote <span>hi</span>\n<br/>\n" +
+      "(<a href='http://www.biblegateway.com/passage/?search=exodus%205:1-5;&amp;version=47;'>Exodus 5:1-5, ESV</a>)" +
+      "\n</blockquote><p>2</p>"
+  end
+    
+  it "should fill in text of an empty fg:bq element" do
+    BibleML.new('<fg:bq p="Exodus 5:2-3" v="CEV" />').
+      block_quotes.
+      to_s.should ==
+      "<blockquote>\n &quot;Who is this LORD and why should I obey him?&quot; the king replied. &quot;I refuse to let you and your people go!&quot; " +
+      "They answered, &quot;The LORD God of the Hebrews, has appeared to us. Please let us walk three days into the desert " +
+      "where we can offer sacrifices to him. If you don&apos;t, he may strike us down with terrible troubles or with war.&quot; \n" +
+      "<br/>\n" +
+      "(<a href='http://www.biblegateway.com/passage/?search=exodus%205:2-3;&amp;version=46;'>Exodus 5:2-3, CEV</a>)" +
+      "\n</blockquote>"
+  end
+
+  it "should assume book and chapter based on bg:pp if ommitted" do
+    convertor = BibleML.new('<fg:pp p="Exodus 5:1-5" />').primary_passage
+    convertor.expand_reference("7").should == "Exodus 5:7"
+    convertor.expand_reference("7-10").should == "Exodus 5:7-10"
+    convertor.expand_reference("6:7").should == "Exodus 6:7"
+    convertor.expand_reference("6:7-10").should == "Exodus 6:7-10"
+    convertor.expand_reference("John 6:7").should == "John 6:7"
+    convertor.expand_reference("John 6:7-10").should == "John 6:7-10"
+  end
+
+  it "should convert a fg:iq element to an inline quote" do
+    BibleML.new('<p>this is a <fg:iq p="1 Peter 1:2" v="Young">inline quote</fg:iq></p>').
+      inline_quotes.
+      to_s.should ==
+      "<p>this is a <span>&quot;inline quote&quot; " +
+      "(<a href='http://www.biblegateway.com/passage/?search=1%20peter%201:2;&amp;version=15;'>1 Peter 1:2, Young</a>)" +
+      "\n</span></p>"
+  end
+  
+  it "should fill in text of an empty fg:iq element" do
+    BibleML.new('<p><fg:iq p="1 Peter 1:2" v="Young" /></p>').
+      inline_quotes.
+      to_s.should ==
+      "<p><span>&quot;\n according to a foreknowledge of God the Father, in sanctification of the Spirit, " +
+      "to obedience and sprinkling of the blood of Jesus Christ: Grace to you and peace be multiplied! &quot; " +
+      "(<a href='http://www.biblegateway.com/passage/?search=1%20peter%201:2;&amp;version=15;'>1 Peter 1:2, Young</a>)" +
+      "\n</span></p>"
+  end
+  
+  it "should strip fg:cm tags" do
+    BibleML.new('test <fg:cm p="Genesis 11:10-11">comment</fg:cm> test2').
+      strip_comments.
+      to_s.should ==
+      "test comment test2"
+  end
+  
+  it "should convert fg:pp tag to Primary Passage links" do
+    BibleML.new('<fg:pp p="Exodus 5:1-5" />').
+      primary_passage.
+      to_s.should ==
+      "<a href='http://www.biblegateway.com/passage/?search=exodus%205:1-5'>Read Exodus 5:1-5</a> |\n" +
+      "<a href='http://www.biblegateway.com/passage/?search=exodus%205'>Full Chapter</a>"
+  end
+  
+  it "should create link from reference with verses" do
+    BibleML.new('').bg_link("Genesis 1:10").should ==
+      "http://www.biblegateway.com/passage/?search=genesis%201:10"
+  end
+  
+  it "should create link from reference without verses" do
+    BibleML.new('').bg_link("Genesis 1").should ==
+      "http://www.biblegateway.com/passage/?search=genesis%201"
+  end
+  
+  it "should convert version names to biblegateway.com ids" do
+    BibleML::VERSION_IDS['niv'].should == 31
+    BibleML::VERSION_IDS['cev'].should == 46
+  end
+  
+  it "should convert an fg:wp element to a wikipedia link" do
+    BibleML.new('<fg:wp a="Bible">the Bible</fg:wp>').
+      wikipedia_links.
+      to_s.should ==
+      "<a href='http://en.wikipedia.org/wiki/Bible'>the Bible</a>"
+  end
+  
+  it "should convert fixture (full document)" do
+    input  = File.read(File.dirname(__FILE__) + "/fixtures/gen11/input.xml")
+    output = File.read(File.dirname(__FILE__) + "/fixtures/gen11/output.xml")
+    output.gsub!("\r\n", "\n") # Just in case I run specs in git repo in Windows
+    BibleML.new(input).to_html.should == output
+  end
+
+  it "should convert only missing text" do
+    BibleML::fill_missing_text('<p><fg:iq p="1 Peter 1:2" v="Young" /></p>').
+      should ==
+      "<p><fg:iq v='Young' p='1 Peter 1:2'>\n according to a foreknowledge of God the Father, in sanctification of the Spirit, " +
+      "to obedience and sprinkling of the blood of Jesus Christ: Grace to you and peace be multiplied! </fg:iq></p>"
+  end
+end

data/spec/filters/fixtures/gen11/input.xml

@@ -0,0 +1,16 @@
+<fg:pp p="Genesis 11:10-20" />
+
+<fg:bq p="Genesis 11:10-14" v="NASB" />
+
+<fg:cm p="Genesis 11:10-11">This passage tells us something.</fg:cm>
+<fg:cm p="Genesis 11:12-14">Now these verses elaborate</fg:cm>
+
+<fg:bq p="Genesis 11:15-20" v="CEV">
+Already quoted.
+</fg:bq>
+
+<fg:cm p="Genesis 11:15-18">
+  This comment <fg:iq p="Genesis 11:20" v="NIV">quotes a verse</fg:iq>
+  This comment quotes a verse to fill in
+  <fg:iq p="Genesis 11:21" v="NIV" />
+</fg:cm>

data/spec/filters/fixtures/gen11/output.xml

@@ -0,0 +1,27 @@
+<p><a href='http://www.biblegateway.com/passage/?search=genesis%2011:10-20'>Read Genesis 11:10-20</a> |
+<a href='http://www.biblegateway.com/passage/?search=genesis%2011'>Full Chapter</a></p>
+
+<blockquote>
+ These are the records of the generations of Shem. Shem was one hundred years old, and became the father of Arpachshad two years after the flood; and Shem lived five hundred years after he became the father of Arpachshad, and he had other sons and daughters. Arpachshad lived thirty-five years, and became the father of Shelah; and Arpachshad lived four hundred and three years after he became the father of Shelah, and he had other sons and daughters. Shelah lived thirty years, and became the father of Eber; 
+<br/>
+(<a href='http://www.biblegateway.com/passage/?search=genesis%2011:10-14;&amp;version=49;'>Genesis 11:10-14, NASB</a>)
+</blockquote>
+
+
+<p>This passage tells us something.
+Now these verses elaborate</p>
+
+<blockquote>
+Already quoted.
+
+<br/>
+(<a href='http://www.biblegateway.com/passage/?search=genesis%2011:15-20;&amp;version=46;'>Genesis 11:15-20, CEV</a>)
+</blockquote>
+
+
+<p>  This comment <span>&quot;quotes a verse&quot; (<a href='http://www.biblegateway.com/passage/?search=genesis%2011:20;&amp;version=31;'>Genesis 11:20, NIV</a>)
+</span>
+  This comment quotes a verse to fill in
+  <span>&quot;
+ And after he became the father of Serug, Reu lived 207 years and had other sons and daughters.&quot; (<a href='http://www.biblegateway.com/passage/?search=genesis%2011:21;&amp;version=31;'>Genesis 11:21, NIV</a>)
+</span></p>

data/spec/filters/linebreaker_spec.rb

@@ -0,0 +1,11 @@
+require File.expand_path(File.dirname(__FILE__) + '/../spec_helper')
+require File.expand_path(File.dirname(__FILE__) + '/../../lib/filters/linebreaker')
+
+describe Linebreaker do
+
+  it "should convert single line breaks to <br> tags" do
+    Linebreaker.new("abc\n\ndef\nghi").to_html.should ==
+      "abc\n\ndef<br />\nghi"
+  end
+
+end

data/spec/filters_resource_spec.rb

@@ -0,0 +1,29 @@
+require File.expand_path(File.dirname(__FILE__) + '/spec_helper')
+require 'dm-core'
+
+class MockContent
+  include DataMapper::Resource
+  include Filters::Resource
+  
+  property :html, Text
+  property :filters, String
+end
+
+describe Filters::Resource do
+  describe ".property" do
+    before(:each) do
+      @model = MockContent
+      @props = @model.properties
+    end
+        
+    it "should add :to property if not defined" do
+      @model.property(:body, String, :filter => {:to => :html2, :with => "Markdown"})
+      MockContent.properties['html2'].should be_kind_of(DataMapper::Property)
+    end
+
+    it "should not add :with property if not defined" do
+      @model.property(:body, String, :filter => {:to => :html, :with => :filters2})
+      MockContent.properties['filters2'].should be_kind_of(DataMapper::Property)
+    end
+  end
+end

data/spec/spec_helper.rb

@@ -0,0 +1,9 @@
+require 'spec'
+
+$LOAD_PATH.unshift(File.dirname(__FILE__))
+$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
+require 'dm-filters'
+
+Spec::Runner.configure do |config|
+  
+end

metadata

@@ -0,0 +1,82 @@
+--- !ruby/object:Gem::Specification 
+name: jm81-dm-filters
+version: !ruby/object:Gem::Version 
+  version: 0.1.0
+platform: ruby
+authors: 
+- Jared Morgan
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-07-09 00:00:00 -07:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: dm-core
+  type: :runtime
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: "0"
+    version: 
+description: 
+email: jmorgan@morgancreative.net
+executables: []
+
+extensions: []
+
+extra_rdoc_files: 
+- LICENSE
+- README.md
+files: 
+- .document
+- .gitignore
+- LICENSE
+- README.md
+- Rakefile
+- VERSION
+- lib/dm-filters.rb
+- lib/filters/bible_ml.rb
+- lib/filters/linebreaker.rb
+- spec/dm-filters_spec.rb
+- spec/filters/bible_ml_spec.rb
+- spec/filters/fixtures/gen11/input.xml
+- spec/filters/fixtures/gen11/output.xml
+- spec/filters/linebreaker_spec.rb
+- spec/filters_resource_spec.rb
+- spec/spec_helper.rb
+has_rdoc: false
+homepage: http://github.com/jm81/dm-filters
+post_install_message: 
+rdoc_options: 
+- --charset=UTF-8
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.2.0
+signing_key: 
+specification_version: 3
+summary: TODO
+test_files: 
+- spec/dm-filters_spec.rb
+- spec/filters/bible_ml_spec.rb
+- spec/filters/linebreaker_spec.rb
+- spec/filters_resource_spec.rb
+- spec/spec_helper.rb