summaryrefslogtreecommitdiffhomepage
path: root/src/Plugins
diff options
context:
space:
mode:
authorConner McDaniel <connermcd@gmail.com>2014-06-09 01:00:20 -0500
committerConner McDaniel <connermcd@gmail.com>2014-06-09 01:00:20 -0500
commitcfb6773cd3761ae7df279bc2387edb6547aa15b9 (patch)
tree791e7e19bfa183b910cca68ecbec044b51f5a550 /src/Plugins
parent6dd945510c09ff65c0c9976e123279d264aa4d14 (diff)
downloadxmobar-cfb6773cd3761ae7df279bc2387edb6547aa15b9.tar.gz
xmobar-cfb6773cd3761ae7df279bc2387edb6547aa15b9.tar.bz2
Allow user to define punctuation.
I'd like to be able to choose which punctuation to use. All my other xmobar plugins use a colon and a space (e.g. `B: 100%` for battery), but this one leaves the space out (e.g. `E:1`) which is mildly annoying. It would be nice to let the user choose if he/she would like to use something other than a colon or to add extra whitespace.
Diffstat (limited to 'src/Plugins')
-rw-r--r--src/Plugins/Mail.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Plugins/Mail.hs b/src/Plugins/Mail.hs
index d4abb0b..23a5654 100644
--- a/src/Plugins/Mail.hs
+++ b/src/Plugins/Mail.hs
@@ -62,9 +62,9 @@ instance Exec Mail where
atomically $ modifyTVar v (S.union s)
changeLoop (mapM (fmap S.size . readTVar) vs) $ \ns ->
- cb . unwords $ [m ++ ":" ++ show n
- | (m, n) <- zip ts ns
- , n /= 0 ]
+ cb . unwords $ [m ++ show n
+ | (m, n) <- zip ts ns
+ , n /= 0 ]
handle :: TVar (Set String) -> Event -> IO ()
handle v e = atomically $ modifyTVar v $ case e of