hatena-keyword 0.0.1

data/MIT-LICENSE

@@ -0,0 +1,20 @@
+Copyright (c) 2010 [maiha@wota.jp]
+
+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 OR COPYRIGHT HOLDERS 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

@@ -0,0 +1,17 @@
+hatena-keyword
+==============
+
+  hatena keyword api
+
+
+Example
+=======
+
+
+
+
+Author
+======
+
+  maiha@wota.jp
+

data/Rakefile

@@ -0,0 +1,52 @@
+require 'rubygems'
+require 'rake/gempackagetask'
+
+GEM_NAME = "hatena-keyword"
+AUTHOR = "maiha"
+EMAIL = "maiha@wota.jp"
+HOMEPAGE = "http://github.com/maiha/hatena-keyword"
+SUMMARY = "hatena keyword api"
+GEM_VERSION = "0.0.1"
+
+spec = Gem::Specification.new do |s|
+  s.rubyforge_project = 'asakusarb'
+  s.executables = []
+  s.name = GEM_NAME
+  s.version = GEM_VERSION
+  s.platform = Gem::Platform::RUBY
+  s.has_rdoc = true
+  s.extra_rdoc_files = ["README", "MIT-LICENSE"]
+  s.summary = SUMMARY
+  s.description = s.summary
+  s.author = AUTHOR
+  s.email = EMAIL
+  s.homepage = HOMEPAGE
+  s.require_path = 'lib'
+  s.add_dependency('dsl_accessor', '>= 0.3.3')
+  s.files = %w(MIT-LICENSE README Rakefile) + Dir.glob("{lib,spec}/**/*")
+end
+
+Rake::GemPackageTask.new(spec) do |pkg|
+  pkg.gem_spec = spec
+end
+
+desc "Install the gem"
+task :install do
+  Merb::RakeHelper.install(GEM_NAME, :version => GEM_VERSION)
+end
+
+desc "Uninstall the gem"
+task :uninstall do
+  Merb::RakeHelper.uninstall(GEM_NAME, :version => GEM_VERSION)
+end
+
+desc "Create a gemspec file"
+task :gemspec do
+  File.open("#{GEM_NAME}.gemspec", "w") do |file|
+    file.puts spec.to_ruby
+  end
+end
+
+require 'spec/rake/spectask'
+desc 'Default: run spec examples'
+task :default => 'spec'

data/lib/hatena-keyword.rb

@@ -0,0 +1 @@
+require File.dirname(__FILE__) + '/hatena'

data/lib/hatena.rb

@@ -0,0 +1,13 @@
+
+require "rubygems"
+require "xmlrpc/client"
+require "nkf"
+require "dsl_accessor"
+
+module Hatena
+end
+
+__DIR__ = File.dirname(__FILE__)
+
+require __DIR__ + "/hatena/null"
+require __DIR__ + "/hatena/keyword"

data/lib/hatena/keyword.rb

@@ -0,0 +1,82 @@
+
+module Hatena
+  Keyword = Struct.new(:word, :score, :cname, :refcount)
+
+  class Keyword
+    def to_s
+      word
+    end
+
+    class << self
+      def search(body)
+        Hatena::Keyword::Retrieve.new(body).execute
+      end
+
+      def link(body)
+        Hatena::Keyword::Link.new(body).execute
+      end
+
+      def [](body)
+        search(body).map(&:to_s).uniq
+      end
+    end
+
+    ######################################################################
+    ### Service
+
+    class Service
+      dsl_accessor :logger, Null.new, :instance => true
+      dsl_accessor :default_options, proc{{}}
+
+      def initialize(string, options = {})
+        @string  = NKF.nkf('-w', string.to_s)
+        @options = options
+        @result  = nil
+      end
+
+      def execute
+        server = XMLRPC::Client.new2('http://d.hatena.ne.jp/xmlrpc')
+        method = 'hatena.setKeywordLink'
+
+        hash = default_options
+        hash.delete(:body)
+        logger.debug "#{self.class.name}(%s, %s)" % [method, hash.inspect]
+        @result = server.call(method, default_options)
+      end
+
+      private
+        def default_options
+          self.class.default_options.merge(@options).merge(:body => @string)
+        end
+
+        def option(key)
+          default_options[key]
+        end
+
+        def result
+          @result || execute
+        end
+    end
+
+    class Link < Service
+      default_options({:cname=>"idol", :a_class=>"hatena-keyword", :score=>20})
+
+      def replace(&block)
+        result.gsub(%r{<a class="#{option(:a_class)}".*?>(.*?)</a>}i) {block.call($1)}
+      end
+    end
+
+    class Retrieve < Service
+      default_options({:cname=>"idol", :a_class=>"hatena-keyword", :score=>20, :mode=>'lite'})
+
+      def execute
+        super
+        # result: {"wordlist"=>[{"score"=>78, "cname"=>"idol", "word"=>"石村舞波", "refcount"=>4}]}
+        result["wordlist"].map do |h|
+          Hatena::Keyword.new(h["word"], h["score"], h["cname"], h["refcount"])
+        end
+      end
+    end
+  end
+end
+

data/lib/hatena/null.rb

@@ -0,0 +1,7 @@
+module Hatena
+  class Null
+    def method_missing(*)
+      self
+    end
+  end
+end

data/spec/its_helper.rb

@@ -0,0 +1,15 @@
+module Spec
+  module Example
+    module Subject
+      module ExampleGroupMethods
+        def its(*args, &block)
+          describe(args.first) do
+            define_method(:subject) { super().send(*args) }
+            it(&block)
+          end
+        end
+      end
+    end
+  end
+end
+

data/spec/keyword_spec.rb

@@ -0,0 +1,9 @@
+require File.join(File.dirname(__FILE__), 'spec_helper.rb')
+
+describe Hatena::Keyword do
+  subject { Hatena::Keyword }
+
+  it { should respond_to(:[]) }
+  it { should respond_to(:search) }
+  it { should respond_to(:link) }
+end

data/spec/provide_helper.rb

@@ -0,0 +1,36 @@
+######################################################################
+### provide matcher
+Spec::Matchers.define :provide do |expected|
+  match do |obj|
+    (obj.public_methods + obj.protected_methods + obj.private_methods).include?(expected.to_s)
+  end
+end
+
+module Spec
+  module Example
+    module Subject
+      module ExampleGroupMethods
+        # == Examples
+        #
+        #   describe User do
+        #     subject { User.new }
+        #     provide :name
+        #
+        #       [intead of]
+        #
+        #     it "should provide #name" do
+        #       methods = subject.public_methods + subject.protected_methods + subject.private_methods
+        #       methods.should include("name")
+        #     end
+        #   end
+        #
+        def provide(name)
+          it "should provide ##{name}" do
+            subject.should provide(name)
+          end
+        end
+      end
+    end
+  end
+end
+

data/spec/spec_helper.rb

@@ -0,0 +1,16 @@
+
+require 'spec'
+require 'rr'
+
+require File.join(File.dirname(__FILE__), '/../lib/hatena')
+require File.join(File.dirname(__FILE__), '/its_helper')
+require File.join(File.dirname(__FILE__), '/provide_helper')
+
+
+def path(key)
+  Pathname(File.join(File.dirname(__FILE__) + "/fixtures/#{key}"))
+end
+
+def data(key)
+  path(key).read{}
+end

metadata

@@ -0,0 +1,75 @@
+--- !ruby/object:Gem::Specification 
+name: hatena-keyword
+version: !ruby/object:Gem::Version 
+  version: 0.0.1
+platform: ruby
+authors: 
+- maiha
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2010-01-14 00:00:00 +09:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: dsl_accessor
+  type: :runtime
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 0.3.3
+    version: 
+description: hatena keyword api
+email: maiha@wota.jp
+executables: []
+
+extensions: []
+
+extra_rdoc_files: 
+- README
+- MIT-LICENSE
+files: 
+- MIT-LICENSE
+- README
+- Rakefile
+- lib/hatena.rb
+- lib/hatena-keyword.rb
+- lib/hatena/null.rb
+- lib/hatena/keyword.rb
+- spec/provide_helper.rb
+- spec/keyword_spec.rb
+- spec/its_helper.rb
+- spec/spec_helper.rb
+has_rdoc: true
+homepage: http://github.com/maiha/hatena-keyword
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+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: asakusarb
+rubygems_version: 1.3.5
+signing_key: 
+specification_version: 3
+summary: hatena keyword api
+test_files: []
+