kvs rotate limit function

src/kvs.erl

@@ -33,10 +33,15 @@ dir()              -> dir     (#kvs{mod=?DBA}).
 next_id(Table,DX)  -> next_id(Table, DX,  #kvs{mod=?DBA}).
 
 generation(Table,Key) ->
-    case Key - topleft(Table,Key) < application:get_env(kvs,generation,250000) of
+    case Key - topleft(Table,Key) < norm(application:get_env(kvs,generation,{?MODULE,limit}),Table,Key) of
          true -> skip;
          false -> kvs:rotate(Table) end.
 
+norm({A,B},Table,Key) -> A:B(Table,Key);
+norm(_,Table,Key)     -> limit(Table,Key).
+
+limit(_Table,_Key)    -> 250000.
+
 % Implementation
 
 init(Backend, Module) ->

src/kvs_user.erl

@@ -8,7 +8,7 @@
 
 metainfo() ->
     #schema{name=kvs,tables=[
-        #table{name=user2,container=feed,fields=record_info(fields,user2)},
+%        #table{name=user2,container=feed,fields=record_info(fields,user2)},
         #table{name=group,container=feed,fields=record_info(fields,group)},
         #table{name=user,container=feed,fields=record_info(fields,user),
                  keys=[facebook_id,googleplus_id,twitter_id,github_id]}