let store_layout file wins =
  let xml = xml_of_layout wins in
  let s = Xml.to_string_fmt xml in
  Ed_misc.file_of_string ~file s