First step to metaslots

lib/strokedb/document.rb

@@ -203,6 +203,7 @@ def initialize(*args, &block)
     # If slot was not found, it will return <tt>nil</tt>
     #
     def [](slotname)
+      slotname = slotname.document.uuid if slotname.is_a?(Meta) && slotname.is_a?(Module)
       @slots[slotname.to_s].value rescue nil
     end
 
@@ -212,6 +213,7 @@ def [](slotname)
     #   document[:slot_1] = "some value"
     #
     def []=(slotname, value)
+      slotname = slotname.document.uuid if slotname.is_a?(Meta) && slotname.is_a?(Module)
       slotname = slotname.to_s
 
       (@slots[slotname] ||= Slot.new(self, slotname)).value = value
@@ -282,7 +284,11 @@ def pretty_print #:nodoc:
           if %w(version previous_version).member?(k) && v = self[k]
             s << "#{k}: #{v[0,4]}..., "
           else
-            s << "#{k}: #{self[k].inspect}, "
+            if k.match(/^#{UUID_RE}$/)
+              s << "[#{store.find(k).name}]: #{self[k].inspect}, " rescue s << "#{k}: #{self[k].inspect}, "
+            else
+              s << "#{k}: #{self[k].inspect}, "
+            end
           end
         end
 

spec/lib/strokedb/document/metaslot_spec.rb

@@ -0,0 +1,24 @@
+require File.dirname(__FILE__) + '/spec_helper'
+
+describe "Document" do
+
+  before(:each) do
+    setup_default_store
+    Object.send!(:remove_const,'SomeMeta') if defined?(SomeMeta)
+    SomeMeta = Meta.new
+    @document = Document.new
+  end
+
+  it "should assign a uuid-named slot for metaslot" do
+    @document[SomeMeta] = "some value"
+    @document.slotnames.should include(SomeMeta.document.uuid)
+  end
+
+  it "should be able to read metaslot" do
+    @document[SomeMeta] = "some value"
+    @document[SomeMeta].should == "some value"
+  end
+
+
+
+end