~bwe/kit commit - sourcehut hg

2 files changed, 13 insertions(+), 5 deletions(-)

M src/Main.elm
M src/Views.elm

M src/Main.elm +1 -1

@@ 495,7 495,7 @@ view model =
     in
     viewWrapper <|
         column [ spacing 10, padding outerPadding, centerX, centerY, width fill, height <| px 800 ] <|
-            [ row [ spacing 10, width fill, height fill ] [ drawField squareSize perRow model.nkit <| "NKIT", column [ spacing 10, width fill, paddingXY 10 0, centerY ] [ counter, playInterface, viewStep model.step ], drawField squareSize perRow model.kit "KIT" ]
+            [ row [ spacing 10, width fill, height fill ] [ drawField squareSize perRow model.nkit <| "NKIT", column [ spacing 10, width fill, paddingXY 10 0, centerY ] [ counter, playInterface, viewStep model.incrementMode model.step ], drawField squareSize perRow model.kit "KIT" ]
 
             --, row [ padding 30, width fill, height fill ] [ viewStats model ]
             , row [ width fill, height fill, padding 30 ] <|

M src/Views.elm +12 -4

@@ 368,8 368,8 @@ flowTimes =
     List.map flowTime >> printFlowTimes
 
 
-viewStep : StepVariant -> Element Msg
-viewStep s =
+viewStep : AutoPlayMode -> StepVariant -> Element Msg
+viewStep im s =
     let
         headToContent =
             [ 2, 4 ]

          
@@ 383,7 383,7 @@ viewStep s =
         focus n =
             let
                 isFocused =
-                    stepVToInt s == n - 1 || (s == lastStepOfRound && n == 0)
+                    im == StepMode && (stepVToInt s == n - 1 || (s == lastStepOfRound && n == 0))
 
                 baseAttrs =
                     [ width fill, height fill ]

          
@@ 400,6 400,14 @@ viewStep s =
             else
                 unfocusedAttrs
 
+        roundBorder =
+            case im of
+                RoundMode ->
+                    [ Border.width 1, Border.color black, Border.dashed ]
+
+                StepMode ->
+                    [ padding 1 ]
+
         colHead =
             stepRow -1 [ rowHead "next" "meaning", contentCells [ contentCell [] [ text "NKIT" ], contentCell [] [ text "KIT" ] ] ]
 

          
@@ 433,7 441,7 @@ viewStep s =
         step7 =
             stepRow 7 [ rowHead "7" "ensure fifo:", contentCells [ contentCell [ Background.color orange ] [ text "prioritise", text "older on todo (w0)" ], contentCell [] [ text "N/A" ] ] ]
     in
-    column [ {- Element.explain Debug.todo, -} width fill, height fill, Font.size 11 ] [ colHead, step0, step1, step2, step3, step4, step5, step6, step7 ]
+    column [ {- Element.explain Debug.todo, -} width fill, height fill, Font.size 11 ] [ colHead, column ([ width fill, height fill ] ++ roundBorder) [ step0, step1, step2, step3, step4, step5, step6, step7 ] ]
 
 
 doneCount : Field -> Int