From 13ce94032bf0e7891bd1c2f4c94a857226ec66ef Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ra=C3=BAl=20Benencia?= <rul@kalgan.cc>
Date: Wed, 11 Sep 2013 11:34:24 -0300
Subject: Fix color bug

---
 src/Lazymail/Config.hs | 4 +---
 src/Lazymail/Screen.hs | 5 +++--
 2 files changed, 4 insertions(+), 5 deletions(-)

(limited to 'src')

diff --git a/src/Lazymail/Config.hs b/src/Lazymail/Config.hs
index 5769d8e..9dc5393 100644
--- a/src/Lazymail/Config.hs
+++ b/src/Lazymail/Config.hs
@@ -40,9 +40,7 @@ defaultConfig = LazymailConfig {
 -- preferences. In a possible future maybe I'll work in a not-so-crappy
 -- config system.
 --
---customConfig = defaultConfig { initialPath = "/home/rul/mail/"}
-
-customConfig = defaultConfig { initialPath = "/home/rul/mail/"
+customConfig = defaultConfig { initialPath = "/home/rul/Mail"
                              , filterMaildirsHook = filterSymlinks }
 
 filterSymlinks :: [FilePath] -> IO [FilePath]
diff --git a/src/Lazymail/Screen.hs b/src/Lazymail/Screen.hs
index a25c880..3d82768 100644
--- a/src/Lazymail/Screen.hs
+++ b/src/Lazymail/Screen.hs
@@ -87,7 +87,7 @@ screenLoop = do
 performUpdate :: LazymailUpdate LazymailState
 performUpdate = do
   st <- get
-  liftUpdate $ clearMain (scrRowsAsInteger st) (screenColumns st)
+  liftUpdate $ clearMain (baseColorID . colorStyle $ st) (scrRowsAsInteger st) (screenColumns st)
   drawMode (mode st)
   drawStatus
   get
@@ -141,7 +141,8 @@ drawSimpleRow st path str | (mode st) == MaildirMode = drawString $ normalizeLen
     drawCroppedString st str
 
 {- Empty the whole window. Useful when changing modes. -}
-clearMain rows columns = do
+clearMain baseCol rows columns = do
+  setColor baseCol
   drawEmptyLine 0
   moveCursor 0 0
   where
-- 
cgit v1.2.3