Support UI.textButton

Create a text-only button.

1 files changed, 20 insertions, 0 deletions

diff --git a/client/src/UI.elm b/client/src/UI.elm
index 565771e2120d..28b73a8ae9fe 100644
--- 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