let set_wmclass ?name ?clas:wm_class w = set_wmclass w ~name:(may_default get_wmclass_name w ~opt:name) ~clas:(may_default get_wmclass_class w ~opt:wm_class)