~bwe/kit commit - sourcehut hg

2 files changed, 3 insertions(+), 2 deletions(-)

M src/Charting.elm
M src/Main.elm

M src/Charting.elm +2 -1

@@ 51,7 51,8 @@ twoLinesChart cmodel doneData =
             C.interpolated (roundTo r << a) [ CA.width 3 ] [] |> C.named t
 
         dataPointsTwo tx x ty y =
-            linesChart [ l x 1 tx, l y 1 ty ]
+            let percentify = C.format (\v -> String.fromFloat v ++ "%") in
+            linesChart [ l x 1 tx |> percentify, l y 1 ty |> percentify]
 
         linesChart x =
             C.series .round x doneData

M src/Main.elm +1 -1

@@ 484,7 484,7 @@ view model =
                     column [ width fill, height fill, spacing 25 ] [ el [ paddingXY 10 0, Font.size 14, centerX ] <| column [ width fill, height fill ] [ text t1, text t2 ], theChart x ]
             in
             column [ width fill, height fill, spacing 30 ]
-                [ cc [ headedChart "How much gets done?" "[% incoming jobs]" model.chart1, headedChart "How long does it take?" "[% jobs ≥ 5 cycles flow time]" model.chart3, headedChart "How much rework?" "[% jobs requiring rework]" model.chart5 ]
+                [ cc [ headedChart "How much gets done?" "[incoming jobs]" model.chart1, headedChart "How long does it take?" "[jobs ≥ 5 cycles flow time]" model.chart3, headedChart "How much rework?" "[jobs requiring rework]" model.chart5 ]
                 ]
 
         cy =