From 7ad9bc5ad3ab8cb67d731103c7a8171aaf915da4 Mon Sep 17 00:00:00 2001
From: Daniel Wagner <daniel@wagner-home.com>
Date: Mon, 28 Dec 2009 18:30:16 +0100
Subject: minor style changes

Ignore-this: 605de753d6a5007751de9d7b9f8ab9ca

darcs-hash:20091228173016-76d51-9a0b36d3b23bd2ad41f36e50c029d9d17a506d6e.gz
---
 XMonad/Hooks/DynamicLog.hs | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

(limited to 'XMonad')

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 ""
-
-- 
cgit v1.2.3