block-html 0.0.3

data/COPYING

@@ -0,0 +1,18 @@
+Copyright (c) 2008-2009 Jun Kikuchi
+
+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 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.rdoc

@@ -0,0 +1 @@
+= block-html

data/Rakefile

@@ -0,0 +1,30 @@
+require 'rubygems'
+require 'spec/rake/spectask'
+
+NAME = 'block-html'
+
+begin
+  require 'jeweler'
+  Jeweler::Tasks.new do |s|
+    s.name = NAME
+    s.platform = Gem::Platform::RUBY
+    s.summary = NAME
+    s.description = NAME
+    s.author = "Jun Kikuchi"
+    s.email = "kikuchi@bonnou.com"
+    s.homepage = "http://github.com/JunKikuchi/block-html"
+    s.files = %w(
+      COPYING CHANGELOG README.rdoc Rakefile VERSION
+    ) + Dir.glob("{bin,doc,spec,lib}/**/*")
+    s.require_path = "lib"
+    s.has_rdoc = true
+  end
+rescue LoadError
+  puts "Jeweler not available. Install it with: sudo gem install technicalpickles-jeweler -s http://gems.github.com"
+end
+
+Spec::Rake::SpecTask.new do |t|
+  #t.spec_opts = ['-c --format specdoc']
+  t.spec_opts = ['-c']
+  t.spec_files = FileList['spec/**/*_spec.rb']
+end

data/VERSION

@@ -0,0 +1 @@
+0.0.3

data/lib/block-html/form.rb

@@ -0,0 +1,113 @@
+class BlockHTML
+  class Form < BlockHTML
+    def tag(tag, attrs={}, &block)
+      self << Tag.new(nil, tag, attrs, @env_instance, &block)
+    end
+
+    def form(attrs={}, &block)
+      tag(:form, attrs, &block)
+    end
+
+    class Tag < BlockHTML::Tag
+      def initialize(model, name, attrs={}, env_instance=nil, &block)
+        @model = model
+        super(name, attrs, env_instance, &block)
+      end
+
+      def tag(tag, attrs={}, &block)
+        self << Tag.new(@model, tag, attrs, @env_instance, &block)
+      end
+
+      def model(model, &block)
+        @model = model
+        block.call(self)
+        @model = nil
+      end
+
+      def errors(name, params={})
+        return if @model.nil? || @model.errors[name].empty?
+
+        tag(:div, params) {
+          @model.errors.on(name).each do |val|
+            tag(:p).text(val)
+          end
+        }
+      end
+
+      def edit(name, attrs={})
+        self << Element::Input.new(
+          @model,
+          attrs.merge(:name => name, :type => :text)
+        )
+      end
+
+      def password(name, attrs={})
+        self << Element::Input.new(
+          @model,
+          attrs.merge(:name => name, :type => :password, :value => nil)
+        )
+      end
+
+      %w(file hidden).each do |type|
+        class_eval %Q{
+          def #{type}(name, attrs={})
+            self << Element::Input.new(
+              @model,
+              attrs.merge(:name => name, :type => :#{type})
+            )
+          end
+        }
+      end
+
+      %w(submit reset button radio).each do |type|
+        class_eval %Q{
+          def #{type}(name, attrs={})
+            self << Element::Button.new(
+              @model,
+              attrs.merge(:name => name, :type => :#{type})
+            )
+          end
+        }
+      end
+
+      def checkbox(name, attrs={})
+        self << Element::Checkbox.new(
+          @model,
+          attrs.merge(:name => name, :type => :checkbox)
+        )
+      end
+    end
+
+    class Element < BlockHTML
+      def initialize(model, attrs)
+        super()
+        @model = model
+        @attrs = attrs
+        @name  = @attrs[:name]
+        @id    = @attrs[:id] || @name
+        @value = @model ? @model.__send__(@name) : @attrs[:value]
+      end
+
+      class Input < Element
+        def initialize(model, attrs)
+          super(model, attrs)
+          tag(:input, @attrs.merge(:id => @id, :value => @value))
+        end
+      end
+
+      class Button < Element
+        def initialize(model, attrs)
+          super(model, attrs)
+          tag(:input, @attrs.merge(:id => @id, :value => @value || @name))
+        end
+      end
+
+      class Checkbox < Element
+        def initialize(model, attrs)
+          super(model, attrs)
+          tag(:input, @value ? @attrs.merge(:checked => '') : @attrs)
+        end
+      end
+    end
+  end
+end

data/lib/block-html.rb

@@ -0,0 +1,294 @@
+class BlockHTML
+  attr_accessor :parent
+
+  def initialize(env_instance=nil, &block)
+    @parent, @nodes, @env_instance = nil, [], env_instance
+
+    @env_instance && @env_instance.instance_variables.each do |v|
+      self.instance_variable_set(v, @env_instance.instance_variable_get(v))
+    end
+
+    instance_eval(&block) if block_given?
+  end
+
+  def <<(tree)
+    tree.parent = self
+    @nodes << tree
+    tree
+  end
+
+  def path(&block)
+    node = if block_given?
+      block.call(self)
+    else
+      self
+    end
+
+    if parent.nil?
+      [node]
+    else
+      parent.path(&block).push(node)
+    end
+  end
+
+  def root
+    path.shift
+  end
+
+  def each(&block)
+    @nodes.each(&block)
+  end
+
+  def empty?
+    @nodes.empty?
+  end
+
+  def xml(attrs={})
+    self << XML.new(attrs)
+  end
+
+  def doctype(attrs={})
+    self << DOCTYPE.new(attrs)
+  end
+
+  def tag(tag, attrs={}, &block)
+    self << Tag.new(tag, attrs, @env_instance, &block)
+  end
+
+  alias :_p :p
+
+  def p(attrs={}, &block)
+    tag('p', attrs, &block)
+  end
+
+  def text(text='')
+    self << Text.new(text)
+    self
+  end
+
+  def escaped_text(text='')
+    self << EscapedText.new(text)
+    self
+  end
+
+  def form(attrs={}, &block)
+    self << Form.new(@env_instance) {
+      form(attrs, &block)
+    }
+  end
+
+  def render(renderer)
+    each do |node|
+      node.render(renderer)
+    end
+  end
+
+  def method_missing(tag, attrs={}, &block)
+    tag(tag, attrs, &block)
+  end
+
+  def to_s(indent=0)
+    Renderer.new(self, indent).to_s
+  end
+
+  class Attrs < ::Hash
+    def to_s
+      unless empty?
+        ' ' + sort do |a, b|
+          a.to_s <=> b.to_s
+        end.map do |key, val|
+          '%s="%s"' % [key, val]
+        end.join(' ')
+      else
+        ''
+      end
+    end
+  end
+
+  class XML < BlockHTML
+    def initialize(attrs={})
+      super()
+      @attrs = {
+        :version  => '1.0',
+        :encoding => 'utf8'
+      }.merge(attrs);
+    end
+
+    def render(renderer)
+      renderer.xml(@attrs)
+    end
+  end
+
+  class DOCTYPE < BlockHTML
+    def initialize(attrs={})
+      super()
+      @attrs = {
+        :format  => 'xhtml',
+        :version => '1.0',
+        :type    => 'strict'
+      }.merge(attrs);
+    end
+
+    def render(renderer)
+      renderer.doctype(@attrs)
+    end
+  end
+
+  class Tag < BlockHTML
+    attr_reader :attrs
+
+    def initialize(name, attrs={}, env_instance=nil, &block)
+      @name = name
+      @attrs = attrs.inject(Attrs.new) do |ret, (key, val)|
+        ret[key] = val
+        ret
+      end
+      super(env_instance, &block)
+    end
+
+    def render(renderer)
+      renderer.tag(self, @name, @attrs)
+    end
+  end
+
+  class Text < BlockHTML
+    def initialize(text)
+      super()
+      @text = text
+    end
+
+    def render(renderer)
+      renderer.text(@text)
+    end
+  end
+
+  class EscapedText < Text
+    def render(renderer)
+      renderer.escaped_text(@text)
+    end
+  end
+
+  class Renderer
+    ESC = {
+      '&' => '&amp;',
+      '"' => '&quot;',
+      "'" => '&#039;',
+      '>' => '&gt;',
+      '<' => '&lt;',
+      #' ' => '&nbsp;'
+    }
+
+    ESC_STR = ESC.inject('') do |ret, (key, val)|
+      ret << key
+      ret
+    end
+
+    def initialize(html, indent)
+      @html   = html 
+      @indent = indent.to_i
+      @count  = 0
+      @text   = 0 < @indent
+      @buf    = ''
+    end
+
+    def escape(text)
+      text.to_s.gsub(/[#{ESC_STR}]/) do |val|
+        ESC[val]
+      end
+    end
+
+    def xml(attrs)
+      @buf << '<?xml version="%s" encoding="%s"?>' % [
+        attrs[:version],
+        attrs[:encoding]
+      ]
+      @buf << "\n" if 0 < @indent
+      @text = true
+    end
+
+    def doctype(attrs)
+      case attrs[:format]
+      when 'html5'
+        @buf << '<!DOCTYPE html>'
+      when 'html4'
+        case attrs[:type]
+        when 'strict'
+          @buf << '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">'
+        when 'frameset'
+          @buf << '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN" "http://www.w3.org/TR/html4/frameset.dtd">'
+        else
+          @buf << '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">'
+        end
+      when 'xhtml'
+        if attrs[:version] == '1.1'
+          @buf << '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">'
+        else
+          case attrs[:type]
+          when 'strict'
+            @buf << '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">'
+          when 'frameset'
+            @buf << '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Frameset//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-frameset.dtd">'
+          else
+            @buf << '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">'
+          end
+        end
+      end
+
+      @buf << "\n" if 0 < @indent
+      @text = true
+    end
+
+    def tag(node, tag, attrs)
+      space = ' ' * @count * @indent
+
+      if node.empty?
+        if 0 < @indent && !@text
+          @buf << "\n%s<%s%s />" % [space, tag, attrs.to_s]
+        else
+          @buf << '<%s%s />' % [tag, attrs.to_s]
+        end
+      else
+        if 0 < @indent && !@text
+          @buf << "\n"
+          @buf << "%s<%s%s>" % [space, tag, attrs.to_s]
+        else
+          @buf << '<%s%s>' % [tag, attrs.to_s]
+        end
+        @text = false
+
+        @count += 1
+        node.each do |obj|
+          obj.render(self)
+        end
+        @count -= 1
+
+        if 0 < @indent && !@text
+          @buf << "\n"
+          @buf << "%s</%s>" % [space, tag]
+        else
+          @buf << '</%s>' % [tag]
+        end
+      end
+
+      @text = false
+    end
+
+    def text(text)
+      @buf << escape(text)
+      @text = true
+    end
+
+    def escaped_text(text)
+      @buf << text
+      @text = true
+    end
+
+    def to_s
+      @buf = ''
+      @html.render(self)
+      @buf
+    end
+  end
+
+  autoload :Form, 'block-html/form'
+end

data/spec/block-html/form_spec.rb

@@ -0,0 +1,4 @@
+require 'lib/block-html'
+
+describe '' do
+end

data/spec/block-html_spec.rb

@@ -0,0 +1,188 @@
+require 'lib/block-html'
+
+describe BlockHTML do
+  describe 'インターフェース' do
+    before do
+      @bhtml = BlockHTML.new
+    end
+
+    it 'インスタンス' do
+      %w'parent << path root each empty? xml doctype tag text escaped_text render to_s'.each do |val|
+        @bhtml.should respond_to val.to_sym
+      end
+    end
+  end
+
+  describe '空の状態' do
+    before do
+      @bhtml = BlockHTML.new
+    end
+
+    it 'parent == nil' do
+      @bhtml.parent.should be_nil
+    end
+
+    it 'path == []' do
+      @bhtml.path.should == [@bhtml]
+    end
+
+    it 'root == self' do
+      @bhtml.root.should == @bhtml
+    end
+
+    it 'each' do
+      @bhtml.each do |b|
+        b.should == @bhtml
+      end
+    end
+
+    it 'empty? == true' do
+      @bhtml.empty?.should be_true
+    end
+
+    it 'to_s == ""' do
+      @bhtml.to_s.should == ''
+    end
+  end
+
+  describe 'ノードを１つ追加する操作' do
+    before do
+      @bhtml = BlockHTML.new
+    end
+
+    it 'xml' do
+      @bhtml.xml
+      @bhtml.to_s.should == '<?xml version="1.0" encoding="utf8"?>'
+    end
+
+    it 'xml(:version => "1.1", :encoding => "sjis")' do
+      @bhtml.xml :version => '1.1', :encoding => 'sjis'
+      @bhtml.to_s.should == '<?xml version="1.1" encoding="sjis"?>'
+    end
+
+    it 'doctype(:version => "1.1")' do
+      @bhtml.doctype :version => '1.1'
+      @bhtml.to_s.should == '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">'
+    end
+
+    it 'doctype' do
+      @bhtml.doctype
+      @bhtml.to_s.should == '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">'
+    end
+
+    it 'doctype(:type => "strict")' do
+      @bhtml.doctype :type => 'strict'
+      @bhtml.to_s.should == '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">'
+    end
+
+    it 'doctype(:type => "frameset")' do
+      @bhtml.doctype :type => 'frameset'
+      @bhtml.to_s.should =='<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Frameset//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-frameset.dtd">'
+    end
+
+    it 'doctype(:type => nil)' do
+      @bhtml.doctype :type => nil
+      @bhtml.to_s.should =='<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">'
+    end
+
+    it 'doctype(:format => "html4")' do
+      @bhtml.doctype :format => 'html4'
+      @bhtml.to_s.should == '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">'
+    end
+
+    it 'doctype(:format => "html4", :type => "strict")' do
+      @bhtml.doctype :format => 'html4', :type => 'strict'
+      @bhtml.to_s.should == '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">'
+    end
+
+    it 'doctype(:format => "html4", :type => "frameset")' do
+      @bhtml.doctype :format => 'html4', :type => 'frameset'
+      @bhtml.to_s.should == '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN" "http://www.w3.org/TR/html4/frameset.dtd">'
+    end
+
+    it 'doctype(:format => "html4", :type => nil)' do
+      @bhtml.doctype :format => 'html4', :type => nil
+      @bhtml.to_s.should == '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">'
+    end
+
+    it 'doctype(:format => "html5")' do
+      @bhtml.doctype :format => 'html5'
+      @bhtml.to_s.should == '<!DOCTYPE html>'
+    end
+
+    it 'tag' do
+      @bhtml.tag 'p'
+      @bhtml.to_s.should == '<p />'
+    end
+
+    it 'tag("a", :href => "/", :id => "abc")' do
+      @bhtml.tag 'a', :href => '/', :id => 'abc'
+      @bhtml.to_s.should == '<a href="/" id="abc" />'
+    end
+
+    it 'text("aaa")' do
+      @bhtml.text 'aaa'
+      @bhtml.to_s.should == 'aaa'
+    end
+
+    it 'text("<a>")' do
+      @bhtml.text '<a>'
+      @bhtml.to_s.should == '&lt;a&gt;'
+    end
+
+    it 'escaped_text("aaa")' do
+      @bhtml.escaped_text 'aaa'
+      @bhtml.to_s.should == 'aaa'
+    end
+
+    it 'escaped_text("<a>")' do
+      @bhtml.escaped_text '<a>'
+      @bhtml.to_s.should == '<a>'
+    end
+  end
+
+  describe 'ノードを幾つか追加する操作' do
+    before do
+      @bhtml = BlockHTML.new(self)
+    end
+
+    it '@bhtml.tag("p").text("aaa")' do
+      @bhtml.tag("p").text("aaa").to_s.should == '<p>aaa</p>'
+    end
+
+    it '@bhtml.tag("p", :id => "abc").text("aaa")' do
+      @bhtml.tag("p", :id => "abc").text("aaa").to_s.should == '<p id="abc">aaa</p>'
+    end
+
+    it '@bhtml.tag("p") { tag("br") }' do
+      @bhtml.tag("p") { tag('br') }.to_s.should == '<p><br /></p>'
+    end
+
+    it '@bhtml.tag("p") { tag("p").text(hello) }' do
+      hello = 'Hello'
+      @bhtml.tag("p") {
+        tag('p').text(hello)
+      }.to_s.should == '<p><p>Hello</p></p>'
+    end
+
+    it '@bhtml.tag("p") { tag("p").text(@hello) }' do
+      @hello = 'Hello'
+      @bhtml.tag("p") {
+        tag('p').text(@hello)
+      }.to_s.should == '<p><p>Hello</p></p>'
+    end
+
+    describe 'インデントを設定' do
+      before do
+        @bhtml = BlockHTML.new
+      end
+
+      it '@bhtml.tag("div") { tag("p") { text("Hello") } }' do
+        @bhtml.tag("div") {
+          tag("p") { text("Hello") }
+        }
+        @bhtml.to_s(2).should == "<div>\n  <p>Hello</p>\n</div>"
+      end
+    end
+  end
+end

metadata

@@ -0,0 +1,64 @@
+--- !ruby/object:Gem::Specification 
+name: block-html
+version: !ruby/object:Gem::Version 
+  version: 0.0.3
+platform: ruby
+authors: 
+- Jun Kikuchi
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-10-03 00:00:00 +09:00
+default_executable: 
+dependencies: []
+
+description: block-html
+email: kikuchi@bonnou.com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: 
+- README.rdoc
+files: 
+- CHANGELOG
+- COPYING
+- README.rdoc
+- Rakefile
+- VERSION
+- lib/block-html.rb
+- lib/block-html/form.rb
+- spec/block-html/form_spec.rb
+- spec/block-html_spec.rb
+has_rdoc: true
+homepage: http://github.com/JunKikuchi/block-html
+licenses: []
+
+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.3.5
+signing_key: 
+specification_version: 3
+summary: block-html
+test_files: 
+- spec/block-html/form_spec.rb
+- spec/block-html_spec.rb