Adjust home layout: push my h-card over to the side and display recent entries in the main content area

src/Handler/Home.hs

@@ -7,19 +7,20 @@ module Handler.Home where
 
 import Import
 import Widget.Card ( hCard )
+import Widget.Feed ( hFeed )
 
 getHomeR :: Handler Html
 getHomeR = do
-    user <- runDB . getBy404 $ UniqueUser "dani"
-    let name = userFullName . entityVal $ user
+    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 -> setTitle $ toHtml title
           Nothing -> return ()
         toWidgetHead
             [hamlet|
-                <meta name="author" content=#{name}>
+                <meta name="author" content=#{userFullName user}>
                 <link rel="author" href=@{HomeR}>
             |]
         $(widgetFile "home")

templates/home.cassius

@@ -0,0 +1,8 @@
+body > main
+  display: flex
+  flex-direction: row-reverse
+  margin: 2em
+  > .entries
+    flex: 1
+  > .author
+    max-width: 30%

templates/home.hamlet

@@ -1 +1,4 @@
-^{hCard user}
+<div .author>
+  ^{hCard userE}
+<div .entries>
+  ^{hFeed entries}

templates/mf2/h-card.cassius

@@ -1,7 +1,4 @@
 .card.h-card
-  margin: 2em auto
-  width: 22rem
-
   ul.profiles
     list-style: none
     padding-left: 0