diff --git a/src/Handler/Home.hs b/src/Handler/Home.hs
index bdbe454..6700ecb 100644
--- a/src/Handler/Home.hs
+++ b/src/Handler/Home.hs
@@ -11,4 +11,9 @@ import Widget.Hcard (hcard)
 getHomeR :: Handler Html
 getHomeR = do
     user <- runDB . getBy404 $ UniqueUsername "dani"
-    defaultLayout $(widgetFile "home")
+    maybeTitle <- asks $ appTitle . appSettings
+    defaultLayout $ do
+        case maybeTitle of
+          Just title -> setTitle $ toHtml title
+          Nothing -> return ()
+        $(widgetFile "home")