diff options
| author | Josh Rahm <rahm@google.com> | 2021-11-04 11:36:18 -0600 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2022-10-09 12:19:45 -0600 |
| commit | abf2d43e9d625e0587e78e69e4d17a3ba480c9bc (patch) | |
| tree | f002abea6290f3a90792f93e5677cd6904aeaeb7 /src/Internal/LayoutDraw.hs | |
| parent | bce86b0bb2b863a75cfb570b4d049d8105e1b9a5 (diff) | |
| download | rde-abf2d43e9d625e0587e78e69e4d17a3ba480c9bc.tar.gz rde-abf2d43e9d625e0587e78e69e4d17a3ba480c9bc.tar.bz2 rde-abf2d43e9d625e0587e78e69e4d17a3ba480c9bc.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)) -> |