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

Make the user who's displayed on the homepage a configurable setting, so it's easier to use lebd if your name isn't Dani

Browse source
This commit is contained in:
Danielle McLean 2017-10-11 12:55:24 +11:00
parent 66cb093387
commit f3b12ded69
Signed by: 00dani
GPG key ID: 5A5D2D1AFF12EEC5
3 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/Handler/Home.hs
View file

@ -14,8 +14,9 @@ import Widget.Feed ( hFeed )
getHomeR :: Handler Html
getHomeR = do
userE@(Entity userId user) <- runDB . getBy404 $ UniqueUser "dani"
title <- asks $ siteTitle . appSettings
settings <- asks appSettings
userE@(Entity userId user) <- runDB . getBy404 . UniqueUser . siteUsername $ settings
let title = siteTitle settings
entries <- runDB $ selectList [EntryAuthorId ==. userId] [Desc EntryPublished]
defaultLayout $ do
atomLink FeedR title