let paste () =
  match !buffer with
    None -> None
  | Some e -> Some (copy_report_ele e)