hparser 0.3.0 → 0.4.0

data/lib/hparser/html.rb

@@ -38,6 +38,34 @@ module HParser
       end
       %(<#{html_tag}>#{content}</#{html_tag}>)
     end
+
+    ESCAPE_TABLE = {
+      '&' => '&amp;',
+      '"' => '&quot;',
+      '<' => '&lt;',
+      '>' => '&gt;'
+    }
+
+    def escape(str)
+      str.gsub(/[&"<>]/n) {|c| ESCAPE_TABLE[c] }
+    end
+  end
+
+  module ListContainerHtml
+    def to_html
+      f = false
+      content = html_content.map{|x|
+        if x.class == Block::ListItem
+          s = (f ? "</li>" : "") + %(<li>#{x.to_html})
+          f = true
+          s
+        else
+          x.to_html
+        end
+      }.join
+      content += "</li>" if f
+      %(<#{html_tag}>#{content}</#{html_tag}>)
+    end
   end
 
   module Block
@@ -45,7 +73,15 @@ module HParser
       include Html
       private
       def html_tag
-        "h#{self.level}"
+        "h#{@@head_level + self.level - 1}"
+      end
+
+      @@head_level = 1
+      def self.head_level=(l)
+        @@head_level = l
+      end
+      def self.head_level
+        @@head_level
       end
 
       alias_method :html_content,:content
@@ -60,7 +96,17 @@ module HParser
     end
 
     class Empty
-      def to_html() '<p><br /></p>' end
+      def to_html() '<br />' end
+    end
+
+    class SeeMore
+      def to_html()
+        if self.is_super
+          '<a name="seeall"></a>'
+        else
+          '<a name="seemore"></a>'
+        end
+      end
     end
 
     class Pre
@@ -72,16 +118,78 @@ module HParser
 
     class SuperPre
       include Html
-      private
+      @@class_format_prefix = nil
+      def self.class_format_prefix
+        @@class_format_prefix
+      end
+      def self.class_format_prefix=(prefix)
+        @@class_format_prefix = prefix
+      end
+      @@use_pygments = false
+      def self.use_pygments
+        @@use_pygments
+      end
+      def self.use_pygments=(use_or_not)
+        @@use_pygments = use_or_not
+      end
+
+      def to_html
+        content = html_content.gsub(/&/, "&amp;").gsub(/\"/, "&quot;").gsub(/>/, "&gt;").gsub(/</, "&lt;")
+        if format != "" && @@use_pygments
+          # quick hack language name converter (super pre -> pygments)
+          lang = format
+          case format
+          when "cs"
+            lang = "csharp"
+          when "lisp"
+            lang = "cl"
+          when "patch"
+            lang = "diff"
+          when "vb"
+            lang = "vbnet"
+          end
+
+          begin
+            require 'pygments'
+            Pygments.highlight(html_content,
+                               :lexer => lang, :options => {:encoding => 'utf-8'})
+          rescue LoadError
+            require 'albino'
+            Albino.new(html_content, lang).colorize
+          end
+        elsif format
+          %(<#{html_tag} class="#{@@class_format_prefix}#{escape(format)}">#{content}</#{html_tag}>)
+        else
+          %(<#{html_tag}>#{content}</#{html_tag}>)
+        end
+      end
+
       def html_tag() 'pre' end
       alias_method :html_content,:content
     end
 
     class Quote
       include Html
+
+      class QuoteUrl
+        include Html
+        def initialize(url)
+          @url = url
+        end
+        private
+        def html_tag() 'cite' end
+        def html_content() @url.to_html end
+      end
+
       private
       def html_tag() 'blockquote' end
-      alias_method :html_content,:content
+      def html_content
+        if @url
+          @items + [QuoteUrl.new(@url)]
+        else
+          @items
+        end
+      end
     end
 
     class Table
@@ -127,7 +235,7 @@ module HParser
     end
 
     class UnorderList
-      include Html
+      include ListContainerHtml
       private
       def html_tag
         'ul'
@@ -136,7 +244,7 @@ module HParser
     end
 
     class OrderList
-      include Html
+      include ListContainerHtml
       private
       def html_tag
         'ol'
@@ -146,12 +254,31 @@ module HParser
 
 
     class ListItem
-      include Html
-      private
-      def html_tag
-        'li'
+      def to_html
+        if content.class == Array then
+          content.map{|x| x.to_html}.join
+        else
+          content
+        end
+      end
+    end
+
+    class RAW
+      def to_html
+        @content.map {|i| i.to_html }.join
+      end
+    end
+
+    class FootnoteList
+      def to_html
+        %(<div class="footnote">#{self.html_content}</div>)
+      end
+
+      def html_content
+        @footnotes.map {|f| 
+          %(<p class="footnote"><a href="#fn#{f.index}" name="f#{f.index}">*#{f.index}</a>: #{f.text}</p>)
+        }.join
       end
-      alias_method :html_content,:content
     end
   end
 
@@ -163,14 +290,55 @@ module HParser
     end
 
     class Url
+      include Html
+      require "cgi"
       def to_html
-        %(<a href="#{self.url}">#{self.url}</a>)
+        if @bookmark then
+            require 'uri'
+            enc_url = URI.encode(url)
+            bookmark = %( <a href="http://b.hatena.ne.jp/entry/#{enc_url}" class="http-bookmark">) + 
+                       %(<img src="http://b.hatena.ne.jp/entry/image/#{enc_url}" alt="" class="http-bookmark"></a>)
+        end
+        %(<a href="#{self.url}">#{CGI.escapeHTML(self.title)}</a>#{bookmark})
       end
     end
 
     class HatenaId
       def to_html
-        %(<a href="http://d.hatena.ne.jp/#{self.name}/">id:#{self.name}</a>)
+        if self.is_detail
+          %(<a href="http://d.hatena.ne.jp/#{self.name}/" class="hatena-id-icon">) +
+          %(<img src="http://www.st-hatena.com/users/#{self.name[0..1]}/#{self.name}/profile_s.gif") +
+          %( width="16" height="16" alt="id:#{self.name}" class="hatena-id-icon">id:#{self.name}</a>)
+        else
+          %(<a href="http://d.hatena.ne.jp/#{self.name}/">id:#{self.name}</a>)
+        end
+      end
+    end
+
+    class Fotolife
+      def to_html
+        %(<a href="#{self.url}"><img src="#{self.image_url}"></a>)
+      end
+    end
+
+    class Footnote
+      def to_html
+        text = self.text.gsub(/<.*?>/, '')
+        %(<span class="footnote"><a href="#f#{self.index}" title="#{text}" name="fn#{self.index}">*#{self.index}</a></span>)
+      end
+    end
+
+    class Tex
+      def to_html
+        require "cgi"
+        url = "http://chart.apis.google.com/chart?cht=tx&chf=bg,s,00000000&chl=" + CGI.escape(self.text)
+        %(<img src="#{url}" class="tex" alt="#{CGI.escapeHTML(self.text)}">)
+      end
+    end
+
+    class Comment
+      def to_html
+        ""
       end
     end
   end

data/lib/hparser/inline/comment.rb

@@ -0,0 +1,27 @@
+
+
+require 'hparser/inline/collectable'
+
+module HParser
+  module Inline
+    class Comment
+      include Collectable
+
+      attr_reader :content
+
+      def self.parse(scanner, context=nil)
+        if scanner.scan(/<!--.+-->/m)
+          self.new(scanner.matched[4..-4])
+        end
+      end
+
+      def initialize(content)
+        @content = content
+      end
+
+      def ==(o)
+        o.class == self.class and @content == o.content
+      end
+    end
+  end
+end

data/lib/hparser/inline/footnote.rb

@@ -0,0 +1,34 @@
+# Author:: MIZUNO Hiroki (hiroki1124@gmail.com)
+# Copyright:: Copyright (c) 2006 MIZUNO Hiroki
+# License::   Distributes under the same terms as Ruby
+
+require 'hparser/inline/collectable'
+module HParser
+  module Inline
+    class Footnote
+      include Collectable
+
+      attr_reader :index, :text
+      def initialize(index, text)
+        @index = index
+        @text = text
+      end
+
+      def self.parse(scanner, context)
+        if scanner.scan(/\)\(\(.+?\)\)\(/) then
+          # )((xxx))( -> ((xxx))
+          Text.new scanner[0][1..-2]
+        elsif scanner.scan(/\(\((.+?)\)\)/) then
+          index = context.footnotes.length + 1
+          f = Footnote.new index, scanner[0][2..-3]
+          context.footnotes << f
+          f
+        end
+      end
+
+      def ==(o)
+        self.class == o.class and @index == o.index and @text == o.text
+      end
+    end
+  end
+end

data/lib/hparser/inline/fotolife.rb

@@ -0,0 +1,40 @@
+# Author:: MIZUNO Hiroki (hiroki1124@gmail.com)
+# Copyright:: Copyright (c) 2006 MIZUNO Hiroki
+# License::   Distributes under the same terms as Ruby
+
+require 'hparser/inline/collectable'
+module HParser
+  module Inline
+    class Fotolife
+      include Collectable
+
+      attr_reader :id, :date, :time, :ext
+      def initialize(id, date, time, ext)
+        @id = id
+        @date = date
+        @time = time
+        @ext = ext
+      end
+
+      def url
+        "http://f.hatena.ne.jp/#{@id}/#{@date}#{@time}"
+      end
+
+      def image_url
+        "http://f.hatena.ne.jp/images/fotolife/#{id[0..0]}/#{id}/#{@date}/#{@date}#{@time}.#{@ext}"
+      end
+
+      def self.parse(scanner, context=nil)
+        if scanner.scan(/\[f:id:([^:]+):(\d{8})(\d{6})(p|g|j):image(:[^\]]+)?\]/) then
+          Fotolife.new scanner[1], scanner[2], scanner[3], 
+                       scanner[4] == 'j' ? 'jpg' : scanner[4] == 'p' ? 'png' : 'gif'
+        end
+      end
+
+      def ==(o)
+        self.class == o.class and @id == o.id and @date == o.date and 
+          @time == o.time and @ext == o.ext
+      end
+    end
+  end
+end

data/lib/hparser/inline/hatena_id.rb

@@ -11,19 +11,20 @@ module HParser
     #  id:mzp
     class HatenaId
       include Collectable
-      attr_reader :name
-      def initialize(name)
+      attr_reader :name, :is_detail
+      def initialize(name, is_detail=false)
         @name = name
+        @is_detail = is_detail
       end
       
-      def self.parse(scanner)
-        if scanner.scan(/id:\w+/) then
-          HatenaId.new scanner.matched[3..-1]
+      def self.parse(scanner, context=nil)
+        if scanner.scan(/id:([A-Za-z][a-zA-Z0-9_\-]{2,31})(:detail)?/) then
+          HatenaId.new scanner[1], !scanner[2].nil?
         end
       end
       
       def ==(o)
-        self.class == o.class and @name == o.name
+        self.class == o.class and @name == o.name and @is_detail == o.is_detail
       end
     end
   end

data/lib/hparser/inline/parser.rb

@@ -13,9 +13,10 @@ module HParser
         @document =  Many1.new(Or.new(*parsers))
       end
 
-      def parse str
+      def parse str, context=nil
         scanner = StringScanner.new str
-        join_text @document.parse(scanner)
+        e = @document.parse(scanner, context) || [ HParser::Inline::Text.new("") ]
+        join_text e
       end
 
       def self.default_parser

data/lib/hparser/inline/tex.rb

@@ -0,0 +1,27 @@
+# Author:: MIZUNO Hiroki (hiroki1124@gmail.com)
+# Copyright:: Copyright (c) 2006 MIZUNO Hiroki
+# License::   Distributes under the same terms as Ruby
+
+require 'hparser/inline/collectable'
+module HParser
+  module Inline
+    class Tex
+      include Collectable
+
+      attr_reader :text
+      def initialize(text)
+        @text = text
+      end
+
+      def self.parse(scanner, context=nil)
+        if scanner.scan(/\[tex:([^\]]+)\]/) then
+          Tex.new scanner[1]
+        end
+      end
+
+      def ==(o)
+        self.class == o.class and @text == o.text
+      end
+    end
+  end
+end

data/lib/hparser/inline/text.rb

@@ -10,11 +10,12 @@ module HParser
       attr_reader :text
 
       def self.<=>(o)
+        # This parser should be last.
         1
       end
 
-      def self.parse(scanner)
-        if scanner.scan(%r!<a.*</a>!) or scanner.scan(/./m)
+      def self.parse(scanner, context=nil)
+        if scanner.scan(%r!<(a|iframe|script).*?</\1>!) or scanner.scan(%r!<img\s.*?>!) or scanner.scan(/./m)
           Text.new(scanner.matched)
         end
       end

data/lib/hparser/inline/url.rb

@@ -7,19 +7,33 @@ module HParser
   module Inline
     class Url
       include Collectable
-      attr_reader :url
-      def self.parse(scanner)
-        if scanner.scan(%r!https?://[A-Za-z0-9./]+!) then
-          Url.new scanner.matched
+      @@url_re = %r!https?://[A-Za-z0-9~\/._\?\&=\-%#\+:;,\@\'\$\*\!]+!
+      @@bracket_url_with_title_re = %r!\[(#{@@url_re}):title(?:=(.*?))?(:bookmark)?\]!
+      @@bracket_url_re = %r!\[(#{@@url_re})\]!
+
+      attr_reader :url, :title, :bookmark
+      def self.parse(scanner, context=nil)
+        if scanner.scan(@@url_re) then
+          Url.new scanner.matched, scanner.matched
+        elsif scanner.scan(@@bracket_url_with_title_re) then
+          title = ""
+          title = scanner[2] if scanner[2] and scanner[2] != ":bookmark"
+          bookmark = (scanner[2] == ":bookmark" || scanner[3] == ":bookmark")
+          Url.new scanner[1], title, bookmark
+        elsif scanner.scan(@@bracket_url_re)
+          Url.new scanner[1]
         end
       end
       
-      def initialize(url)
+      def initialize(url, title=nil, bookmark=false)
         @url = url
+        @title = title.nil? ? url : title.empty? ? "(undefined)" : title
+        @bookmark = bookmark
       end
       
       def ==(o)
-        self.class and o.class and @url == o.url
+        o and self.class and o.class and @url == o.url and @title == o.title and
+          @bookmark == o.bookmark
       end
     end
   end