anchor.diff:                                             currToken := CT,
                                              currLine  := CL,
                                              prevLine  := <<>>}) ->
  -            convert(Rest, State#{prevLine  := <<CL/binary>>,
  -                                 currLine  := <<>>,
  -                                 currToken := <<CT/binary, 13, 10>>});
  +    convert(Rest, State#{prevLine  := <<CL/binary>>,
  +                         currLine  := <<>>,
  +                         currToken := <<CT/binary, 13, 10>>});
   convert(<<13, 10, Rest/binary>>, State = #{state     := ptext,
                                              prevLine  := PL,
                                              currLine  := CL,
  
positive.code: convert(<<" #", Rest/binary>>, State = #{state       := Tag,
                                           currToken   := CT,
                                           soFar := Html})
      when (Tag == h6) or (Tag == h5) or (Tag == h4) or
           (Tag == h3) or (Tag == h2) or (Tag == h1) ->
      case headerEnd(Rest) of
          {true, Rest2} ->
              convert(<<Rest2/binary>>, State#{state     := Tag,
  
negative.code: remBegWS(<<9,  Rest/binary>>) -> remBegWS(Rest);
  remBegWS(Content)             -> Content.
  
  checkForList(Content) ->
      case orderedList(Content) of
          {true, State} ->
              {true, State};
          false ->
              case unorderdList(Content) of
                  {true, _} ->
                      {true, ul_start};
                  false ->
                      false
              end
      end.
  
  orderedList(Content) ->
      case parseOLNum(Content) of
          {true, _, _} ->
              {true, ol_start};
          _ ->
              false
      end.
  
  unorderdList(<<"* ", Rest/binary>>) -> {true, remBegWS(Rest)};
  unorderdList(<<"- ", Rest/binary>>) -> {true, remBegWS(Rest)};
  unorderdList(<<"+ ", Rest/binary>>) -> {true, remBegWS(Rest)};
  unorderdList(_Content)           -> false.
  
  parseOLNum(Content) ->
      parseOLNum(Content, <<>>).
  
  parseOLNum(<<Num:8, Rest/binary>>, SoFar)
    when ((Num >= $0) and (Num =< $9)) and (byte_size(SoFar) < 10) ->
      parseOLNum(Rest, <<SoFar/binary, Num:8>>);
  parseOLNum(<<". ", Rest/binary>>, SoFar) ->
      {true, SoFar, remBegWS(Rest)};
  parseOLNum(_Content, _SoFar) ->
      false.
  
  
  
  
  