diff --git a/src/xmonad.hs b/src/xmonad.hs
index 9d6fcd1..c65674d 100644
--- a/src/xmonad.hs
+++ b/src/xmonad.hs
@@ -218,12 +218,13 @@ myXmobarPP :: PP
 myXmobarPP = def
     { ppSep             = grey0         " "
     , ppCurrent         = blue   . wrap " " ""
+    , ppTitle           = grey0  . wrap " " "" . shorten 50
     , ppVisible         = purple . wrap " " ""
     , ppHidden          = grey0  . wrap " " ""
     , ppHiddenNoWindows = grey0  . wrap " " ""
     , ppUrgent          = red    . wrap " " ""
     , ppLayout          = aqua   . wrap (grey0 " <fn=1>[</fn> ") (grey0 " <fn=1>]</fn> ")
-    , ppOrder           = \[ws, l, _, mode] -> [ws, l, mode]
+    , ppOrder           = \case { [ws, l, title, mode] -> [ws, l, mode, title]; xs -> xs }
     , ppExtras          = [logMode]
     }