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

Support for Open Graph on the homepage - again it's gross but consuming sites understand it

Browse source
This commit is contained in:
Danielle McLean 2017-10-14 16:51:01 +11:00
parent 44288b419c
commit 47fe00a8b8
Signed by: 00dani
GPG key ID: 5A5D2D1AFF12EEC5
5 changed files with 23 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/Handler/Home.hs
View file

@ -15,14 +15,9 @@ import Widget.Feed ( hFeed )
getHomeR :: Handler Html
getHomeR = do
settings <- asks appSettings
userE@(Entity userId user) <- runDB . getBy404 . UniqueUser . siteUsername $ settings
user <- runDB . getBy404 . UniqueUser . siteUsername $ settings
let title = siteTitle settings
entries <- runDB $ selectList [EntryAuthorId ==. userId] [Desc EntryPublished]
entries <- runDB $ selectList [EntryAuthorId ==. entityKey user] [Desc EntryPublished]
defaultLayout $ do
atomLink FeedR title
toWidgetHead
[hamlet|
<meta name="author" content=#{userFullName user}>
<link rel="author" href=@{HomeR}>
|]
$(widgetFile "home")