anchor.diff:                                    end
                       end
        end.
  +%%------------------------------------------------------------------------------
  +%% @doc Escape suites S into {suite, S}
  +%% Otherwise issue with lists:flatten (all suites concatenated)
  +%% @end
  +%%------------------------------------------------------------------------------
  +suite_escape(S) -> lists:map(fun(Suite) -> case is_atom(Suite) of
  +                                                true  -> {suite, atom_to_list(Suite)};
  +                                                false -> {suite, Suite}
  +                                           end
  +                             end, S).
  +%%------------------------------------------------------------------------------
  +%% @doc Combine two lists of suites
  +%% First call must escape both suites lists with suite_escape/1 .
  +%% @end
  +%%------------------------------------------------------------------------------
  +suite_combine({suite, {suite, Left}}, Right) -> suite_combine({suite, Left}, Right) ; 
  +
  +suite_combine(Left, {suite, {suite, Right}}) -> suite_combine(Left, {suite, Right}) ; 
  +
  +suite_combine({suite, Left}, {suite, Right}) -> {suite, Left ++ Right} ;
  +
  +suite_combine({suite, Left}, Right) -> lists:map(fun(R) -> suite_combine({suite, Left},  {suite, R}) end, Right) ;
  +
  +suite_combine(Left, {suite, Right}) -> lists:map(fun({suite, L}) -> L ++ Right end, Left) ;
  +
  +suite_combine(Left, Right) ->  Raw = lists:flatten(lists:map(fun(L) -> suite_combine(L, Right) end, Left)),
  +                               lists:map(fun({suite, D}) -> D end, Raw).
   
   %%------------------------------------------------------------------------------
   %% @doc Escape directories D into {dir, D}
  
positive.code: experimental_extra(Repo, X) -> 
      List = get_conf(list_to_atom(Repo), suites, ?DEFAULT_SUITES),
      Extras = get_conf(Repo, extras, []),
      % split  X-Y 
       case re:split(X, "[-]", [{return,list}]) of
          [X]      -> % No dash, i.e no extra
  
negative.code:             true -> ok
           end.
  
  %%-------------------------------------------------------------------------
  %% @doc Find which css to create in top of repo
  %% @end
  %%-------------------------------------------------------------------------
  get_all_suites(Repo) -> Basic = get_conf(Repo, suites, ?DEFAULT_SUITES),
                          Extra = get_conf(Repo, extras, []),
                          DashExtra = suite_combine({suite, "-"}, suite_escape(Extra)),
                          Suites = suite_combine(suite_escape(tl(Basic)), suite_escape(DashExtra)),
                          lists:delete('',Basic) ++ Suites.
  %%-------------------------------------------------------------------------
  %% @doc Find which css to create in top of repo
  %% @end
  