matebeamter/src/View/Buy.hs

{-# LANGUAGE PackageImports #-}
{-# LANGUAGE OverloadedStrings #-}
module View.Buy where

import Servant.Links

import qualified Text.Blaze.Html5 as H
import qualified Text.Blaze.Html5.Attributes as HA

import qualified Data.Text as T

import Data.String (fromString)

import Data.Text.I18n

import Data.Maybe (isJust, fromJust)

-- imports from mateamt

import qualified "mateamt" Types as MT

-- internal imports

import Util
import Types
import View.Scaffold
import API

buyConfirmPage
  :: L10n
  -> Locale
  -> Int
  -> [(MT.PurchaseDetail, MT.ProductShortOverview)]
  -> Int
  -> H.Html
buyConfirmPage l10n locale uid ziptups total = scaffold l10n locale (initPage $
  translate "Matebeamter" <>
  " - " <>
  translate "Home"
  ) $ do
    H.p $ H.toHtml $ translate "You are about to buy the following items:"
    H.form
      H.! HA.method "post"
      H.! HA.action
        ("/" <> fromString (show $ linkURI $ purchaseCompleteLink uid))
      H.! HA.enctype "application/x-www-form-urlencoded"
      $ do
        mapM_
          (\( MT.PurchaseDetail pdid amount
            , MT.ProductShortOverview pid ident price _ _ mava) ->
              H.div H.! HA.class_ "form-group required" $ do
                H.input
                  H.! HA.id ("product-select-" <> fromString (show pid))
                  H.! HA.class_ "form-control"
                  H.! HA.name ("productSelect-" <> fromString (show pid))
                  H.! HA.type_ "hidden"
                  H.! HA.value "true"
                H.label
                  H.! HA.for ("product-amount-" <> fromString (show pid))
                  $ do
                    H.img
                      H.!?
                        ( isJust mava
                        , HA.src
                          (fromString $ show $ fromJust mava) -- TODO: ask for avatar
                        )
                    H.toHtml ident
                H.input
                  H.! HA.id ("product-amount-" <> (fromString (show pid)))
                  H.! HA.class_ "form-control"
                  H.! HA.name ("productAmount-" <> fromString (show pid))
                  H.! HA.type_ "number"
                  H.! HA.min "0"
                  H.! HA.step "1"
                  H.! HA.value (fromString $ show amount)
                  -- H.! HA.disabled ""
                H.label
                  H.! HA.for ("product-total-" <> fromString (show pid))
                  $ H.toHtml $
                    " @ " <> formatMoney price <> "€" -- TODO: ask for currency symbol
                H.input
                  H.! HA.id ("product-total-" <> (fromString (show pid)))
                  H.! HA.class_ "form-control"
                  H.! HA.name ("productTotal-" <> fromString (show pid))
                  H.! HA.type_ "text"
                  H.! HA.value
                    (fromString $ T.unpack $ formatMoney $ amount * price)
                  H.! HA.disabled ""
                H.toHtml ("€" :: T.Text) -- TODO: ask for currency symbol
            )
          ziptups
        H.div H.! HA.class_ "form-group required" $ do
          H.label
            H.! HA.for "total-price"
            $ H.toHtml ("Total price: " :: T.Text)
          H.input
            H.! HA.id "total-price"
            H.! HA.class_ "form-control"
            H.! HA.name "totalPrice"
            H.! HA.type_ "text"
            H.! HA.value (fromString $ T.unpack $ formatMoney total)
            H.! HA.disabled ""
          H.toHtml ("€" :: T.Text) -- TODO: ask for currency symbol
        H.div H.! HA.class_ "form-group optional" $
          H.button
            H.! HA.class_ "btn btn-default"
            H.! HA.type_ "submit"
            $ H.toHtml $ translate "Buy"
  where
    translate = localize l10n locale . gettext

buyProductsForm
  :: L10n
  -> Locale
  -> [MT.ProductShortOverview]
  -> H.Html
buyProductsForm l10n locale prods = do
  mapM_ (\(MT.ProductShortOverview pid ident price amount ml maid) ->
    H.div $ do
      H.div
        H.! HA.class_ "form-group optional"
        H.!?
          ( isJust maid
          , productBgStyle (fromString $ show $ fromJust maid)
          )
        $ do
          H.label
            H.! HA.for ("product-select-" <> fromString (show pid)) $
              H.toHtml ident
          H.input
            H.! HA.id ("product-select-" <> fromString (show pid))
            H.! HA.class_ "form-control product-select"
            H.! HA.name ("productSelect-" <> fromString (show pid))
            H.! HA.type_ "checkbox"
            H.! HA.value "true"
      H.div
        H.! HA.class_ "form-group optional"
        $ do
          H.label
            H.! HA.for ("product-amount-" <> fromString (show pid)) $
              H.toHtml (translate "Amount")
          H.input
            H.! HA.id ("product-amount-" <> fromString (show pid))
            H.! HA.class_ "form-control product-amount"
            H.! HA.name ("productAmount-" <> fromString (show pid))
            H.! HA.type_ "number"
            H.! HA.min "0"
            H.! HA.step "1"
            H.! HA.value "1"
    )
    prods
  H.div H.! HA.class_ "form-group optional" $
    H.button
      H.! HA.class_ "btn btn-default"
      H.! HA.type_ "submit"
      $ H.toHtml $ translate "Proceed"
  where
    translate = localize l10n locale . gettext