From 32dc8cc98ef0e49e042d7d8cf000dc6360b106d6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ra=C3=BAl=20Benencia?= <rul@kalgan.cc>
Date: Tue, 27 Aug 2013 20:41:57 -0300
Subject: Unify selection list code

---
 Screen.hs | 62 ++++++++++++++++++++------------------------------------------
 1 file changed, 20 insertions(+), 42 deletions(-)

(limited to 'Screen.hs')

diff --git a/Screen.hs b/Screen.hs
index 189840e..18a905b 100644
--- a/Screen.hs
+++ b/Screen.hs
@@ -35,7 +35,8 @@ entryPoint = do
   maildirs <- liftIO $ do
     mds <- getMaildirsRecursively $ basePath st
     (filterMaildirsHook cfg) mds
-  let mdState = (maildirState st) { detectedMDs = maildirs  }
+  formattedMDs <- EH.formatMaildirModeRows st maildirs
+  let mdState = (maildirState st) { detectedMDs = formattedMDs }
   liftIO $ runCurses $ runStateT (runReaderT startCurses cfg) (st { maildirState = mdState })
   return ()
 
@@ -78,27 +79,29 @@ performUpdate = do
 
 {- Pattern match on the received mode and draw it in the screen. -}
 drawMode :: Mode -> LazymailUpdate ()
-drawMode MaildirMode = get >>= \st -> drawMaildirHelper $ detectedMDs . maildirState $ st
-drawMode IndexMode   = get >>= \st -> drawIndexHelper $ scrollBufferIn . indexState $ st
+drawMode MaildirMode = get >>= \st -> drawSelectionList $ detectedMDs . maildirState $ st
+drawMode IndexMode   = get >>= \st -> drawSelectionList $ scrollBufferIn . indexState $ st
 drawMode EmailMode   = drawEmailHelper
 
-{- Helper function of drawMode -}
-drawMaildirHelper :: [FilePath] -> LazymailUpdate ()
-drawMaildirHelper [] = resetCurrentRow
-drawMaildirHelper (md:mds) = do
+drawSelectionList ((path, str):mds) = do
   st <- get
-  cfg <- ask
-  let ppMd = (maildirDrawHook cfg) (basePath st) md
-  liftUpdate $  moveCursor (curRowAsInteger st) (colPadAsInteger st)
-  if (selectedRow st == currentRow st)
-    then do
-      liftUpdate $ do
+  (=<<) put $ liftUpdate $ do
+    moveCursor (curRowAsInteger st) (colPadAsInteger st)
+    if (selectedRow st == currentRow st)
+      then do
         setColor $ selectionColorID . colorStyle $ st
-        drawString $ normalizeLen (screenColumns st) ppMd
+        drawString $ normalizeLen (screenColumns st) str
         setColor $ baseColorID . colorStyle $ st
-      let maildirState' = (maildirState st) { selectedMD = md }
-      put $ st { maildirState = maildirState' }
-    else liftUpdate $ drawString $ normalizeLen (screenColumns st) ppMd
+        case (mode st) of
+          MaildirMode -> do
+            let mst = (maildirState st) { selectedMD = path }
+            return $ st { maildirState = mst }
+          IndexMode   -> do
+            let ist = (indexState st) { selectedEmailPath = path }
+            return $ st { indexState = ist }
+      else do
+        drawString $ normalizeLen (screenColumns st) str
+        return st
 
   st <- get
   let limit = if statusBar st then (screenRows st) - 1 else screenRows st
@@ -120,31 +123,6 @@ clearMain rows columns = do
          then drawEmptyLine $ currentRow + 1
          else return ()
 
--- | Helper function of drawMode
-drawIndexHelper [] = resetCurrentRow
-drawIndexHelper ((path, str):ms) = do
-  st <- get
-  (=<<) put $ liftUpdate $ do
-    moveCursor (curRowAsInteger st) (colPadAsInteger st)
-    if (selectedRow st == currentRow st)
-      then do
-        setColor $ selectionColorID . colorStyle $ st
-        drawString str
-        setColor $ baseColorID . colorStyle $ st
-        let indexState' = (indexState st) { selectedEmailPath = path }
-        return $ st { indexState = indexState' }
-      else do
-        drawString str
-        return st
-
-  st <- get
-  let limit = if statusBar st then (screenRows st) - 1 else screenRows st
-  if currentRow st < limit
-     then do
-       incrementCurrentRow
-       drawIndexHelper ms
-     else resetCurrentRow
-
 -- | Helper function of drawMode
 --   TODO: Make helpers functions to draw header and body in a separate way.
 drawEmailHelper = do
-- 
cgit v1.2.3