friendly_format 0.5.1

data/CHANGES

@@ -0,0 +1,11 @@
+= pagify changes history
+
+== friendly_format 0.5.1 / 2008-12-11
+
+* first release to rubyforge
+
+== friendly_format 0.5 / 2008-11-05
+
+* 1 major enhancement
+  * Birthday!
+  * extracted from Ludy::XhtmlFormatter!

data/LICENSE

@@ -0,0 +1,201 @@
+                              Apache License
+                        Version 2.0, January 2004
+                     http://www.apache.org/licenses/
+
+TERMS AND CONDITIONS FOR USE, REPRODUCTION, AND DISTRIBUTION
+
+1. Definitions.
+
+   "License" shall mean the terms and conditions for use, reproduction,
+   and distribution as defined by Sections 1 through 9 of this document.
+
+   "Licensor" shall mean the copyright owner or entity authorized by
+   the copyright owner that is granting the License.
+
+   "Legal Entity" shall mean the union of the acting entity and all
+   other entities that control, are controlled by, or are under common
+   control with that entity. For the purposes of this definition,
+   "control" means (i) the power, direct or indirect, to cause the
+   direction or management of such entity, whether by contract or
+   otherwise, or (ii) ownership of fifty percent (50%) or more of the
+   outstanding shares, or (iii) beneficial ownership of such entity.
+
+   "You" (or "Your") shall mean an individual or Legal Entity
+   exercising permissions granted by this License.
+
+   "Source" form shall mean the preferred form for making modifications,
+   including but not limited to software source code, documentation
+   source, and configuration files.
+
+   "Object" form shall mean any form resulting from mechanical
+   transformation or translation of a Source form, including but
+   not limited to compiled object code, generated documentation,
+   and conversions to other media types.
+
+   "Work" shall mean the work of authorship, whether in Source or
+   Object form, made available under the License, as indicated by a
+   copyright notice that is included in or attached to the work
+   (an example is provided in the Appendix below).
+
+   "Derivative Works" shall mean any work, whether in Source or Object
+   form, that is based on (or derived from) the Work and for which the
+   editorial revisions, annotations, elaborations, or other modifications
+   represent, as a whole, an original work of authorship. For the purposes
+   of this License, Derivative Works shall not include works that remain
+   separable from, or merely link (or bind by name) to the interfaces of,
+   the Work and Derivative Works thereof.
+
+   "Contribution" shall mean any work of authorship, including
+   the original version of the Work and any modifications or additions
+   to that Work or Derivative Works thereof, that is intentionally
+   submitted to Licensor for inclusion in the Work by the copyright owner
+   or by an individual or Legal Entity authorized to submit on behalf of
+   the copyright owner. For the purposes of this definition, "submitted"
+   means any form of electronic, verbal, or written communication sent
+   to the Licensor or its representatives, including but not limited to
+   communication on electronic mailing lists, source code control systems,
+   and issue tracking systems that are managed by, or on behalf of, the
+   Licensor for the purpose of discussing and improving the Work, but
+   excluding communication that is conspicuously marked or otherwise
+   designated in writing by the copyright owner as "Not a Contribution."
+
+   "Contributor" shall mean Licensor and any individual or Legal Entity
+   on behalf of whom a Contribution has been received by Licensor and
+   subsequently incorporated within the Work.
+
+2. Grant of Copyright License. Subject to the terms and conditions of
+   this License, each Contributor hereby grants to You a perpetual,
+   worldwide, non-exclusive, no-charge, royalty-free, irrevocable
+   copyright license to reproduce, prepare Derivative Works of,
+   publicly display, publicly perform, sublicense, and distribute the
+   Work and such Derivative Works in Source or Object form.
+
+3. Grant of Patent License. Subject to the terms and conditions of
+   this License, each Contributor hereby grants to You a perpetual,
+   worldwide, non-exclusive, no-charge, royalty-free, irrevocable
+   (except as stated in this section) patent license to make, have made,
+   use, offer to sell, sell, import, and otherwise transfer the Work,
+   where such license applies only to those patent claims licensable
+   by such Contributor that are necessarily infringed by their
+   Contribution(s) alone or by combination of their Contribution(s)
+   with the Work to which such Contribution(s) was submitted. If You
+   institute patent litigation against any entity (including a
+   cross-claim or counterclaim in a lawsuit) alleging that the Work
+   or a Contribution incorporated within the Work constitutes direct
+   or contributory patent infringement, then any patent licenses
+   granted to You under this License for that Work shall terminate
+   as of the date such litigation is filed.
+
+4. Redistribution. You may reproduce and distribute copies of the
+   Work or Derivative Works thereof in any medium, with or without
+   modifications, and in Source or Object form, provided that You
+   meet the following conditions:
+
+   (a) You must give any other recipients of the Work or
+       Derivative Works a copy of this License; and
+
+   (b) You must cause any modified files to carry prominent notices
+       stating that You changed the files; and
+
+   (c) You must retain, in the Source form of any Derivative Works
+       that You distribute, all copyright, patent, trademark, and
+       attribution notices from the Source form of the Work,
+       excluding those notices that do not pertain to any part of
+       the Derivative Works; and
+
+   (d) If the Work includes a "NOTICE" text file as part of its
+       distribution, then any Derivative Works that You distribute must
+       include a readable copy of the attribution notices contained
+       within such NOTICE file, excluding those notices that do not
+       pertain to any part of the Derivative Works, in at least one
+       of the following places: within a NOTICE text file distributed
+       as part of the Derivative Works; within the Source form or
+       documentation, if provided along with the Derivative Works; or,
+       within a display generated by the Derivative Works, if and
+       wherever such third-party notices normally appear. The contents
+       of the NOTICE file are for informational purposes only and
+       do not modify the License. You may add Your own attribution
+       notices within Derivative Works that You distribute, alongside
+       or as an addendum to the NOTICE text from the Work, provided
+       that such additional attribution notices cannot be construed
+       as modifying the License.
+
+   You may add Your own copyright statement to Your modifications and
+   may provide additional or different license terms and conditions
+   for use, reproduction, or distribution of Your modifications, or
+   for any such Derivative Works as a whole, provided Your use,
+   reproduction, and distribution of the Work otherwise complies with
+   the conditions stated in this License.
+
+5. Submission of Contributions. Unless You explicitly state otherwise,
+   any Contribution intentionally submitted for inclusion in the Work
+   by You to the Licensor shall be under the terms and conditions of
+   this License, without any additional terms or conditions.
+   Notwithstanding the above, nothing herein shall supersede or modify
+   the terms of any separate license agreement you may have executed
+   with Licensor regarding such Contributions.
+
+6. Trademarks. This License does not grant permission to use the trade
+   names, trademarks, service marks, or product names of the Licensor,
+   except as required for reasonable and customary use in describing the
+   origin of the Work and reproducing the content of the NOTICE file.
+
+7. Disclaimer of Warranty. Unless required by applicable law or
+   agreed to in writing, Licensor provides the Work (and each
+   Contributor provides its Contributions) on an "AS IS" BASIS,
+   WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or
+   implied, including, without limitation, any warranties or conditions
+   of TITLE, NON-INFRINGEMENT, MERCHANTABILITY, or FITNESS FOR A
+   PARTICULAR PURPOSE. You are solely responsible for determining the
+   appropriateness of using or redistributing the Work and assume any
+   risks associated with Your exercise of permissions under this License.
+
+8. Limitation of Liability. In no event and under no legal theory,
+   whether in tort (including negligence), contract, or otherwise,
+   unless required by applicable law (such as deliberate and grossly
+   negligent acts) or agreed to in writing, shall any Contributor be
+   liable to You for damages, including any direct, indirect, special,
+   incidental, or consequential damages of any character arising as a
+   result of this License or out of the use or inability to use the
+   Work (including but not limited to damages for loss of goodwill,
+   work stoppage, computer failure or malfunction, or any and all
+   other commercial damages or losses), even if such Contributor
+   has been advised of the possibility of such damages.
+
+9. Accepting Warranty or Additional Liability. While redistributing
+   the Work or Derivative Works thereof, You may choose to offer,
+   and charge a fee for, acceptance of support, warranty, indemnity,
+   or other liability obligations and/or rights consistent with this
+   License. However, in accepting such obligations, You may act only
+   on Your own behalf and on Your sole responsibility, not on behalf
+   of any other Contributor, and only if You agree to indemnify,
+   defend, and hold each Contributor harmless for any liability
+   incurred by, or claims asserted against, such Contributor by reason
+   of your accepting any such warranty or additional liability.
+
+END OF TERMS AND CONDITIONS
+
+APPENDIX: How to apply the Apache License to your work.
+
+   To apply the Apache License to your work, attach the following
+   boilerplate notice, with the fields enclosed by brackets "[]"
+   replaced with your own identifying information. (Don't include
+   the brackets!)  The text should be enclosed in the appropriate
+   comment syntax for the file format. We also recommend that a
+   file or class name and description of purpose be included on the
+   same "printed page" as the copyright notice for easier
+   identification within third-party archives.
+
+Copyright [yyyy] [name of copyright owner]
+
+Licensed under the Apache License, Version 2.0 (the "License");
+you may not use this file except in compliance with the License.
+You may obtain a copy of the License at
+
+    http://www.apache.org/licenses/LICENSE-2.0
+
+Unless required by applicable law or agreed to in writing, software
+distributed under the License is distributed on an "AS IS" BASIS,
+WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+See the License for the specific language governing permissions and
+limitations under the License.

data/NOTICE

@@ -0,0 +1,10 @@
+= notice for other stuffs
+
+* this project skeleton is built through Mr Bones 2.1.0:
+    gem install bones
+    http://codeforpeople.rubyforge.org/bones/
+
+* test cases were written in mini-test.
+
+* there's a regular expression was extracted from drupal,
+  and translated from php.

data/README

@@ -0,0 +1,45 @@
+= friendly_format 0.5
+by Lin Jen-Shin (a.k.a. godfat-真常[http://godfat.org])
+  godfat (XD) godfat.org
+
+== LINKS:
+
+* github-project[http://github.com/godfat/friendly_format]
+* rubyforge-project[http://rubyforge.org/projects/ludy]
+
+== DESCRIPTION:
+
+ make user input be valid xhtml and format it with gsub("\n", "<br/>") etc.
+ you can partially allow some tags and don't escape them.
+
+== SYNOPSIS:
+
+ FriendlyFormat.format_article(text, :a, :img)
+ FriendlyFormat.format_article(text, FriendlyFormat::SetStrict.new)
+ FriendlyFormat.format_article(text, FriendlyFormat::SetCommon.new)
+
+== REQUIREMENTS:
+
+ * hpricot 0.6 and later
+
+== INSTALL:
+
+* sudo gem install friendly_format
+
+== LICENSE:
+
+Apache License 2.0
+
+Copyright (c) 2008, Lin Jen-Shin (a.k.a. godfat 真常)
+
+Licensed under the Apache License, Version 2.0 (the "License");
+you may not use this file except in compliance with the License.
+You may obtain a copy of the License at
+
+   http://www.apache.org/licenses/LICENSE-2.0
+
+Unless required by applicable law or agreed to in writing, software
+distributed under the License is distributed on an "AS IS" BASIS,
+WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+See the License for the specific language governing permissions and
+limitations under the License.

data/Rakefile

@@ -0,0 +1,58 @@
+# encoding: utf-8
+
+begin
+  require 'bones'
+  Bones.setup
+rescue LoadError
+  load 'tasks/setup.rb'   # this line should already be there
+end
+
+PROJ.name = 'friendly_format'
+# supress warnings, there's too many warnings in dm-core
+# PROJ.ruby_opts.delete '-w'
+
+PROJ.gem.dependencies << ['hpricot', '>=0.6.0']
+PROJ.gem.development_dependencies << ['minitest', '>=1.3.0']
+# PROJ.gem.executables = ["bin/#{PROJ.name}"]
+
+task :default do
+  Rake.application.options.show_task_pattern = /./
+  Rake.application.display_tasks_and_comments
+end
+
+namespace :gem do
+  desc "create #{PROJ.name}.gemspec"
+  task 'gemspec' do
+    puts "rake gem:debug > #{PROJ.name}.gemspec"
+    File.open("#{PROJ.name}.gemspec", 'w'){|spec| spec << `rake gem:debug`.sub(/.*/, '')}
+  end
+end
+
+PROJ.authors = 'Lin Jen-Shin (a.k.a. godfat 真常)'
+PROJ.email = 'godfat (XD) godfat.org'
+PROJ.url = "http://github.com/godfat/#{PROJ.name}"
+PROJ.description = PROJ.summary = paragraphs_of('README', 'description').join("\n\n")
+PROJ.changes = paragraphs_of('CHANGES', 0..1).join("\n\n")
+PROJ.rubyforge.name = 'ludy'
+PROJ.version = File.read("lib/#{PROJ.name}/version.rb").gsub(/.*VERSION = '(.*)'.*/m, '\1')
+
+PROJ.manifest_file = 'Manifest'
+PROJ.exclude += ['^Manifest$', '^tmp', 'tmp$', '^pkg',
+                 '^\.gitignore$', '^ann-', '\.sqlite3$', '\.db$']
+
+PROJ.rdoc.remote_dir = PROJ.name
+
+PROJ.readme_file = 'README'
+PROJ.rdoc.main = 'README'
+PROJ.rdoc.exclude += ['Rakefile', '^tasks', '^test']
+PROJ.rdoc.include << '\w+'
+PROJ.rdoc.opts << '--diagram' if !WIN32 and `which dot` =~ %r/\/dot/
+PROJ.rdoc.opts += ['--charset=utf-8', '--inline-source', 
+                   '--line-numbers', '--promiscuous']
+
+PROJ.spec.opts << '--color'
+
+PROJ.ann.file = "ann-#{PROJ.name}-#{PROJ.version}"
+PROJ.ann.paragraphs.concat %w[LINKS SYNOPSIS REQUIREMENTS INSTALL LICENSE]
+
+CLEAN.include Dir['**/*.rbc']

data/TODO

@@ -0,0 +1,6 @@
+= friendly_article todo list
+* make format_article take an optional size argument that indicates
+  how long should the result be. it should take < as 1 character and
+  <a href="/">嗯</a> as 1 character too. never cut out tag and unicode.
+
+* an executable to format text from stdin to stdout.

data/friendly_format.gemspec

@@ -0,0 +1,42 @@
+
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name = %q{friendly_format}
+  s.version = "0.5.1"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
+  s.authors = ["Lin Jen-Shin (a.k.a. godfat \347\234\237\345\270\270)"]
+  s.date = %q{2008-12-11}
+  s.description = %q{}
+  s.email = %q{godfat (XD) godfat.org}
+  s.extra_rdoc_files = ["CHANGES", "LICENSE", "NOTICE", "README", "TODO", "friendly_format.gemspec"]
+  s.files = ["CHANGES", "LICENSE", "NOTICE", "README", "Rakefile", "TODO", "friendly_format.gemspec", "lib/friendly_format.rb", "lib/friendly_format/set_common.rb", "lib/friendly_format/set_strict.rb", "lib/friendly_format/version.rb", "tasks/ann.rake", "tasks/bones.rake", "tasks/gem.rake", "tasks/git.rake", "tasks/manifest.rake", "tasks/notes.rake", "tasks/post_load.rake", "tasks/rdoc.rake", "tasks/rubyforge.rake", "tasks/setup.rb", "tasks/spec.rake", "tasks/svn.rake", "tasks/test.rake", "test/sample/complex_article.txt", "test/sample/complex_article_result.txt", "test/test_friendly_format.rb"]
+  s.has_rdoc = true
+  s.homepage = %q{http://github.com/godfat/friendly_format}
+  s.rdoc_options = ["--diagram", "--charset=utf-8", "--inline-source", "--line-numbers", "--promiscuous", "--main", "README"]
+  s.require_paths = ["lib"]
+  s.rubyforge_project = %q{ludy}
+  s.rubygems_version = %q{1.3.1}
+  s.summary = %q{}
+  s.test_files = ["test/test_friendly_format.rb"]
+
+  if s.respond_to? :specification_version then
+    current_version = Gem::Specification::CURRENT_SPECIFICATION_VERSION
+    s.specification_version = 2
+
+    if Gem::Version.new(Gem::RubyGemsVersion) >= Gem::Version.new('1.2.0') then
+      s.add_runtime_dependency(%q<hpricot>, [">= 0.6.0"])
+      s.add_development_dependency(%q<bones>, [">= 2.1.0"])
+      s.add_development_dependency(%q<minitest>, [">= 1.3.0"])
+    else
+      s.add_dependency(%q<hpricot>, [">= 0.6.0"])
+      s.add_dependency(%q<bones>, [">= 2.1.0"])
+      s.add_dependency(%q<minitest>, [">= 1.3.0"])
+    end
+  else
+    s.add_dependency(%q<hpricot>, [">= 0.6.0"])
+    s.add_dependency(%q<bones>, [">= 2.1.0"])
+    s.add_dependency(%q<minitest>, [">= 1.3.0"])
+  end
+end

data/lib/friendly_format/set_common.rb

@@ -0,0 +1,16 @@
+
+module FriendlyFormat
+  # reference:
+  # http://www.w3.org/TR/1999/REC-html401-19991224/index/elements.html
+  # allow most tags to use, use it in weblog or somewhere only
+  # a few people have permission to post or edit.
+  class SetCommon < Set
+    def initialize
+      super([ :a, :area, :b, :big, :blockquote, :br,
+              :center, :cite, :code, :del, :div, :em,
+              :font, :h1, :h2, :h3, :h4, :h5, :h6, :hr,
+              :i, :img, :li, :map, :object, :ol, :p,
+              :pre, :small, :span, :strong, :u, :ul     ])
+    end
+  end
+end

data/lib/friendly_format/set_strict.rb

@@ -0,0 +1,12 @@
+
+module FriendlyFormat
+  # only allow a few tags that won't affect too many layouts.
+  # use this in forum or somewhere many people have permissions
+  # to post or edit articles.
+  class SetStrict < Set
+    def initialize
+      super([ :a, :b, :code, :del, :em, :font,
+              :i, :img, :li, :ol, :strong, :u, :ul ])
+    end
+  end
+end

data/lib/friendly_format/version.rb

@@ -0,0 +1,3 @@
+module FriendlyFormat
+  VERSION = '0.5.1'
+end

data/lib/friendly_format.rb

@@ -0,0 +1,171 @@
+
+require 'set'
+require 'friendly_format/set_common'
+require 'friendly_format/set_strict'
+
+# 2008-05-09 godfat
+module FriendlyFormat
+  module_function
+  # format entire article for you, passing allowed tags to it.
+  # you can use Set or Symbol to specify which tags would be allowed.
+  # default was no tags at all, all tags would be escaped.
+  # it uses Hpricot to parse input.
+  def format_article html, *args
+    FriendlyFormat.format_article_entrance(html,
+      args.inject(Set.new){ |allowed_tags, arg|
+        case arg
+          when Symbol; allowed_tags << arg
+          when Set;    allowed_tags += arg
+          else; raise(TypeError.new("expected Symbol or Set, got #{arg.class}"))
+        end
+        allowed_tags
+      })
+  end
+
+  # automaticly add "a href" tag on text starts from
+  # http/ftp/mailto/etc protocol. use Hpricot to parse and
+  # regexp translated from drupal to find where's the target.
+  # it uses simplified regexp to do the task. see format_url.
+  def format_autolink html, attrs = {}
+    require 'hpricot'
+
+    doc = Hpricot.parse html
+    doc.each_child{ |c|
+      next unless c.kind_of?(Hpricot::Text)
+      c.content = format_url c.content, attrs
+    }
+    doc.to_html
+  end
+
+  # translated from drupal-6.2/modules/filter/filter.module
+  # same as format_autolink, but doesn't use Hpricot,
+  # use only regexp.
+  def format_autolink_regexp text, attrs = {}
+    attrs = attrs.map{ |k,v| " #{k}=\"#{v}\""}.join
+    # Match absolute URLs.
+    " #{text}".gsub(%r{(<p>|<li>|<br\s*/?>|[ \n\r\t\(])((http://|https://|ftp://|mailto:|smb://|afp://|file://|gopher://|news://|ssl://|sslv2://|sslv3://|tls://|tcp://|udp://)([a-zA-Z0-9@:%_+*~#?&=.,/;-]*[a-zA-Z0-9@:%_+*~#&=/;-]))([.,?!]*?)(?=(</p>|</li>|<br\s*/?>|[ \n\r\t\)])?)}i){ |match|
+      match = [match, $1, $2, $3, $4, $5]
+      match[2] = match[2] # escape something here
+      caption = FriendlyFormat.trim match[2]
+      # match[2] = sanitize match[2]
+      match[1]+'<a href="'+match[2]+'" title="'+match[2]+"\"#{attrs}>"+
+        caption+'</a>'+match[5]
+
+    # Match e-mail addresses.
+    }.gsub(%r{(<p>|<li>|<br\s*/?>|[ \n\r\t\(])([A-Za-z0-9._-]+@[A-Za-z0-9._+-]+\.[A-Za-z]{2,4})([.,?!]*?)(?=(</p>|</li>|<br\s*/?>|[ \n\r\t\)]))}i, '\1<a href="mailto:\2">\2</a>\3').
+
+    # Match www domains/addresses.
+    gsub(%r{(<p>|<li>|[ \n\r\t\(])(www\.[a-zA-Z0-9@:%_+*~#?&=.,/;-]*[a-zA-Z0-9@:%_+~#\&=/;-])([.,?!]*?)(?=(</p>|</li>|<br\s*/?>|[ \n\r\t\)]))}i){ |match|
+      match = [match, $1, $2, $3, $4, $5]
+      match[2] = match[2] # escape something here
+      caption = FriendlyFormat.trim match[2]
+      # match[2] = sanitize match[2]
+      match[1]+'<a href="http://'+match[2]+'" title="http://'+match[2]+"\"#{attrs}>"+
+        caption+'</a>'+match[3]
+    }[1..-1]
+  end
+
+  # same as format_autolink_regexp, but it's simplified and
+  # cannot process text composed with html and plain text.
+  # used in format_autolink.
+  def format_url text, attrs = {}
+    # translated from drupal-6.2/modules/filter/filter.module
+    # Match absolute URLs.
+    text.gsub(
+%r{((http://|https://|ftp://|mailto:|smb://|afp://|file://|gopher://|news://|ssl://|sslv2://|sslv3://|tls://|tcp://|udp://|www\.)([a-zA-Z0-9@:%_+*~#?&=.,/;-]*[a-zA-Z0-9@:%_+*~#&=/;-]))([.,?!]*?)}i){ |match|
+      url = $1 # is there any other way to get this variable?
+
+      caption = FriendlyFormat.trim url
+      attrs = attrs.map{ |k,v| " #{k}=\"#{v}\""}.join
+
+      # Match www domains/addresses.
+      url = "http://#{url}" unless url =~ %r{^http://}
+      "<a href=\"#{url}\" title=\"#{url}\"#{attrs}>#{caption}</a>"
+    # Match e-mail addresses.
+    }.gsub( %r{([A-Za-z0-9._-]+@[A-Za-z0-9._+-]+\.[A-Za-z]{2,4})([.,?!]*?)}i,
+            '<a href="mailto:\1">\1</a>')
+  end
+
+  # convert newline character(s) to <br />
+  def format_newline text
+    # windows: \r\n
+    # mac os 9: \r
+    text.gsub("\r\n", "\n").tr("\r", "\n").gsub("\n", '<br />')
+  end
+
+  private
+  # extract it to public?
+  def self.trim text, length = 75
+    # Use +3 for '...' string length.
+    if text.size <= 3
+      '...'
+    elsif text.size > length
+      "#{text[0...length-3]}..."
+    else
+      text
+    end
+  end
+
+  # perhaps we should escape all inside code instead of pre?
+  def self.escape_all_inside_pre html, allowed_tags
+    return html unless allowed_tags.member? :pre
+    # don't bother nested pre, because we escape all tags in pre
+    html = html + '</pre>' unless html =~ %r{</pre>}i
+    html.gsub(%r{<pre>(.*)</pre>}mi){
+      # stop escaping for '>' because drupal's url filter would make &gt; into url...
+      # is there any other way to get matched group?
+      "<pre>#{FriendlyFormat.escape_lt(FriendlyFormat.escape_amp($1))}</pre>"
+    }
+  end
+
+  # recursion entrance
+  def self.format_article_entrance html, allowed_tags = Set.new
+    require 'hpricot'
+    FriendlyFormat.format_article_elems(Hpricot.parse(
+      FriendlyFormat.escape_all_inside_pre(html, allowed_tags)), allowed_tags)
+  end
+
+  # recursion
+  def self.format_article_elems elems, allowed_tags = Set.new, no_format_newline = false
+    elems.children.map{ |e|
+      if e.kind_of?(Hpricot::Text)
+        if no_format_newline
+          format_url(e.content)
+        else
+          format_newline format_url(e.content)
+        end
+      elsif e.kind_of?(Hpricot::Elem)
+        if allowed_tags.member? e.name.to_sym
+          if e.empty? || e.name == 'a'
+            e.to_html
+          else
+            e.stag.inspect +
+              FriendlyFormat.format_article_elems(e, allowed_tags, e.stag.name == 'pre') +
+              (e.etag || Hpricot::ETag.new(e.stag.name)).inspect
+          end
+        else
+          if e.empty?
+            FriendlyFormat.escape_lt(e.stag.inspect)
+          else
+            FriendlyFormat.escape_lt(e.stag.inspect) +
+              FriendlyFormat.format_article_elems(e, allowed_tags) +
+              FriendlyFormat.escape_lt((e.etag || Hpricot::ETag.new(e.stag.name)).inspect)
+          end
+        end
+      end
+    }.join
+  end
+
+  def self.escape_amp text
+    text.gsub('&', '&amp;')
+  end
+
+  # i cannot find a way to escape both lt and gt,
+  # so it's a trick that just escape lt and no browser
+  # would treat complex lt and gt structure to be a tag
+  # wraping content.
+  def self.escape_lt text
+    text.gsub('<', '&lt;')
+  end
+
+end