00dani/lebd
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Mark up entry permalink pages with OpenGraph garbage too

Browse source
This commit is contained in:
Danielle McLean 2017-10-14 17:09:27 +11:00
parent 47fe00a8b8
commit 2956550a6c
Signed by: 00dani
GPG key ID: 5A5D2D1AFF12EEC5
4 changed files with 14 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/Handler/Entries.hs
View file

@ -1,4 +1,5 @@
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE QuasiQuotes #-}
{-# LANGUAGE OverloadedStrings #-}
module Handler.Entries where
@ -33,8 +34,16 @@ renderEntry :: (Entity Entry) -> Handler Html
renderEntry entry = do
let correctRoute = entryR entry
actualRoute <- getCurrentRoute
author <- getCached . entryAuthorId $ entityVal entry
when (actualRoute /= Just correctRoute) $
redirectWith movedPermanently301 correctRoute
defaultLayout $ do
setTitle . toHtml . entryTitle . entityVal $ entry
toWidgetHead [hamlet|
<meta property="og:title" content=#{entryTitle $ entityVal entry}>
<meta property="og:type" content="article">
<meta property="og:description" content=#{entryContent $ entityVal entry}>
<meta property="article:author" content=@{userProfile $ entityVal author}>
<meta property="article:section" content=#{K.pluralise $ entryKind $ entityVal entry}>
|]
hEntry entry