diff options
author | Michal Minar <miminar@redhat.com> | 2015-09-07 09:54:44 +0200 |
---|---|---|
committer | Michal Minar <miminar@redhat.com> | 2015-09-07 09:54:44 +0200 |
commit | 3e923d4fd2893e16dabc04bbc75c3b20296179d2 (patch) | |
tree | e68bb1d39903178bca64636a7624df36e74a9349 /src/XMonad/Local | |
parent | d8175468d4ec685a999d59ccab3df1130ecabc40 (diff) | |
download | xminad-3e923d4fd2893e16dabc04bbc75c3b20296179d2.tar.gz xminad-3e923d4fd2893e16dabc04bbc75c3b20296179d2.tar.xz xminad-3e923d4fd2893e16dabc04bbc75c3b20296179d2.zip |
Shorten title to 120 chars
Signed-off-by: Michal Minar <miminar@redhat.com>
Diffstat (limited to 'src/XMonad/Local')
-rw-r--r-- | src/XMonad/Local/LogHook.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 "(" ")" |