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