anchor.diff:          html_id=Record#grid.html_id,
           class=to_classes(Record),
           body=case Record#grid.type of
  +            clear ->
  +                Body;
               container ->
                   Body;
               grid ->
  
positive.code:             [First|L1] = Body,
              First1 = to_grid_record(First),
              Body1 = [First1#grid {alpha = true }|L1],
  
              %% Add omega to last element, and add a clear div.
              {L2, Last} = lists:split(length(Body1) - 1, Body1),
              Last1 = to_grid_record(hd(Last)),
              Body2 = L2 ++ [Last1#grid { omega = true }, #grid_clear {}],
              
              Body2;
  
          false -> 
              Body
      end.
  
  %% Return true if all elements are grid elements.
  
negative.code: %% this grid.
  to_classes(Record) ->
      C = case Record#grid.type of
          clear -> 
              [clear];
          container -> 
              %% Construct the container_N class, and add any other user
              %% defined classes.
  