lebd/src/Handler/Home.hs

{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE QuasiQuotes #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE TypeFamilies #-}
module Handler.Home where

import Import

import Yesod.AtomFeed ( atomLink )

import Widget.Card ( hCard )
import Widget.Feed ( hFeed )

getHomeR :: Handler Html
getHomeR = do
    userE@(Entity userId user) <- runDB . getBy404 $ UniqueUser "dani"
    maybeTitle <- asks $ appTitle . appSettings
    entries <- runDB $ selectList [EntryAuthorId ==. userId] [Desc EntryPublished]
    defaultLayout $ do
        case maybeTitle of
          Just title -> do
              setTitle $ toHtml title
              atomLink FeedR title
          Nothing -> return ()
        toWidgetHead
            [hamlet|
                <meta name="author" content=#{userFullName user}>
                <link rel="author" href=@{HomeR}>
            |]
        $(widgetFile "home")