(defwidget metric [label value onchange] (box :orientation "h" :class "metric" :space-evenly false (box :class "label" label) (circular-progress :active {onchange != ""} :value value :start-at 0 :thickness 10 :clockwise true :onchange onchange)))