(defwidget metric [label value]
  (box :orientation "h"
       :class "metric"
       :space-evenly false
    (box :class "label" label)
    (transform :rotate 50
               :transform-origin-x '50%'
               :transform-origin-y '50%'
               (circular-progress :value value
                                  :start-at 0
                                  :thickness 10
                                  :clockwise true))))