let ask_for_edition ?(extension=".conf") content = let tmpfile = Filename.temp_file "ketrew" extension in IO.write_file tmpfile ~content >>= fun () -> open_in_dollar_editor tmpfile >>= fun () -> IO.read_file tmpfile