Forms.hs

module Forms where

import Prelude hiding (writeFile, readFile, head, tail, init, last)
import Yesod hiding (Route(..))
import Foundation
import Data.Monoid (Monoid (mappend, mempty, mconcat), (<>))
import Control.Applicative ((<$>), (<*>), pure)
import Control.Arrow ((&&&))
import Data.Text (Text)
import qualified Data.Text as T

-- Enum系の型のドロップダウンのための関数
enumFieldList = selectFieldList enumPairs
enumPairs = map (T.pack . show &&& id ) $ [minBound..maxBound]


guestForm :: Form Guest
guestForm = guestForm' Nothing

guestForm' :: Maybe Guest -> Form Guest
guestForm' mguest = renderDivs $ Guest
    <$> areq textField "Name"      (guestName   <$> mguest)
    <*> areq intField  "Age"       (guestAge    <$> mguest)
    <*> areq boolField "Attend"    (guestAttend <$> mguest)
    <*> areq enumFieldList "Blood" (guestBlood  <$> mguest)


data ItemForm = ItemForm
    { itemFormName      :: Text
    , itemFormPrice     :: Int
    , itemFormAvailable :: Bool
    , itemFormMemo      :: Maybe Text
    }
  deriving Show

itemForm :: Form ItemForm
itemForm = renderBootstrap $ ItemForm
    <$> areq textField "Name" Nothing
    <*> areq intField "Price" Nothing
    <*> areq boolField "Available" Nothing
    <*> aopt textField "Memo" Nothing