From 60077e86f79c387ee82c1863a5eed403df816012 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Sat, 11 Dec 2010 22:55:29 +0100
Subject: MBox refactorings

---
 Plugins/MBox.hs | 45 ++++++++++++++++++++++-----------------------
 1 file changed, 22 insertions(+), 23 deletions(-)

diff --git a/Plugins/MBox.hs b/Plugins/MBox.hs
index 6fd63c8..71e6bb8 100644
--- a/Plugins/MBox.hs
+++ b/Plugins/MBox.hs
@@ -18,15 +18,14 @@ import Prelude hiding (catch)
 import Plugins
 import Plugins.Utils (changeLoop, expandHome)
 
-import Control.Monad
+import Control.Monad (when)
 import Control.Concurrent.STM
 import Control.Exception (SomeException, handle, evaluate)
 
-import System.Directory
-import System.FilePath
 import System.Console.GetOpt
-import System.INotify
-
+import System.Directory (doesDirectoryExist, doesFileExist)
+import System.FilePath ((</>))
+import System.INotify (Event(..), EventVariety(..), initINotify, addWatch)
 
 import qualified Data.ByteString.Lazy.Char8 as B
 
@@ -65,35 +64,35 @@ data MBox = MBox [(String, FilePath, String)] [String] String
 
 instance Exec MBox where
   alias (MBox _ _ a) = a
-  start (MBox ms args _) cb = do
+  start (MBox boxes args _) cb = do
 
-    opts <- parseOptions args -- $ words args
+    opts <- parseOptions args
     let dir = oDir opts
         allb = oAll opts
         pref = oPrefix opts
         suff = oSuffix opts
         uniq = oUniq opts
+        names = map (\(t, _, _) -> t) boxes
+        colors = map (\(_, _, c) -> c) boxes
 
     dirExists <- doesDirectoryExist dir
-    let ts = map (\(t, _, _) -> t) ms
-        sec (_, f, _) = f
-        md = if dirExists then (dir </>) . sec else sec
-        fs = map md ms
-        cs = map (\(_, _, c) -> c) ms
-        ev = [CloseWrite]
-
-    xfs <- mapM expandHome fs
-    vs <- replicateM (length xfs) (newTVarIO ("", 0 :: Int))
-    i <- initINotify
 
-    forM_ (zip xfs vs) $ \(f, v) -> do
-      exists <- doesFileExist f
-      n <- if exists then countMails f else return (-1)
-      atomically $ writeTVar v (f, n)
-      when exists $ addWatch i ev f (handleNotification v) >> return ()
+    let extractPath (_, f, _) = if dirExists then dir </> f else f
+        events = [CloseWrite]
+
+    i <- initINotify
+    vs <- mapM (\m -> do
+                   f <- expandHome $ extractPath m
+                   exists <- doesFileExist f
+                   n <- if exists then countMails f else return (-1)
+                   v <- newTVarIO (f, n)
+                   when exists $
+                     addWatch i events f (handleNotification v) >> return ()
+                   return v)
+                boxes
 
     changeLoop (mapM (fmap snd . readTVar) vs) $ \ns ->
-      let s = unwords [ showC uniq m n c | (m, n, c) <- zip3 ts ns cs
+      let s = unwords [ showC uniq m n c | (m, n, c) <- zip3 names ns colors
                                          , allb || n > 0 ]
       in cb (if null s then "" else pref ++ s ++ suff)
 
-- 
cgit v1.2.3