peace_love 0.0.1

data/.gitignore

@@ -0,0 +1,2 @@
+.DS_Store
+.*.sw?

data/Gemfile

@@ -0,0 +1,11 @@
+source :rubygems
+
+gem 'angry_hash', '0.0.5'
+gem 'mongo'
+gem 'bson_ext'
+
+group :test do
+  gem 'exemplor'
+end
+
+# vim: ft=ruby

data/Rakefile

@@ -0,0 +1,16 @@
+begin
+  require 'jeweler'
+  Jeweler::Tasks.new do |gemspec|
+    gemspec.name = "peace_love"
+    gemspec.summary = "Peace, Love and Mongo."
+    gemspec.description = "A simple mixin layer for enhancing hashes retrieved from MongoDB. It eschews the normal 'mapping' compulsion of mongo libraries."
+    gemspec.email = "lachie@smartbomb.com.au"
+    gemspec.homepage = "http://github.com/lachie/peace_love"
+    gemspec.authors = ["Lachie Cox"]
+
+    gemspec.add_dependency("mongo", ['~>1.0.0'])
+  end
+rescue LoadError
+  puts "Jeweler not available. Install it with: gem install jeweler"
+end
+

data/VERSION

@@ -0,0 +1 @@
+0.0.1

data/examples/eg.helper.rb

@@ -0,0 +1,21 @@
+require 'rubygems'
+require 'bundler'
+Bundler.setup(:test,:default)
+require 'exemplor'
+
+require 'pp'
+
+require 'pathname'
+here = Pathname(__FILE__).dirname
+$LOAD_PATH << here << (here+'../lib')
+
+class Object
+  def tapp(tag=nil)
+    print "#{tag}=" if tag
+    pp self
+    self
+  end
+end
+
+require 'mongo'
+$db = Mongo::Connection.new.db('sample-db')

data/examples/loading.eg.rb

@@ -0,0 +1,75 @@
+require 'eg.helper'
+require 'angry_hash'
+require 'peace_love'
+
+eg.setup do
+  PeaceLove.db = $db
+end
+
+module Kind
+  def claws; "dainty" end
+
+  def for_kids?
+    fictional? && cartoon?
+  end
+end
+
+module Bear
+  include PeaceLove::Doc
+  sub_doc :kind, Kind
+  sub_col :lovers, Bear
+
+  def claws; "woah" end
+  def liver
+    super.upcase
+  end
+end
+
+eg 'loading object' do
+  $db['bears'].remove()
+  $db['bears'].insert(:name => 'yogi', :liver => 'pure', :kind => {:fictional => true, :cartoon => true})
+
+  PeaceLove['bears'].mixin = Bear
+  yogi = PeaceLove['bears'].find_one(:name => 'yogi')
+  Show(yogi.claws)
+  Show(yogi.name)
+
+  Assert(yogi.liver == 'PURE')
+  Show(yogi.kind.for_kids?)
+end
+
+eg 'wrapping the cursor' do
+  $db['bears'].remove()
+  $db['bears'].insert(:name => 'yogi'    , :liver => 'pure', :kind => {:fictional => true, :cartoon => true})
+  $db['bears'].insert(:name => 'humphrey', :liver => 'cihrrotic', :kind => {:fictional => true, :cartoon => false})
+  
+  PeaceLove['bears'].find.each {|b|
+    Show(b)
+    Show(b.liver)
+  }
+end
+
+eg 'sub collection' do
+  $db['bears'].remove()
+  $db['bears'].insert(:name => 'yogi', :liver => 'pure', :kind => {:fictional => true, :cartoon => true}, :lovers => [
+                      {:name => 'mrs. yogi', :liver => 'donated'}, {:name => 'yogi paw', :liver => 'jaundiced'}
+  ])
+
+  yogi = PeaceLove['bears'].find_one(:name => 'yogi')
+
+  Show(yogi.lovers)
+  Assert(yogi.lovers[0].liver == 'DONATED')
+  Assert(yogi.lovers[1].liver == 'JAUNDICED')
+end
+
+eg 'blank doc' do
+  PeaceLove['bears'].mixin = Bear
+  yogi = PeaceLove['bears'].build
+  yogi.claws
+end
+
+eg 'saving object' do
+  h = AngryHash[ :somesuch => 'second thing' ]
+  id = PeaceLove['bears'].insert( h )
+  PeaceLove['bears'].find_one(id)
+end

data/lib/peace_love.rb

@@ -0,0 +1,23 @@
+require 'mongo'
+require 'angry_hash'
+
+module PeaceLove
+end
+
+require 'peace_love/document'
+require 'peace_love/collection'
+require 'peace_love/cursor'
+
+module PeaceLove
+  class << self
+    attr_accessor :db
+
+    def collections
+      @collections ||= {}
+    end
+
+    def [](collection_name)
+      collections[collection_name.to_s] ||= PeaceLove::Collection.new( db[collection_name] )
+    end
+  end
+end

data/lib/peace_love/collection.rb

@@ -0,0 +1,47 @@
+module PeaceLove
+  class Collection
+    attr_accessor :mixin
+    attr_reader :mongo_collection
+
+    def initialize(collection)
+      @collection = @mongo_collection = collection
+    end
+
+    def build(seed={})
+      __wrap( seed )
+    end
+
+    def find_one(*args)
+      __wrap( @collection.find_one(*args) )
+    end
+
+    def find(*args,&block)
+      if block_given?
+        @collection.find(*args) {|cursor| yield __wrap_cursor(cursor)}
+      else
+        __wrap_cursor(@collection.find(*args))
+      end
+    end
+
+    def __wrap_cursor(cursor)
+      PeaceLove::Cursor.new(cursor,self)
+    end
+
+    def __wrap(hash)
+      hash = __extend( AngryHash[ hash ] )
+      hash.extend mixin if mixin
+      hash
+    end
+
+    def __extend(hash)
+      hash.extend mixin if mixin
+      hash
+    end
+
+    (Mongo::Collection.instance_methods - self.instance_methods).each do |name|
+      next if name[-1] == ?=
+      class_eval "def #{name}(*args,&block); @collection.#{name}(*args,&block) end" unless method_defined?(name)
+    end
+  end
+
+end

data/lib/peace_love/cursor.rb

@@ -0,0 +1,31 @@
+module PeaceLove
+  class Cursor
+    include Enumerable
+
+    attr_reader :mongo_cursor
+
+    def initialize(cursor,collection)
+      @collection = collection
+      @cursor     = @mongo_cursor = cursor
+    end
+
+    def each
+      @cursor.each {|doc| yield @collection.__wrap(doc)}
+    end
+
+    def next_document
+      @collection.__wrap( @cursor.next_document )
+    end
+
+    def to_a
+      @cursor.to_a.map {|doc| @collection.__wrap(doc)}
+    end
+
+    (Mongo::Cursor.instance_methods - self.instance_methods).each do |name|
+      next if name[-1] == ?=
+      class_eval "def #{name}(*args,&block); @collection.#{name}(*args,&block) end" unless method_defined?(name)
+    end
+  end
+end
+
+

data/lib/peace_love/document.rb

@@ -0,0 +1,83 @@
+
+module PeaceLove
+  module Doc
+    class << self
+      def included(base)
+        base.extend ClassMethods
+
+        base.module_eval do
+          def self.extend_object(obj)
+            Doc.mark_extension(obj,self)
+            super
+          end
+        end
+      end
+
+      def object_extensions
+        @object_extensions ||= Hash.new {|h,k| h[k] = []}
+      end
+      def mark_extension(obj,with)
+        object_extensions[obj.__id__] << with
+      end
+
+      def mixin_registry
+        @mixin_registry ||= Hash.new {|h,k| h[k] = {}}
+      end
+
+      def register_mixin(target_class,field,mod,options)
+        mixin_registry[target_class][field.to_s] = [:single, mod, options]
+      end
+      def register_mixin_array(target_class, field, mod, options)
+        mixin_registry[target_class][field.to_s] = [:array, mod, options]
+      end
+
+      def mixin_to(parent_obj,field,obj)
+        # XXX - what does having multiple extensions really mean here?
+        extensions = object_extensions[parent_obj.__id__]
+
+        mixins = mixin_registry.values_at(*extensions).map {|m| m[field.to_s]}.compact
+
+        
+        mixins.each {|(kind,mod,options)|
+          if options.key?(:default) && obj.nil?
+            obj = options[:default]
+          end
+
+          # XXX - what happens when obj is nil
+
+          case kind
+            when :single
+              obj.extend mod
+            when :array
+              # XXX - this is ok for now... we really need to typecheck, perhaps wrap in a smart-array
+              obj.map! {|elt| elt.extend mod}
+            end
+        }
+
+        obj
+      end
+    end
+
+    def [](key)
+      Doc.mixin_to(self,key,super)
+    end
+
+    module ClassMethods
+      def sub_document(field,mod,options={})
+        Doc.register_mixin(self,field,mod,options)
+      end
+      alias_method :sub_doc, :sub_document
+
+      def sub_collection(field,mod,options={})
+        Doc.register_mixin_array(self,field,mod,options)
+      end
+      alias_method :sub_col, :sub_collection
+
+      def build(seed={})
+        doc = AngryHash[ seed ]
+        doc.extend self
+        doc
+      end
+    end
+  end
+end

data/peace_love.gemspec

@@ -0,0 +1,51 @@
+# Generated by jeweler
+# DO NOT EDIT THIS FILE DIRECTLY
+# Instead, edit Jeweler::Tasks in Rakefile, and run the gemspec command
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name = %q{peace_love}
+  s.version = "0.0.1"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
+  s.authors = ["Lachie Cox"]
+  s.date = %q{2010-06-24}
+  s.description = %q{A simple mixin layer for enhancing hashes retrieved from MongoDB. It eschews the normal 'mapping' compulsion of mongo libraries.}
+  s.email = %q{lachie@smartbomb.com.au}
+  s.files = [
+    ".gitignore",
+     "Gemfile",
+     "Rakefile",
+     "VERSION",
+     "examples/eg.helper.rb",
+     "examples/loading.eg.rb",
+     "lib/peace_love.rb",
+     "lib/peace_love/collection.rb",
+     "lib/peace_love/cursor.rb",
+     "lib/peace_love/document.rb",
+     "peace_love.gemspec"
+  ]
+  s.homepage = %q{http://github.com/lachie/peace_love}
+  s.rdoc_options = ["--charset=UTF-8"]
+  s.require_paths = ["lib"]
+  s.rubygems_version = %q{1.3.6}
+  s.summary = %q{Peace, Love and Mongo.}
+  s.test_files = [
+    "examples/eg.helper.rb",
+     "examples/loading.eg.rb"
+  ]
+
+  if s.respond_to? :specification_version then
+    current_version = Gem::Specification::CURRENT_SPECIFICATION_VERSION
+    s.specification_version = 3
+
+    if Gem::Version.new(Gem::RubyGemsVersion) >= Gem::Version.new('1.2.0') then
+      s.add_runtime_dependency(%q<mongo>, ["~> 1.0.0"])
+    else
+      s.add_dependency(%q<mongo>, ["~> 1.0.0"])
+    end
+  else
+    s.add_dependency(%q<mongo>, ["~> 1.0.0"])
+  end
+end
+

metadata

@@ -0,0 +1,86 @@
+--- !ruby/object:Gem::Specification 
+name: peace_love
+version: !ruby/object:Gem::Version 
+  prerelease: false
+  segments: 
+  - 0
+  - 0
+  - 1
+  version: 0.0.1
+platform: ruby
+authors: 
+- Lachie Cox
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2010-06-24 00:00:00 +10:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: mongo
+  prerelease: false
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ~>
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 1
+        - 0
+        - 0
+        version: 1.0.0
+  type: :runtime
+  version_requirements: *id001
+description: A simple mixin layer for enhancing hashes retrieved from MongoDB. It eschews the normal 'mapping' compulsion of mongo libraries.
+email: lachie@smartbomb.com.au
+executables: []
+
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- .gitignore
+- Gemfile
+- Rakefile
+- VERSION
+- examples/eg.helper.rb
+- examples/loading.eg.rb
+- lib/peace_love.rb
+- lib/peace_love/collection.rb
+- lib/peace_love/cursor.rb
+- lib/peace_love/document.rb
+- peace_love.gemspec
+has_rdoc: true
+homepage: http://github.com/lachie/peace_love
+licenses: []
+
+post_install_message: 
+rdoc_options: 
+- --charset=UTF-8
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.6
+signing_key: 
+specification_version: 3
+summary: Peace, Love and Mongo.
+test_files: 
+- examples/eg.helper.rb
+- examples/loading.eg.rb