diff options
| author | Conner McDaniel <connermcd@gmail.com> | 2014-06-09 01:00:20 -0500 |
|---|---|---|
| committer | Conner McDaniel <connermcd@gmail.com> | 2014-06-09 01:00:20 -0500 |
| commit | cfb6773cd3761ae7df279bc2387edb6547aa15b9 (patch) | |
| tree | 791e7e19bfa183b910cca68ecbec044b51f5a550 /src | |
| parent | 6dd945510c09ff65c0c9976e123279d264aa4d14 (diff) | |
| download | xmobar-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')
| -rw-r--r-- | src/Plugins/Mail.hs | 6 |
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 |