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