Support UI.textButton

Create a text-only button.
2020-07-31 19:32:14 +01:00 · 2020-07-31 19:32:14 +01:00 · 4d30a80487
commit 4d30a80487
parent 421c71c892
1 changed files with 20 additions and 0 deletions
--- a/client/src/UI.elm
+++ b/client/src/UI.elm
@ -124,6 +124,26 @@ simpleButton { label, handleClick } =
        }


+textButton :
+    { label : String
+    , handleClick : msg
+    }
+    -> Html msg
+textButton { label, handleClick } =
+    button
+        [ [ "text-blue-600"
+          , "hover:text-blue-500"
+          , "font-bold"
+          , "hover:underline"
+          , "focus:outline-none"
+          ]
+            |> Tailwind.use
+            |> class
+        , onClick handleClick
+        ]
+        [ text label ]
+
+
 textField :
    { pholder : String
    , inputId : String