let get_buffer_by_name name =
  List.find (fun b -> b#name = name) !buffers