let set_sort w ?auto ?column ?dir:sort_type () = may auto ~f:(set_auto_sort w); may column ~f:(set_sort_column w); may sort_type ~f:(set_sort_type w)