From 3e923d4fd2893e16dabc04bbc75c3b20296179d2 Mon Sep 17 00:00:00 2001 From: Michal Minar Date: Mon, 7 Sep 2015 09:54:44 +0200 Subject: Shorten title to 120 chars Signed-off-by: Michal Minar --- src/XMonad/Local/LogHook.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/XMonad/Local') diff --git a/src/XMonad/Local/LogHook.hs b/src/XMonad/Local/LogHook.hs index bec3ae4..5f5109f 100644 --- a/src/XMonad/Local/LogHook.hs +++ b/src/XMonad/Local/LogHook.hs @@ -31,7 +31,7 @@ logHook xmobarHandle = do myPP :: M.Map WorkspaceId Int -> PP myPP wmap = xmobarPP - { ppTitle = xmobarColor "white" "" . xmobarSanitize . shorten 60 + { ppTitle = xmobarColor "white" "" . xmobarSanitize . shorten 120 , ppCurrent = xmobarColor "white" "" . wrap "[" "]" . indexWorkspace False , ppVisible = xmobarColor "yellow" "" . wrap "(" ")" -- cgit