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