{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE QuasiQuotes #-}
{-# LANGUAGE TypeFamilies #-}

-- | layout, deal with styling
module SnelstartImport.Web.Layout
  ( layout
  )
where

import SnelstartImport.Web.Routes
import Text.Blaze.Html(Html)
import Yesod.Core.Widget
import Yesod.Core(defaultLayout, lucius)

layout :: Widget -> Handler Html
layout :: Widget -> Handler Html
layout Widget
widget = do
  Widget -> Handler Html
forall site.
Yesod site =>
WidgetFor site () -> HandlerFor site Html
defaultLayout (Widget -> Handler Html) -> Widget -> Handler Html
forall a b. (a -> b) -> a -> b
$ do
    (RY App -> Css) -> Widget
forall site a (m :: * -> *).
(ToWidget site a, MonadWidget m, HandlerSite m ~ site) =>
a -> m ()
forall (m :: * -> *).
(MonadWidget m, HandlerSite m ~ App) =>
(RY App -> Css) -> m ()
toWidget RY App -> Css
[lucius|
      html {
        text-align: center;
      }
      body {
        text-align: left;
        margin: 0 auto;
        width: 50%;
        max-width: 25em;
        padding: 1em;
      }
      |]
    Widget
widget