let option ?(attrs = []) ?value ?label ?(disabled = false) ?(selected = false)
txt =
Low.option
~attrs:(
List.fold_left
LOption.optionnaly_add_to_list
attrs
[ LOption.apply_on_opted (fun v -> ("value",v)) value ;
LOption.apply_on_opted (fun l -> ("label",l)) label ;
if disabled then Some ("disabled","disabled") else None ;
if selected then Some ("selected","selected") else None ;
]
)
~children:[Low.string txt]
()