anchor.diff:        (t (illegal-token token)))))
   
   (defun open-possible-modeline-handler (parser)
  -  (let ((so-far (make-text-buffer "-")))
  -    (with-bindings (parser token)
  -      ((and (eql token #\*) (string= so-far "-"))
  +  (let ((so-far (make-text-buffer "-"))
  +        (inital-offset 0))
  +    (with-bindings (parser token)
  +      ((and (eql (content token) #\*) (string= so-far "-"))
  +       (setf inital-offset (- (offset token) 2))
          (append-text so-far token))
  -      ((and (eql token #\-) (string= so-far "-*"))
  +      ((and (eql (content token) #\-) (string= so-far "-*"))
          (append-text so-far token))
         ((string= so-far "-*-")
  -       (when (eql token :blank) (pop-frame)))
  +       (when (eql (content token) :blank) (pop-frame)))
         (t
          (append-text so-far token)
          (pop-frame)
          (open-paragraph parser "p")
  -       (loop for c across so-far do (process-token parser c))))))
  -
  +       (loop for c across so-far
  +          for o from inital-offset
  +          do (process-token parser (token c o)))))))
  +
  +#+(or)(defun open-possible-link-definition (parser)
  +  (with-bindings (parser token)
  +    (#\[ (open-link parser))
  +    (#\] (whatever))
  +    ((text-char-p token))))
  +
  +#+(or)(defun open-link (parser)
  +  (let ((link (open-element parser "link")))
  +    (with-bindings (parser token)
  +      (#\] (pop-frame-and-element link))
  +      ((text-char-p token) (add-text parser token)))))
  +       
   (defun open-slash-handler (parser)
     (with-bindings (parser token)
       ((tag-name-char-p token)
        (pop-frame)
        (open-tag-name-handler parser token))
  -    ("\\{}*[]#-"
  +    ("\\{}*#-"
        (pop-frame)
        (add-text parser token))
       (t (illegal-token token))))
  
positive.code:        (incf blanks)
         (setf bol t))
  
        ((characterp token)
         (when bol
           (loop repeat blanks do (add-text parser *blank*))
           (setf blanks 0)
  
negative.code:        (setf (current-indentation parser) (spaces token))
         (pop-frame-and-element item)
         (process-token parser token))
        ((eql list-marker (content token))
         (pop-frame-and-element item)
         (process-token parser token)))))
  
  