let set ?selection_mode ?view_mode ?view_lines w = let may_set f = may ~f:(f w) in may_set set_selection_mode selection_mode; may_set set_view_mode view_mode; may_set set_view_lines view_lines