diff options
| author | Josh Rahm <rahm@google.com> | 2021-11-04 11:36:18 -0600 |
|---|---|---|
| committer | Josh Rahm <rahm@google.com> | 2021-11-04 11:51:48 -0600 |
| commit | 79df73d81c4b7b6b0676360b34f668fb9502f0d4 (patch) | |
| tree | f002abea6290f3a90792f93e5677cd6904aeaeb7 /src/Internal/LayoutDraw.hs | |
| parent | a4252311bd14ab0c053b5a6c5a47c47a886103f7 (diff) | |
| download | rde-79df73d81c4b7b6b0676360b34f668fb9502f0d4.tar.gz rde-79df73d81c4b7b6b0676360b34f668fb9502f0d4.tar.bz2 rde-79df73d81c4b7b6b0676360b34f668fb9502f0d4.zip | |
Break out the XMobar logging subroutines into its own module.
Diffstat (limited to 'src/Internal/LayoutDraw.hs')
| -rw-r--r-- | src/Internal/LayoutDraw.hs | 12 |
1 files changed, 3 insertions, 9 deletions
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)) -> |