=begin
「Cite:」
notiz  Freitag,18.Oktober.2002
http://www1.skz.or.jp/~kusumi/klee/notiz/200210.html#d18_t3
-usage-
Cite: test(http://www.quote.test)
てすとー。
=end
 
class Filter
  def cite(str, type)
    case type
    when :P
      str.sub!(/^Cite:(.*?)?\n(.*)/mi){
        param = $1
        str   = $2
        title, cite = param.to_s, ''
        if param =~ /(.*)\((.*)\)/
          title, cite = $1, $2
        end
        title = title.to_s.strip
        cite  = cite.to_s.strip
        strings = []
        strings << '<!--pdelmark-->'
        strings << "<blockquote title=\"#{title}\" cite=\"#{cite}\" class=\"quote\">"
        strings << '<p>'
        strings << str
        strings << '</p>'
        if title.size > 0 || cite.size > 0
          title = '.' if title.size == 0
          string = "#{title}"
          string = "<a href=\"#{cite}\">" + string + '</a>' if cite.size > 0
          string = '<div class="cite">cite( <cite>' + string + '</cite> )</div>'
          strings << string
        end
        strings << '</blockquote>'
        strings << '<!--pdelmark-->'
        str = strings.join
      }
    end
 
    case type
    when :AFTER_P
      str.gsub!(/<p>(.*?\s*)<!--pdelmark--><blockquote/mi) {$1 + '<blockquote'}
      str.gsub!(/<!--pdelmark--><\/p>/mi, '')
#それとも意図はこっち？　これはAFTER_Pでなくても可能だろう
#      str.gsub!(/<p>(.*?\s*)<!--pdelmark--><blockquote/mi) {'<p>' + $1 + '</p><blockquote'}
    end
  end
end