let factory_of_filename filename =
  try
    let res =
      List.find
        (fun (re,_) ->
          let re = Str.regexp re in
          Str.string_match re filename 0
        )
        Ed_view_rc.filename_view_patterns#get
    in
    snd res
  with
    Not_found ->
      Ed_view_rc.default_view#get