iwadon-text-hatena 0.12.20080627.0

data/lib/text/hatena/auto_link/hatena_fotolife.rb

@@ -0,0 +1,101 @@
+require "text/hatena/auto_link/scheme"
+
+module Text
+  class Hatena
+    class AutoLink
+      class HatenaFotolife < Scheme
+        @@pattern_foto = /\[?f:id:([A-Za-z][a-zA-Z0-9_\-]{2,14})(?::(\d{14}|favorite)([jpg])?)?(?::(image)(?:(small|:(?:small|medium|h\d+|w\d+|left|right)(?:,(?:small|medium|h\d+|w\d+|left|right))*))?)?\]?/i
+        @@pattern_keyword = /\[(f:(keyword|t):([^\]]+))\]/i
+
+        def patterns
+          [@@pattern_foto, @@pattern_keyword]
+        end
+
+        def init
+          super
+          @domain = "f.hatena.ne.jp"
+        end
+
+        def parse(text, opt = {})
+          if @@pattern_foto =~ text
+            _parse_foto(text)
+          elsif @@pattern_keyword =~ text
+            _parse_keyword(text)
+          end
+        end
+
+        private
+
+        def _parse_foto(text)
+          return if @@pattern_foto !~ text
+          name, fid, ext, type, size = $1, $2 || "", $3 || "", $4 || "", $5 || ""
+          if /^g$/i =~ ext
+            ext = "gif"
+          elsif /^p$/ =~ ext
+            ext = "png"
+          else
+            ext = "jpg"
+          end
+          if fid.empty? or /^favorite$/i =~ fid
+            return sprintf('<a href="http://%s/%s/%s"%s>%s</a>',
+                           @domain,
+                           name,
+                           fid,
+                           @a_target_string,
+                           text)
+          elsif /image/i =~ type
+            firstchar = name[0, 1]
+            date = fid[0, 8]
+            class_str, w_str, h_str, file_name = "", "", "", sprintf("%s.%s", fid, ext)
+            size.split(/,/).each do |s|
+              case s
+              when /small/i
+                file_name = sprintf("%s_m.gif", fid)
+              when /medium/i
+                file_name = sprintf("%s_120.jpg", fid)
+              when /h(\d+)/i
+                h_str = sprintf(' height="%d"', $1.to_i)
+              when /w(\d+)/i
+                w_str = sprintf(' width="%d"', $1.to_i)
+              when /left/i
+                class_str = ' hatena-image-left'
+              when /right/i
+                class_str = ' hatena-image-right'
+              end
+            end
+            return sprintf('<a href="http://%s/%s/%s"%s><img src="http://%s/images/fotolife/%s/%s/%d/%s" alt="%s" title="%s" class="hatena-fotolife%s"%s%s></a>',
+                           @domain,
+                           name,
+                           fid,
+                           @a_target_string,
+                           @domain,
+                           firstchar,
+                           name,
+                           date,
+                           file_name,
+                           text,
+                           text,
+                           class_str,
+                           w_str,
+                           h_str)
+          else
+            return sprintf('<a href="http://%s/%s/%s"%s>%s</a>',
+                           @domain,
+                           name,
+                           fid,
+                           @a_target_string,
+                           text)
+          end
+        end
+
+        def _parse_keyword(text)
+          return if @@pattern_keyword !~ text
+          title, type, word = $1, $2, $3 || ""
+          return sprintf('<a href="http://%s/%s/%s"%s>%s</a>',
+                         @domain, type, html_encode(word),
+                         @a_target_string, title)
+        end
+      end
+    end
+  end
+end

data/lib/text/hatena/auto_link/hatena_graph.rb

@@ -0,0 +1,69 @@
+require "text/hatena/auto_link/scheme"
+
+module Text
+  class Hatena
+    class AutoLink
+      class HatenaGraph < Scheme
+        @@pattern_tag = /\[(graph:t:([^\]]+))\]/i
+        @@pattern_image = /\[graph:id:([A-Za-z][a-zA-Z0-9_\-]{2,14}):(.+):image\]/i
+        @@pattern_simple = /\[graph:id:([A-Za-z][a-zA-Z0-9_\-]{2,14}):(.+)\]/i
+        @@pattern_user = /\[?graph:id:([A-Za-z][a-zA-Z0-9_\-]{2,14})\]?/i
+
+        def patterns
+          [@@pattern_tag, @@pattern_image, @@pattern_simple, @@pattern_user]
+        end
+
+        def init
+          super
+          @domain = 'graph.hatena.ne.jp'
+        end
+
+        def parse(text, opt = {})
+          case text
+          when @@pattern_tag
+            _parse_tag(text)
+          when @@pattern_image
+            _parse_image(text)
+          when @@pattern_simple
+            _parse_simple(text)
+          when @@pattern_user
+            _parse_user(text)
+          end
+        end
+
+        def _parse_tag(text)
+          return if @@pattern_tag !~ text
+          name, tag = $1, $2
+          return sprintf('<a href="http://%s/t/%s"%s>%s</a>',
+                         @domain, html_encode(tag),
+                         @a_target_string, name)
+        end
+
+        def _parse_image(text)
+          return if @@pattern_image !~ text
+          name, graphname = $1, $2
+          engname = html_encode(graphname)
+          return sprintf('<a href="http://%s/%s/%s/"%s><img src="http://%s/%s/graph?graphname=%s" class="hatena-graph-image" alt="%s" title="%s"></a>',
+                         @domain, name, engname, @a_target_string,
+                         @domain, name, engname,
+                         escape_attr(graphname), escape_attr(graphname))
+        end
+
+        def _parse_simple(text)
+          return if @@pattern_simple !~ text
+          name, graphname = $1, $2
+          return sprintf('<a href="http://%s/%s/%s/"%s>graph:id:%s:%s</a>',
+                         @domain, name, html_encode(graphname),
+                         @a_target_string, name, graphname)
+        end
+
+        def _parse_user(text)
+          return if @@pattern_user !~ text
+          name = $1
+          return sprintf('<a href="http://%s/%s/"%s>graph:id:%s</a>',
+                         @domain, name, @a_target_string, name)
+        end
+      end
+    end
+  end
+end

data/lib/text/hatena/auto_link/hatena_group.rb

@@ -0,0 +1,96 @@
+require "text/hatena/auto_link/scheme"
+
+module Text
+  class Hatena
+    class AutoLink
+      class HatenaGroup < Scheme
+        @@pattern_group_archive = /\[?(g:([a-z][a-z0-9\-]{2,23}))(:id:([A-Za-z][a-zA-Z0-9_\-]{2,14}))(:(archive)(?::(\d{6}))?)\]?/i
+        @@pattern_group_diary = /\[?(g:([a-z][a-z0-9\-]{2,23}))(:id:([A-Za-z][a-zA-Z0-9_\-]{2,14}))(\:(\d{8}))?(?:(\#|:)([a-zA-Z0-9_]+))?\]?/i
+        @@pattern_group_keyword = /\[g:([a-z][a-z0-9\-]{2,23}):keyword:([^\]]+)\]/i
+        @@pattern_group_bbs = /\[?(?:g:([a-z][a-z0-9\-]{2,23}):)?bbs:(\d+)(?::(\d+))?\]?/i
+
+        def patterns
+          [@@pattern_group_archive, @@pattern_group_diary, @@pattern_group_keyword, @@pattern_group_bbs]
+        end
+
+        def init
+          super
+          @domain = 'g.hatena.ne.jp'
+        end
+
+        def parse(text, opt = {})
+          case text
+          when @@pattern_group_archive
+            return _parse_group_archive(text)
+          when @@pattern_group_diary
+            return _parse_group_diary(text)
+          when @@pattern_group_keyword
+            return _parse_group_keyword(text)
+          when @@pattern_group_bbs
+            return _parse_group_bbs(text)
+          end
+        end
+
+        def _parse_group_archive(text)
+          return if @@pattern_group_archive !~ text
+          month = $7 ? "/#{$7}" : ''
+          return sprintf('<a href="http://%s.%s/%s/%s%s">%s%s%s</a>',
+                         $2,
+                         @domain,
+                         $4,
+                         $6,
+                         month,
+                         $1,
+                         $3,
+                         $5
+                         )
+        end
+
+        def _parse_group_diary(text)
+          return if @@pattern_group_diary !~ text
+          m1, m2, m3, m4, m5, m6, m7, m8 = $1, $2, $3 || '', $4 || '', $5 || '', $6 || '', $7, $8
+          if m7
+            date = m6 != '' ? "/#{m6}" : ''
+            delim = m7 == ':' ? '/' : '#'
+            return sprintf('<a href="http://%s.%s/%s%s%s%s">%s%s%s%s%s</a>',
+                           m2, @domain, m4, date, delim, m8, m1, m3,
+                           m5, m7, m8)
+          else
+            return sprintf('<a href="http://%s.%s/%s/%s">%s%s%s</a>',
+                           m2, @domain, m4, m6, m1, m3, m5)
+          end
+        end
+
+        def _parse_group_keyword(text)
+          return if @@pattern_group_keyword !~ text
+          gname, word = $1, $2
+          enword = html_encode(word)
+          return sprintf('<a class="okeyword" href="http://%s.%s/keyword/%s">g:%s:keyword:%s</a>',
+                         gname,
+                         @domain,
+                         enword,
+                         gname,
+                         word)
+        end
+
+        def _parse_group_bbs(text)
+          return if @@pattern_group_bbs !~ text
+          gname, tid, aid = $1, $2, $3
+          url = ''
+          title = ''
+          if gname
+            url = "http://#{gname}." + @domain
+            title = "g:#{gname}:"
+          end
+          url += "/bbs/#{tid}"
+          title += "bbs:#{tid}"
+          if aid
+            url += "/#{aid}"
+            title += ":#{aid}"
+          end
+          return %Q|<a href="#{url}">#{title}</a>|
+        end
+      end
+    end
+  end
+end

data/lib/text/hatena/auto_link/hatena_id.rb

@@ -0,0 +1,34 @@
+require 'text/hatena/auto_link/scheme'
+
+module Text
+  class Hatena
+    class AutoLink
+      class HatenaID < Scheme
+        @@pattern = /\[?(id:([A-Za-z][a-zA-Z0-9_\-]{2,14})(?::(detail|image))?)\]?/i
+
+        def patterns
+          [@@pattern]
+        end
+
+        def parse(text, opt = {})
+          return if @@pattern !~ text
+          content, name, type = $1, $2, $3 || ''
+          case type
+          when 'image'
+            pre = name[0, 2]
+            return sprintf('<a href="/%s/"%s><img src="http://www.hatena.ne.jp/users/%s/%s/profile.gif" width="60" height="60" alt="id:%s" class="hatena-id-image"></a>',
+                           name, @a_target_string, pre, name, name)
+          when 'detail'
+            pre = name[0, 2]
+            return sprintf('<a href="/%s/"%s><img src="http://www.hatena.ne.jp/users/%s/%s/profile.gif" width="16" height="16" alt="id:%s" class="hatena-id-icon">id:%s</a>',
+                           name, @a_target_string, pre, name,
+                           name, name)
+          else
+            sprintf('<a href="/%s/"%s>%s</a>',
+                    name, @a_target_string, content)
+          end
+        end
+      end
+    end
+  end
+end

data/lib/text/hatena/auto_link/hatena_idea.rb

@@ -0,0 +1,55 @@
+require "text/hatena/auto_link/scheme"
+
+module Text
+  class Hatena
+    class AutoLink
+      class HatenaIdea < Scheme
+        @@pattern_user = /\[?(i:id:([A-Za-z][a-zA-Z0-9_\-]{2,14}))\]?/i
+        @@pattern_tag = /\[(i:t:([^\]]+))\]/i
+        @@pattern_idea = /\[?(idea:(\d+))\]?/i
+
+        def patterns
+          [@@pattern_user, @@pattern_idea, @@pattern_tag]
+        end
+
+        def init
+          super
+          @domain = 'i.hatena.ne.jp'
+        end
+
+        def parse(text, opt = {})
+          case text
+          when @@pattern_user
+            _parse_user(text)
+          when @@pattern_idea
+            _parse_idea(text)
+          when @@pattern_tag
+            _parse_tag(text)
+          end
+        end
+
+        def _parse_idea(text)
+          return if @@pattern_idea !~ text
+          title, iid = $1, $2
+          return sprintf('<a href="http://%s/idea/%s"%s>%s</a>',
+                         @domain, iid, @a_target_string, title)
+        end
+
+        def _parse_user(text)
+          return if @@pattern_user !~ text
+          title, name = $1, $2
+          return sprintf('<a href="http://%s/%s/"%s>%s</a>',
+                         @domain, name, @a_target_string, title)
+        end
+
+        def _parse_tag(text)
+          return if @@pattern_tag !~ text
+          title, word = $1, $2
+          return sprintf('<a href="http://%s/t/%s"%s>%s</a>',
+                         @domain, html_encode(word),
+                         @a_target_string, title)
+        end
+      end
+    end
+  end
+end

data/lib/text/hatena/auto_link/hatena_map.rb

@@ -0,0 +1,56 @@
+require "text/hatena/auto_link/scheme"
+
+module Text
+  class Hatena
+    class AutoLink
+      class HatenaMap < Scheme
+        @@pattern_tag = /\[(map:t:([^\]]+))\]/i
+        @@pattern_map = /\[?(map:x(\-?[\d\.]+)y(\-?[\d\.]+))\]?/i
+        @@pattern_search = /\[(map:([^\]]+))\]/i
+
+        def patterns
+          [@@pattern_tag, @@pattern_map, @@pattern_search]
+        end
+
+        def init
+          super
+          @domain = 'map.hatena.ne.jp'
+        end
+
+        def parse(text, opt = {})
+          case text
+          when @@pattern_tag
+            _parse_tag(text)
+          when @@pattern_map
+            _parse_map(text)
+          when @@pattern_search
+            _parse_search(text)
+          end
+        end
+
+        def _parse_tag(text)
+          return unless @@pattern_tag =~ text
+          name, tag = $1, $2
+          return sprintf('<a href="http://%s/t/%s"%s>%s</a>',
+                         @domain, html_encode(tag), @a_target_string, name)
+        end
+
+        def _parse_map(text)
+          return unless @@pattern_map =~ text
+          name, x, y = $1, $2, $3
+          return sprintf('<a href="http://%s/?x=%s&y=%s&z=4"%s>%s</a>',
+                         @domain, x, y,
+                         @a_target_string, name)
+        end
+
+        def _parse_search(text)
+          return unless @@pattern_search =~ text
+          name, wd = $1, $2
+          return sprintf('<a href="http://%s/?word=%s"%s>%s</a>',
+                         @domain, html_encode(wd),
+                         @a_target_string, name)
+        end
+      end
+    end
+  end
+end

data/lib/text/hatena/auto_link/hatena_question.rb

@@ -0,0 +1,44 @@
+require "text/hatena/auto_link/scheme"
+
+module Text
+  class Hatena
+    class AutoLink
+      class HatenaQuestion < Scheme
+        @@pattern_user = /\[?(q:id:([A-Za-z][a-zA-Z0-9_\-]{2,14}))\]?/i
+        @@pattern_question = /\[?(question:(\d+))\]?/i
+
+        def patterns
+          [@@pattern_user, @@pattern_question]
+        end
+
+        def init
+          super
+          @domain = 'q.hatena.ne.jp'
+        end
+
+        def parse(text, opt = {})
+          case text
+          when @@pattern_user
+            _parse_user(text)
+          when @@pattern_question
+            _parse_question(text)
+          end
+        end
+
+        def _parse_user(text)
+          return if @@pattern_user !~ text
+          title, name = $1, $2
+          return sprintf('<a href="http://%s/%s/"%s>%s</a>',
+                         @domain, name, @a_target_string, title)
+        end
+
+        def _parse_question(text)
+          return if @@pattern_question !~ text
+          title, qid = $1, $2
+          return sprintf('<a href="http://%s/%s"%s>%s</a>',
+                         @domain, qid, @a_target_string, title)
+        end
+      end
+    end
+  end
+end