let
with_color t = get_ui t |>
fun
ui
->
ui.with_color