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