From 13ce94032bf0e7891bd1c2f4c94a857226ec66ef Mon Sep 17 00:00:00 2001
From: Raúl Benencia <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/Lazymail')
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