From 79df73d81c4b7b6b0676360b34f668fb9502f0d4 Mon Sep 17 00:00:00 2001 From: Josh Rahm Date: Thu, 4 Nov 2021 11:36:18 -0600 Subject: Break out the XMobar logging subroutines into its own module. --- src/Internal/LayoutDraw.hs | 12 +++--------- 1 file changed, 3 insertions(+), 9 deletions(-) (limited to 'src/Internal/LayoutDraw.hs') diff --git a/src/Internal/LayoutDraw.hs b/src/Internal/LayoutDraw.hs index 7f960f2..78ff59d 100644 --- a/src/Internal/LayoutDraw.hs +++ b/src/Internal/LayoutDraw.hs @@ -62,18 +62,12 @@ drawXpmIO l = do let iconPath = iconCacheDir (quickHash descr ++ ".xpm") let colors = [ - "#cc9a9a", - "#cc9999", - "#cc8080", - "#cc6666", - "#cc4c4c", - "#cc3232", - "#cc1818" - ] + "#cc9a9a", "#cc9999", "#cc8080", "#cc6666", + "#cc4c4c", "#cc3232", "#cc1818", "#cc0000" ] (rects', _) <- runLayout - (Workspace "0" l (differentiate [1 .. 6])) + (Workspace "0" l (differentiate [1 .. 7])) (Rectangle 0 0 (w * sf) (h * sf)) let rects = flip map rects' $ \(_, (Rectangle x y w h)) -> -- cgit