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 | |
| 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>
| -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 "(" ")" |