12 lines
440 B
Text
12 lines
440 B
Text
(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))))
|