anchor.diff:      lists:map(fun
                     ({br})        -> "\n";
                     ({i, Inline}) -> [Inline]
  -                  %({l, Line})   -> ["<l>", Line, "</l>\n"];
  -                  %({i, Inline}) -> ["<i>", Inline, "</i>"]
                 end, format_content(Content, Ctx)).
   
   format_content(Content, Ctx) ->
  
positive.code: prepend( Prefix, [{br} | Doc], Acc) -> prepend(Prefix, Doc, [{br}, {i, Prefix} | Acc]);
  prepend( Prefix, [Node | Doc], Acc) -> prepend(Prefix, Doc, [Node | Acc]).
  
  default_width() -> 80.
  
  enumerate(List) ->
      lists:zip(lists:seq(1, length(List)), List).
  
  
negative.code:             end_block([{br}, {i, [maps:get(Name, Headers), Text]}])
      end.
  
  cleanup_text(Text, _Ctx) ->
      lists:flatmap(fun
                        ("\n") -> [{br}];
  