let modify fd ?family ?style ?variant ?weight ?stretch ?size () =
let may_set set_x x = may x ~f:(set_x fd) in
may_set set_family family;
may_set set_style style;
may_set set_stretch stretch;
may_set set_variant variant;
may_set set_weight weight;
may_set set_size size