let stop link =
    let str =
      match Buffer.contents link.contents with 
      | "" -> None
      | s -> Some s
    in
    (link.kind, link.linkto, str)