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

Add support for social profiles on the h-card, which become rel="me" links

Browse source
This commit is contained in:
Danielle McLean 2017-10-03 12:53:13 +11:00
parent c5fd0fd326
commit e81a44d122
Signed by: 00dani
GPG key ID: 3844A6973C6058F1
5 changed files with 21 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Handler/Home.hs
View file

@ -10,5 +10,5 @@ import Widget.Hcard (hcard)
getHomeR :: Handler Html
getHomeR = do
(Entity _ user) <- runDB . getBy404 $ UniqueUser "dani"
user <- runDB . getBy404 $ UniqueUser "dani"
defaultLayout $(widgetFile "home")

8
src/Widget/Hcard.hs
View file

@ -6,7 +6,11 @@ module Widget.Hcard (hcard) where
import Import
import qualified Network.Libravatar as L
hcard :: User -> Widget
hcard user = do
hcard :: Entity User -> Widget
hcard (Entity userId user) = do
maybeAvatar <- liftIO $ L.avatarUrl (L.Email $ userEmail user) def { L.optSecure = True, L.optSize = L.Size 512 }
userProfiles <- handlerToWidget . runDB $ do
profiles <- map entityVal <$> selectList [ProfileUserId ==. userId] []
sites <- belongsToJust profileSiteId `mapM` profiles
return . sortBy (comparing $ siteIcon . fst) $ zip sites profiles
$(widgetFile "hcard")