anchor.diff:  process(_ID, Attr, _Children, AST, Options) ->
     DeclaredZSS = get_declared_zss(Attr, Options),
     % DEBUG
  -  io:format("~n~p~n~n", [DeclaredZSS]),
     Processed = lists:map(fun(Styles) ->
           process_styles(Styles, AST, Options)
       end, DeclaredZSS),
  +  io:format("~n~p~n~n", [Processed]),
     AST.
   
   get_declared_zss(Attr, Options) ->
  
positive.code:       SFN ->
          case find_magic_file(SFN, Options) of
            none -> Declared;
            MagicFile -> zml:append_attr(Declared, {"style", MagicFile})
          end
      end,
    % And full libraries
  
negative.code:   not filelib:is_dir(TryDir).
  
  % Give back: {Type, InlineCSS}
  process_styles({Type, Sheets}, AST, _Options) ->
    case [remove_unused_css(zss:compile(ZSSF), AST, []) || ZSSF <- Sheets] of
      [] ->
        empty;
      ZSSTrees ->
        {Type, zss:output_css(zss_parser:combine_dups(lists:flatten(ZSSTrees)))}
    end.
  
  find_magic_file(SourceName, Options) ->
    BaseName = filename:rootname(filename:basename(SourceName)),
    case find_file(BaseName, ".zss", zml:get_search_paths(Options)) of
      {ok, FullName} -> FullName;
      _ -> none
    end.
  
  