{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE TypeFamilies #-}

module Handler.Utils.Form where

import Import
import Data.String (IsString(..))
-- import Yesod.Core
-- import qualified Data.Text as T
-- import Yesod.Form.Types
-- import Yesod.Form.Functions

formBtnSave  :: (Text,Text,Text)
formBtnSave   = ("save"  ,"Speichern"  ,"btn-primary")

formBtnAbort :: (Text,Text,Text)
formBtnAbort  = ("abort" ,"Abbrechen"  ,"btn-default")

formBtnDelete ::(Text,Text,Text)
formBtnDelete = ("delete","Löschen"    ,"btn-warning")

formActionSave :: Maybe Text
formActionSave   = Just $ fst3 formBtnSave

formActionAbort :: Maybe Text
formActionAbort  = Just $ fst3 formBtnAbort

formActionDelete :: Maybe Text
formActionDelete = Just $ fst3 formBtnDelete

defaultFormActions :: [(Text,Text,Text)]
defaultFormActions =  [ formBtnDelete
                      , formBtnAbort
                      , formBtnSave
                      ]