let create_from_cf_wrappers ?(desc="") wrappers =
let group = new CF.group in
let tuple2 = CF.tuple2_wrappers CF.string_wrappers wrappers in
let cp = new CF.list_cp tuple2 ~group ["bookmarks"] [] desc in
{
bk_table = Hashtbl.create 101;
bk_cf_group = group ;
bk_cf_cp = cp ;
}