let filename_view_patterns =
  new CF.list_cp ~group
    (CF.tuple2_wrappers CF.string_wrappers CF.string_wrappers)
    ["view_from_filename_patterns"]
    default_filename_view_patterns
    ("Associations between regular expressions on filename and the "^
     "view to use to open the file")