mongomapper_ext 0.1.2 → 0.1.3

data/VERSION

@@ -1 +1 @@
-0.1.2
+0.1.3

data/examples/tags.rb

@@ -0,0 +1,26 @@
+require './helper'
+
+MongoMapperExt.init
+
+class TagsEx
+  include MongoMapper::Document
+  include MongoMapperExt::Tags
+
+  key :title
+end
+
+TagsEx.delete_all
+TagsEx.create!(:title => "The title of the blogpost!!!", :tags => ["tag1", "tag2", "tag3"])
+TagsEx.create!(:title => "testing tags", :tags => ["tag1", "tag4", "tag2"])
+TagsEx.create!(:title => "more tags", :tags => ["tag1", "tag3", "tag5"])
+
+puts ">> Tag Cloud"
+puts TagsEx.tag_cloud.inspect
+
+puts ">> with tag = tag5"
+puts TagsEx.find_with_tags("tag5").inspect
+
+puts ">> all tags that start with t"
+puts TagsEx.find_tags(/^t/).inspect
+
+TagsEx.delete_all

data/lib/mongomapper_ext/js/find_tags.js

@@ -0,0 +1,24 @@
+function findTags(collection, regex, query, limit) {
+  var tags = db.eval(
+    function(collection, regex, query){
+      var tags = [];
+      db[collection].find(query, {"tags":1}).limit(500).forEach(
+        function(p){
+          if ( p.tags ){
+            for ( var i=0; i<p.tags.length; i++ ){
+              var name = p.tags[i];
+              if(name.match(regex) != null && tags.indexOf(name) == -1)
+                tags.push(name);
+            }
+          }
+        }
+      );
+      return tags;
+    },
+    collection,
+    regex,
+    query
+  );
+
+  return tags.slice(0,limit||30);
+}

data/lib/mongomapper_ext/js/tag_cloud.js

@@ -0,0 +1,29 @@
+// TODO: port it to map reduce
+function tagCloud(collection, q, limit) {
+  var counts = db.eval(
+    function(collection, q){
+      var counts = {};
+      db[collection].find(q, {"tags":1}).limit(500).forEach(
+        function(p){
+          if ( p.tags ){
+            for ( var i=0; i<p.tags.length; i++ ){
+              var name = p.tags[i];
+              counts[name] = 1 + ( counts[name] || 0 );
+            }
+          }
+        }
+      );
+      return counts;
+    },
+    collection,
+    q
+  );
+
+  // maybe sort to by nice
+  var sorted = [];
+  for ( var tag in counts ){
+    sorted.push( { name : tag , count : counts[tag] } )
+  }
+
+  return sorted.slice(0,limit||30);
+}

data/lib/mongomapper_ext/tags.rb

@@ -0,0 +1,27 @@
+module MongoMapperExt
+  module Tags
+    def self.included(klass)
+      klass.class_eval do
+        extend ClassMethods
+
+        key :tags, Array, :index => true
+      end
+    end
+
+    module ClassMethods
+      def tag_cloud(conditions = {}, limit = 30)
+        self.database.eval("function(collection, q,l) { return tag_cloud(collection, q,l); }", self.collection_name, conditions, limit)
+      end
+
+      # Model.find_with_tags("budget", "big", :limit => 4)
+      def find_with_tags(*tags)
+        options = tags.extract_options!
+        self.all(options.merge(:tags => tags))
+      end
+
+      def find_tags(regex, conditions = {}, limit = 30)
+        self.database.eval("function(collection, a,b,c) { return find_tags(collection, a,b,c); }", self.collection_name, regex, conditions, limit)
+      end
+    end
+  end
+end

data/lib/mongomapper_ext.rb

@@ -20,3 +20,22 @@ require 'mongomapper_ext/filter'
 
 # slug
 require 'mongomapper_ext/slugizer'
+
+# tags
+require 'mongomapper_ext/tags'
+
+module MongoMapperExt
+  def self.init
+    load_jsfiles(::File.dirname(__FILE__)+"/mongomapper_ext/js")
+  end
+
+  def self.load_jsfiles(path)
+    Dir.glob(::File.join(path, "*.js")) do |js_path|
+      code = ::File.read(js_path)
+      name = ::File.basename(js_path, ".js")
+
+      # HACK: looks like ruby driver doesn't support this
+      MongoMapper.database.eval("db.system.js.save({_id: '#{name}', value: #{code}})")
+    end
+  end
+end

data/mongomapper_ext.gemspec

@@ -5,11 +5,11 @@
 
 Gem::Specification.new do |s|
   s.name = %q{mongomapper_ext}
-  s.version = "0.1.2"
+  s.version = "0.1.3"
 
   s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
   s.authors = ["David A. Cuadrado"]
-  s.date = %q{2010-02-24}
+  s.date = %q{2010-02-28}
   s.description = %q{MongoMapper extensions}
   s.email = %q{krawek@gmail.com}
   s.extra_rdoc_files = [
@@ -27,13 +27,17 @@ Gem::Specification.new do |s|
      "examples/helper.rb",
      "examples/slugizer.rb",
      "examples/storage.rb",
+     "examples/tags.rb",
      "examples/types.rb",
      "examples/update.rb",
      "lib/mongomapper_ext.rb",
      "lib/mongomapper_ext/file.rb",
      "lib/mongomapper_ext/filter.rb",
+     "lib/mongomapper_ext/js/find_tags.js",
+     "lib/mongomapper_ext/js/tag_cloud.js",
      "lib/mongomapper_ext/slugizer.rb",
      "lib/mongomapper_ext/storage.rb",
+     "lib/mongomapper_ext/tags.rb",
      "lib/mongomapper_ext/types/open_struct.rb",
      "lib/mongomapper_ext/types/timestamp.rb",
      "lib/mongomapper_ext/update.rb",
@@ -44,6 +48,7 @@ Gem::Specification.new do |s|
      "test/test_filter.rb",
      "test/test_slugizer.rb",
      "test/test_storage.rb",
+     "test/test_tags.rb",
      "test/test_update.rb",
      "test/types/test_open_struct.rb",
      "test/types/test_set.rb",
@@ -57,6 +62,7 @@ Gem::Specification.new do |s|
   s.test_files = [
     "test/test_slugizer.rb",
      "test/test_filter.rb",
+     "test/test_tags.rb",
      "test/test_storage.rb",
      "test/test_update.rb",
      "test/support/custom_matchers.rb",
@@ -68,6 +74,7 @@ Gem::Specification.new do |s|
      "examples/types.rb",
      "examples/filter.rb",
      "examples/update.rb",
+     "examples/tags.rb",
      "examples/storage.rb",
      "examples/helper.rb",
      "examples/slugizer.rb"

data/test/helper.rb

@@ -14,10 +14,12 @@ $LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
 $LOAD_PATH.unshift(File.dirname(__FILE__))
 
 require 'mongomapper_ext'
+MongoMapper.database = 'test'
+
 require 'models'
 
 class Test::Unit::TestCase
   include CustomMatchers
 end
 
-MongoMapper.database = 'test'
+MongoMapperExt.init

data/test/models.rb

@@ -36,6 +36,7 @@ class BlogPost # for Slug and Filter
   include MongoMapper::Document
   include MongoMapperExt::Filter
   include MongoMapperExt::Slugizer
+  include MongoMapperExt::Tags
 
   filterable_keys :title, :body, :tags, :date
   slug_key :title

data/test/test_tags.rb

@@ -0,0 +1,46 @@
+require 'helper'
+
+class TestTags < Test::Unit::TestCase
+  context "working with tags" do
+    setup do
+      BlogPost.delete_all
+      @blogpost = BlogPost.create(:title => "operation systems",
+                                  :body => "list of some operating systems",
+                                  :tags => %w[list windows freebsd osx linux])
+      @blogpost2 = BlogPost.create(:title => "nosql database",
+                                   :body => "list of some nosql databases",
+                                   :tags => %w[list mongodb redis couchdb])
+    end
+
+    should "generate the tagcloud" do
+      cloud = BlogPost.tag_cloud
+
+      [{"name"=>"list", "count"=>2.0},
+       {"name"=>"windows", "count"=>1.0},
+       {"name"=>"freebsd", "count"=>1.0},
+       {"name"=>"osx", "count"=>1.0},
+       {"name"=>"linux", "count"=>1.0},
+       {"name"=>"mongodb", "count"=>1.0},
+       {"name"=>"redis", "count"=>1.0},
+       {"name"=>"couchdb", "count"=>1.0}].each do |entry|
+        cloud.should include(entry)
+      end
+    end
+
+    should "find blogpost that include the given tags" do
+      BlogPost.find_with_tags("mongodb").should == [@blogpost2]
+      posts = BlogPost.find_with_tags("mongodb", "linux")
+      posts.should include(@blogpost)
+      posts.should include(@blogpost2)
+      posts.size.should == 2
+    end
+
+    should "find tags that start with li" do
+      tags = BlogPost.find_tags(/^li/)
+      tags.should include("linux")
+      tags.should include("list")
+      tags.size.should == 2
+    end
+
+  end
+end

data/test/types/test_timestamp.rb

@@ -32,7 +32,7 @@ class TimestampTest < Test::Unit::TestCase
       @event2 = Event.create!(:start_date => start_time.utc, :end_datime => end_time.utc)
 
       Event.count.should == 2
-      events = Event.find(:all, :$where => ("this.start_date >= %d && this.start_date <= %d" % [@event.start_date.yesterday.to_i, @event2.start_date.yesterday.to_i]))
+      events = Event.all(:$where => ("this.start_date >= %d && this.start_date <= %d" % [@event.start_date.yesterday.to_i, @event2.start_date.yesterday.to_i]))
 
       events.should == [@event]
     end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: mongomapper_ext
 version: !ruby/object:Gem::Version 
-  version: 0.1.2
+  version: 0.1.3
 platform: ruby
 authors: 
 - David A. Cuadrado
@@ -9,7 +9,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2010-02-24 00:00:00 -05:00
+date: 2010-02-28 00:00:00 -05:00
 default_executable: 
 dependencies: 
 - !ruby/object:Gem::Dependency 
@@ -82,13 +82,17 @@ files:
 - examples/helper.rb
 - examples/slugizer.rb
 - examples/storage.rb
+- examples/tags.rb
 - examples/types.rb
 - examples/update.rb
 - lib/mongomapper_ext.rb
 - lib/mongomapper_ext/file.rb
 - lib/mongomapper_ext/filter.rb
+- lib/mongomapper_ext/js/find_tags.js
+- lib/mongomapper_ext/js/tag_cloud.js
 - lib/mongomapper_ext/slugizer.rb
 - lib/mongomapper_ext/storage.rb
+- lib/mongomapper_ext/tags.rb
 - lib/mongomapper_ext/types/open_struct.rb
 - lib/mongomapper_ext/types/timestamp.rb
 - lib/mongomapper_ext/update.rb
@@ -99,6 +103,7 @@ files:
 - test/test_filter.rb
 - test/test_slugizer.rb
 - test/test_storage.rb
+- test/test_tags.rb
 - test/test_update.rb
 - test/types/test_open_struct.rb
 - test/types/test_set.rb
@@ -134,6 +139,7 @@ summary: MongoMapper extensions
 test_files: 
 - test/test_slugizer.rb
 - test/test_filter.rb
+- test/test_tags.rb
 - test/test_storage.rb
 - test/test_update.rb
 - test/support/custom_matchers.rb
@@ -145,6 +151,7 @@ test_files:
 - examples/types.rb
 - examples/filter.rb
 - examples/update.rb
+- examples/tags.rb
 - examples/storage.rb
 - examples/helper.rb
 - examples/slugizer.rb