diff options
| -rw-r--r-- | README | 11 | ||||
| -rw-r--r-- | src/Main.hs | 2 | ||||
| -rw-r--r-- | src/Plugins/Mail.hs | 5 |
3 files changed, 12 insertions, 6 deletions
@@ -575,15 +575,20 @@ Monitors have default aliases. "<composer> <title> (<album>) <track>/<plength> <statei> ", "--", "-P", ">>", "-Z", "|", "-S", "><"] 10 -`Mail Args` +`Mail Args Alias` -- Aliases to `Mail` - Args: list of maildirs in form - `[("name1","path1"),("name2","path2")]`. Paths may start with a '~' + `[("name1","path1"),...]`. Paths may start with a '~' to expand to the user's home directory. - This plugin requires inotify support in your linux kernel and the [hinotify] package. To activate, pass `--flags="with_inotify"` during compilation. +- Example: + + Run Mail [("inbox", "~/var/mail/inbox"), + ("lists", "~/var/mail/lists")] + "mail" + `MBox Mboxes Opts Alias` diff --git a/src/Main.hs b/src/Main.hs index 2719a79..aad87e7 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -125,7 +125,7 @@ usage = (usageInfo header options) ++ footer info :: String info = "xmobar " ++ showVersion version ++ "\n (C) 2007 - 2010 Andrea Rossato " - ++ "\n (C) 2010 Jose A Ortega Ruiz\n " + ++ "\n (C) 2010 - 2011 Jose A Ortega Ruiz\n " ++ mail ++ "\n" ++ license mail :: String diff --git a/src/Plugins/Mail.hs b/src/Plugins/Mail.hs index 38cdaae..58431ce 100644 --- a/src/Plugins/Mail.hs +++ b/src/Plugins/Mail.hs @@ -30,11 +30,12 @@ import Data.Set (Set) import qualified Data.Set as S -- | A list of mail box names and paths to maildirs. -data Mail = Mail [(String, FilePath)] +data Mail = Mail [(String, FilePath)] String deriving (Read, Show) instance Exec Mail where - start (Mail ms) cb = do + alias (Mail _ a) = a + start (Mail ms _) cb = do vs <- mapM (const $ newTVarIO S.empty) ms let ts = map fst ms |