diff options
| author | Josh Rahm <rahm@google.com> | 2022-04-21 17:04:08 -0600 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2022-10-09 12:19:46 -0600 |
| commit | a45cfc63c66b2f85768df0eba77e9460a75e6215 (patch) | |
| tree | 349db2c923963b719a76e967ecf1bda94a649c95 /src/Rahm/Desktop/XMobarLog.hs | |
| parent | 4319bde78b32d42d20b43c1ebd79095409db399e (diff) | |
| download | rde-a45cfc63c66b2f85768df0eba77e9460a75e6215.tar.gz rde-a45cfc63c66b2f85768df0eba77e9460a75e6215.tar.bz2 rde-a45cfc63c66b2f85768df0eba77e9460a75e6215.zip | |
Some changes to XMobar look and feel
Diffstat (limited to 'src/Rahm/Desktop/XMobarLog.hs')
| -rw-r--r-- | src/Rahm/Desktop/XMobarLog.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Rahm/Desktop/XMobarLog.hs b/src/Rahm/Desktop/XMobarLog.hs index 637670e..d0dcc4f 100644 --- a/src/Rahm/Desktop/XMobarLog.hs +++ b/src/Rahm/Desktop/XMobarLog.hs @@ -46,7 +46,7 @@ xMobarLogHook (XMobarLog xmproc) = do hPutStrLn xmproc $ trunc 80 $ execWriter $ do tell " " tell layoutXpm - tell $ " " + tell $ " " forM_ wss $ \(t, ws) -> do case t of @@ -57,7 +57,7 @@ xMobarLogHook (XMobarLog xmproc) = do tell $ toAction $ S.tag ws tell " </fc></fn>" - tell $ " <fc=#a0a0a0><fn=3>" + tell $ " <fc=#ff8888><fn=3>" tell $ title tell $ "</fn></fc>" |