Allow a submit button to be disabled

digitallyinduced · Dec 23, 2023 · 935c32e · 935c32e
1 parent ae76491
commit 935c32e
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 2 deletions.
diff --git a/IHP/View/CSSFramework.hs b/IHP/View/CSSFramework.hs
@@ -272,9 +272,9 @@ instance Default CSSFramework where
 
             styledValidationResultClass = ""
 
-            styledSubmitButton cssFramework SubmitButton { label, buttonClass } =
+            styledSubmitButton cssFramework SubmitButton { label, buttonClass, disabled } =
                 let className :: Text = cssFramework.styledSubmitButtonClass
-                in [hsx|<button class={classes [(className, True), (buttonClass, not (null buttonClass))]} type="submit">{label}</button>|]
+                in [hsx|<button class={classes [(className, True), (buttonClass, not (null buttonClass))]} disabled={disabled} type="submit">{label}</button>|]
 
             styledInputClass _ _ = ""
             styledInputInvalidClass _ _ = "invalid"

diff --git a/IHP/View/Form.hs b/IHP/View/Form.hs
@@ -302,6 +302,7 @@ submitButton =
     { label = cs $ (if isNew then "Create " else "Save ") <> buttonText
     , buttonClass = mempty
     , cssFramework = ?formContext.cssFramework
+    , disabled = False
     }
 {-# INLINE submitButton #-}
 

diff --git a/IHP/View/Types.hs b/IHP/View/Types.hs
@@ -67,6 +67,7 @@ data SubmitButton = SubmitButton
     { label :: Blaze.Html
     , buttonClass :: Text
     , cssFramework :: CSSFramework
+    , disabled :: Bool
     }
 
 data FormContext model = FormContext