diff options
| author | Raúl Benencia <rul@kalgan.cc> | 2013-09-11 11:34:24 -0300 |
|---|---|---|
| committer | Raúl Benencia <rul@kalgan.cc> | 2013-09-11 11:34:24 -0300 |
| commit | 13ce94032bf0e7891bd1c2f4c94a857226ec66ef (patch) | |
| tree | 8e964f7b44cb59d5b954a7088d5087f505be4f3c | |
| parent | 8cd86662618b1d6ea2e4dee7d4b09eaf422e9cd8 (diff) | |
Fix color bug
| -rw-r--r-- | src/Lazymail/Config.hs | 4 | ||||
| -rw-r--r-- | src/Lazymail/Screen.hs | 5 |
2 files changed, 4 insertions, 5 deletions
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 |