#{pageTitle pc} ^{pageHead pc} <body> <div .hero-unit> <h1>#{pageTitle pc} $maybe msg <- mmsg #{msg} ^{pageBody pc} |] alertMessage :: (RenderMessage y msg) => msg -> GHandler sub y () alertMessage message = do mr <- getMessageRender setMessage [shamlet| <p .alert .alert-success> <button type=button class=close data-dismiss=alert>× #{mr message} |] writeTokenToSession :: Text -> Credential -> GHandler sub a () writeTokenToSession name credential = do setSessionBS (name `mappend` "Token") (token credential) setSessionBS (name `mappend` "Secret") (tokenSecret credential) getTokenFromSession :: Text -> GHandler sub a (Maybe Credential) getTokenFromSession name = do maybeToken <- lookupSessionBS (name `mappend` "Token") maybeSecret <- lookupSessionBS (name `mappend` "Secret") if (isJust maybeToken && isJust maybeSecret) then return $ Just (newCredential (fromJust maybeToken) (fromJust maybeSecret)) else return Nothing deleteTokenFromSession :: Text -> GHandler sub a () deleteTokenFromSession name = do deleteSession (name `mappend` "Token") deleteSession (name `mappend` "Secret")

{-# LANGUAGE QuasiQuotes #-} {-# LANGUAGE OverloadedStrings #-} module Helper.YesodHelper( bootstrapCDN , bootstrapLayout , alertMessage , writeTokenToSession , getTokenFromSession , deleteTokenFromSession ) where import Yesod.Core (Yesod, widgetToPageContent) import Yesod.Widget (GWidget, PageContent(..)) import Yesod.Handler (GHandler, hamletToRepHtml, getMessage, setMessage, getMessageRender, setSessionBS, deleteSession, lookupSessionBS) import Yesod.Content (RepHtml) import Text.Hamlet (hamlet) import Data.Text (Text) import Text.Shakespeare.I18N (RenderMessage(..)) import Web.XING import Text.Hamlet (shamlet) import Data.Maybe (isJust, fromJust) import Data.Monoid (mappend) bootstrapCDN :: Text bootstrapCDN = "//netdna.bootstrapcdn.com/twitter-bootstrap/2.3.0" bootstrapLayout :: (Yesod a) => GWidget sub a () -> GHandler sub a RepHtml bootstrapLayout widget = do pc <- widgetToPageContent widget mmsg <- getMessage hamletToRepHtml [hamlet| $doctype 5 #{pageTitle pc} ^{pageHead pc} <body> <div .hero-unit> <h1>#{pageTitle pc} $maybe msg <- mmsg #{msg} ^{pageBody pc} |] alertMessage :: (RenderMessage y msg) => msg -> GHandler sub y () alertMessage message = do mr <- getMessageRender setMessage [shamlet| <p .alert .alert-success> <button type=button class=close data-dismiss=alert>× #{mr message} |] writeTokenToSession :: Text -> Credential -> GHandler sub a () writeTokenToSession name credential = do setSessionBS (name `mappend` "Token") (token credential) setSessionBS (name `mappend` "Secret") (tokenSecret credential) getTokenFromSession :: Text -> GHandler sub a (Maybe Credential) getTokenFromSession name = do maybeToken <- lookupSessionBS (name `mappend` "Token") maybeSecret <- lookupSessionBS (name `mappend` "Secret") if (isJust maybeToken && isJust maybeSecret) then return $ Just (newCredential (fromJust maybeToken) (fromJust maybeSecret)) else return Nothing deleteTokenFromSession :: Text -> GHandler sub a () deleteTokenFromSession name = do deleteSession (name `mappend` "Token") deleteSession (name `mappend` "Secret")