diff options
| author | Daniel Wagner <daniel@wagner-home.com> | 2009-12-28 18:30:16 +0100 |
|---|---|---|
| committer | Daniel Wagner <daniel@wagner-home.com> | 2009-12-28 18:30:16 +0100 |
| commit | 7ad9bc5ad3ab8cb67d731103c7a8171aaf915da4 (patch) | |
| tree | 1c65d178d8b40ee36a47717d1dd5c07b8369dac7 /XMonad | |
| parent | 26a644259dd944ad68760824cb690d28eaf9a768 (diff) | |
| download | XMonadContrib-7ad9bc5ad3ab8cb67d731103c7a8171aaf915da4.tar.gz XMonadContrib-7ad9bc5ad3ab8cb67d731103c7a8171aaf915da4.tar.xz XMonadContrib-7ad9bc5ad3ab8cb67d731103c7a8171aaf915da4.zip | |
minor style changes
Ignore-this: 605de753d6a5007751de9d7b9f8ab9ca
darcs-hash:20091228173016-76d51-9a0b36d3b23bd2ad41f36e50c029d9d17a506d6e.gz
Diffstat (limited to 'XMonad')
| -rw-r--r-- | XMonad/Hooks/DynamicLog.hs | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/XMonad/Hooks/DynamicLog.hs b/XMonad/Hooks/DynamicLog.hs index c8f4e07..d947bb5 100644 --- a/XMonad/Hooks/DynamicLog.hs +++ b/XMonad/Hooks/DynamicLog.hs @@ -270,7 +270,7 @@ dynamicLogString pp = do wt <- maybe (return "") (fmap show . getName) . S.peek $ winset -- run extra loggers, ignoring any that generate errors. - extras <- sequence $ map (flip catchX (return Nothing)) $ ppExtras pp + extras <- mapM (flip catchX (return Nothing)) $ ppExtras pp return $ encodeOutput . sepBy (ppSep pp) . ppOrder pp $ [ ws @@ -337,7 +337,7 @@ trim = f . f -- | Limit a string to a certain length, adding "..." if truncated. shorten :: Int -> String -> String shorten n xs | length xs < n = xs - | otherwise = (take (n - length end) xs) ++ end + | otherwise = take (n - length end) xs ++ end where end = "..." @@ -476,11 +476,11 @@ dzenPP = defaultPP { ppCurrent = dzenColor "white" "#2b4f98" . pad , ppWsSep = "" , ppSep = "" , ppLayout = dzenColor "black" "#cccccc" . - (\ x -> case x of - "TilePrime Horizontal" -> " TTT " - "TilePrime Vertical" -> " []= " - "Hinted Full" -> " [ ] " - _ -> pad x + (\ x -> pad $ case x of + "TilePrime Horizontal" -> "TTT" + "TilePrime Vertical" -> "[]=" + "Hinted Full" -> "[ ]" + _ -> x ) , ppTitle = ("^bg(#324c80) " ++) . dzenEscape } @@ -515,4 +515,3 @@ byorgeyPP = defaultPP { ppHiddenNoWindows = showNamedWorkspaces where showNamedWorkspaces wsId = if any (`elem` wsId) ['a'..'z'] then pad wsId else "" - |