all_nodes_parts

all_nodes_parts(AndPartners) ->
  {ok, PMap} = partitions(),
  all_nodes_parts(PMap, AndPartners).


all_nodes_parts(PMap, AndPartners) ->
  NodeParts2 =
    case AndPartners of
      true ->
        {Nodes, _Parts} = lists:unzip(PMap),
        lists:flatmap(
          fun({Node,Part}) ->
              Partners = replication:partners(Node, lists:usort(Nodes)),
              lists:map(fun(Partner) -> {Partner, Part} end, [Node|Partners])
          end, PMap);
      _ ->
        PMap
    end,
  %% sort not necessary 'cept for debugging purty-ness
  lists:keysort(2,NodeParts2).