anchor.diff:     "]")
   
     (link-contents
  -   (many1 (or (text-until (tagged-or (or "|" "]"))) tagged-text)))
  +   (many1 (or (text-until (or tag-open "|" "]")) tagged-text)))
   
     (link-key
      "|" (text (many1 (none-of "]"))))
  
positive.code:   (term
     (try indentation)
     "% "
     (=> (many1 (or (text-until (tagged-or " %")) tagged-text)) `(:dt ,@_))
     " %"
     eol)
  
  
negative.code:   (tag-open (unescaped "\\") (=> name) "{")
  
    (tagged-text
     (-> tag-open tag)
     (=> (if (member tag subdocs) subdoc-contents simple-contents) `(,tag ,@_))
     "}")
  
    (subdoc-contents
     (incf subdoc-level)
     (=> (many element)) eod
     (decf subdoc-level))
  
    (simple-contents
     (many1 (or (text-until (or tag-open "}")) tagged-text)))
  
    (name (=> (text (many1 (char-if #'alpha-char-p))) (keywordize _)))
  
  