zweikopf 0.0.1 → 0.0.2

data/lib/zweikopf/hash.rb

@@ -13,9 +13,11 @@ module Zweikopf
       ret = empty.as_transient
       hash.each do |k, v|
         if v.is_a?(::Hash)
-          ret = ret.assoc(Keyword.intern(k.to_s), self.create(v))
+          ret = ret.assoc(ruby_to_clj_keyword(k.to_s), self.create(v))
+        elsif block_given?
+          ret = yield(ret, k, v)
         else
-          ret = ret.assoc(Keyword.intern(k.to_s), v)
+          ret = ret.assoc(ruby_to_clj_keyword(k.to_s), v)
         end
       end
       ret.persistent
@@ -33,6 +35,10 @@ module Zweikopf
       end
     end # self.from_clj
 
+    def self.ruby_to_clj_keyword(keyword)
+      Keyword.intern(keyword.to_s)
+    end # self.ruby_to_clj_keyword(keyword)
+
     def self.clj_to_ruby_symbol(keyword)
       keyword.to_s.gsub(/:/, "").to_sym
     end # self.clj_to_ruby_symbol

data/lib/zweikopf/version.rb

@@ -1,3 +1,3 @@
 module Zweikopf
-  VERSION = "0.0.1"
+  VERSION = "0.0.2"
 end

data/spec/zweikopf/hash_spec.rb

@@ -45,6 +45,32 @@ describe Zweikopf::Hash do
         Zweikopf::Hash.create({:a => 1, :b => {:c => 3, :d =>4}}).should eql hash
       end
     end
+
+    context "given a data structure that requires custom transformations" do
+
+      #
+      # Environment
+      #
+
+      class CustomTransformedEntry
+        def serializable_hash
+          {:c => 3, :d => 4}
+        end
+      end
+
+      let(:hash) { load_fixture(:clj_deep_hash1) }
+
+      it "creates a Clojure hash with given block" do
+        Zweikopf::Hash.create({:a => 1, :b => CustomTransformedEntry.new }) do |ret, k, v|
+          if v.is_a?(CustomTransformedEntry)
+            ret.assoc(Zweikopf::Hash.ruby_to_clj_keyword(k.to_s), Zweikopf::Hash.create(v.serializable_hash))
+          else
+            ret.assoc(Zweikopf::Hash.ruby_to_clj_keyword(k.to_s), v)
+          end
+        end.should eql hash
+      end
+
+    end
   end
 
   describe :from_clj do

data/zweikopf.gemspec

@@ -5,7 +5,7 @@ Gem::Specification.new do |gem|
   gem.authors       = ["Oleksandr Petrov"]
   gem.email         = ["oleksandr.petrov@gmail.com"]
   gem.description   = %q{Rubygem for jruby/clojure interop}
-  gem.summary       = %q{It's good, try it out!}
+  gem.summary       = %q{Its good, try it out!}
   gem.homepage      = ""
 
   gem.executables   = `git ls-files -- bin/*`.split("\n").map{ |f| File.basename(f) }

metadata

@@ -2,7 +2,7 @@
 name: zweikopf
 version: !ruby/object:Gem::Version 
   prerelease: 
-  version: 0.0.1
+  version: 0.0.2
 platform: ruby
 authors: 
   - Oleksandr Petrov
@@ -10,7 +10,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2012-07-17 00:00:00 Z
+date: 2012-07-18 00:00:00 Z
 dependencies: 
   - !ruby/object:Gem::Dependency 
     name: rake
@@ -93,7 +93,7 @@ rubyforge_project:
 rubygems_version: 1.8.24
 signing_key: 
 specification_version: 3
-summary: It's good, try it out!
+summary: Its good, try it out!
 test_files: 
   - spec/fixtures/clj_array1.clj
   - spec/fixtures/clj_deep_hash1.clj