Merge branch 'release/24.02.1'

CHANGELOG.md

@@ -3,6 +3,16 @@ All notable changes to this project will be documented in this file.
 
 The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/).
 
+## [24.02.1] - 2024-02-29
+
+### Added
+
+- Disabled style for switch knob
+
+### Changed
+
+- Keep custom color on tool icon on hovering
+
 ## [24.02.0] - 2024-02-29
 
 ### Added

src/Switch.elm

@@ -18,6 +18,7 @@ type alias Config msg units =
     , offStyle : List Style
     , onStyle : List Style
     , knobStyle : List Style
+    , disabledStyle : List Style
     , attributes : List (Attribute msg)
     }
 
@@ -37,6 +38,9 @@ switch width height unit =
             [ backgroundColor <| rgb 255 255 255
             , property "box-shadow" "0 0 0.25em rgba(0,0,0,0.3)"
             ]
+        , disabledStyle =
+            [ backgroundColor <| rgb 120 120 120
+            ]
         , onStyle = []
         , width = width
         , height = height
@@ -123,5 +127,6 @@ toggleCss config =
                             [ left <| calc (pct 100) minus (config.unit config.height)
                             ]
                        ]
+           , disabled <| [ after <| config.disabledStyle ]
            , checked config.onStyle
            ]

src/Version.elm

@@ -3,4 +3,4 @@ module Version exposing (version)
 
 version : String
 version =
-    "24.01.0"
+    "24.02.1"

src/View/Graph/Tool.elm

@@ -22,7 +22,16 @@ tool : Config -> Tool msg -> Html msg
 tool vc t =
     button
         [ Css.tool vc t.status
-            ++ (t.color |> Maybe.map (toCssColor >> color >> List.singleton) |> Maybe.withDefault [])
+            ++ (t.color
+                    |> Maybe.map toCssColor
+                    |> Maybe.map
+                        (\c ->
+                            [ color c
+                            , Css.hover [ color c ]
+                            ]
+                        )
+                    |> Maybe.withDefault []
+               )
             |> css
         , Locale.string vc.locale t.title |> title
         , onClick (t.msg t.title)