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