JunKikuchi-block-html 0.0.1

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.1

data/lib/block-html/form.rb

@@ -0,0 +1,114 @@
+class BlockHTML
+  def self.normalize_model_name(model)
+    model.class.name.gsub(/::/, '_').downcase
+  end
+
+  def normalize_params(_name, params)
+    if @model.nil?
+      id   = params[:id] || _name
+      name = _name
+    else
+      model_name = self.class.normalize_model_name(@model)
+      id   = params[:id] || "#{model_name}_#{_name}"
+      name = "#{model_name}[#{_name}]"
+    end
+
+    value   = @model[_name.to_sym] unless @model.nil?
+    value ||= params[:value] || params[:default] || nil
+
+    label = params[:label] || _name
+
+    errors   = @model.errors[_name.to_sym] unless @model.nil?
+    errors ||= params[:error] || []
+
+    [id, name, value, label, errors]
+  end
+  private :normalize_params
+
+  def error_tag(bhtml, errors)
+    bhtml.tag(:div, :class => :form_error_messages) do |div|
+      errors.each do |error|
+        div.tag(:p, :class => :form_error_message) do |_p|
+          _p.text error
+        end
+      end
+    end unless errors.empty?
+  end
+  private :error_tag
+
+  def form(attrs={}, &block)
+    tag :form, attrs do |form|
+      form.tag :dl, &block
+    end
+  end
+
+  def for(model, &block)
+    @model = model
+    block.call self
+    @model = nil
+  end
+
+  #
+  # params[:id]
+  # params[:value]
+  # params[:default]
+  # params[:label]
+  #
+  def edit(_name, params={})
+    id, name, value, label, errors = normalize_params(_name, params)
+
+    tag(:dt).tag(:label, :for => id).text label
+    tag(:dd) do |dd|
+      dd.tag :input,
+        :type  => :text,
+        :id    => id,
+        :name  => name,
+        :value => value
+      error_tag(dd, errors)
+    end
+  end
+
+  def password(_name, params={})
+    id, name, value, label, errors = normalize_params(_name, params)
+
+    tag(:dt).tag(:label, :for => id).text label
+    tag(:dd) do |dd|
+      dd.tag :input,
+        :type => :password,
+        :id   => id,
+        :name => name
+      error_tag(dd, errors)
+    end
+  end
+
+  def checkbox(_name, params={})
+    id, name, value, label, errors = normalize_params(_name, params)
+
+    attrs = {
+      :type => 'submit',
+      :id   => id,
+      :name => name
+    }
+    attrs[:checked] = '' if value
+
+    tag(:dt).tag(:label, :for => id).text label
+    tag(:dd) do |dd|
+      dd.tag :input, attrs
+      error_tag(dd, errors)
+    end
+  end
+
+  def submit(_name, params={})
+    id, name, value, label, errors = normalize_params(_name, params)
+
+    tag(:dt).text
+    tag(:dd) do |dd|
+      dd.tag :input,
+        :type  => :submit,
+        :id    => id,
+        :name  => name,
+        :value => label || name
+      error_tag(dd, errors)
+    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 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 [](key)
+      @attrs[key]
+    end
+
+    def []=(key, val)
+      @attrs[key] = val
+    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
+end

data/spec/block-html/form_spec.rb

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

data/spec/block-html_spec.rb

@@ -0,0 +1,181 @@
+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
+    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
+
+    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,62 @@
+--- !ruby/object:Gem::Specification 
+name: JunKikuchi-block-html
+version: !ruby/object:Gem::Version 
+  version: 0.0.1
+platform: ruby
+authors: 
+- Jun Kikuchi
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-08-26 00:00:00 -07: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: false
+homepage: http://github.com/JunKikuchi/block-html
+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: block-html
+test_files: 
+- spec/block-html/form_spec.rb
+- spec/block-html_spec.rb