浏览代码

Fix button styles

Cadel Watson 1 年之前
父节点
当前提交
92424cd2f0
共有 1 个文件被更改,包括 5 次插入1 次删除
  1. 5 1
      src/Main.elm

+ 5 - 1
src/Main.elm

@@ -306,7 +306,11 @@ viewDraft model =
         viewFocusStatButton s =
             button
                 [ onClick (SetFocusStat s)
-                , classList [ ( "bg-slate-900 rounded text-white p-2 shadow mr-2 mb-2", True ), ( "bg-slate-500 shadow-inset", model.focusStat == s ) ]
+                , classList
+                    [ ( "rounded text-white font-medium p-2 shadow mr-2 mb-2", True )
+                    , ( "bg-slate-300 text-slate-900 shadow-inset", model.focusStat == s )
+                    , ( "bg-slate-900", model.focusStat /= s )
+                    ]
                 ]
                 [ text <|
                     case s of