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

module Handler.Utils.Bootstrap3 where

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

bsSubmit :: String -> BootstrapSubmit Text
bsSubmit msg = 
  BootstrapSubmit (fromString msg) " btn-default btn-primary " []
  
bsHorizontalDefault :: BootstrapFormLayout
bsHorizontalDefault = 
  BootstrapHorizontalForm 
    { bflLabelOffset = ColSm 1
    , bflLabelSize   = ColSm 4
    , bflInputOffset = ColSm 1
    , bflInputSize   = ColSm 6
    }