diff options
| author | Josh Rahm <rahm@google.com> | 2022-04-21 17:04:08 -0600 |
|---|---|---|
| committer | Josh Rahm <rahm@google.com> | 2022-04-21 17:04:08 -0600 |
| commit | 8df47403a0f5ed1a3ef853e25868fa305b2f3a1b (patch) | |
| tree | 349db2c923963b719a76e967ecf1bda94a649c95 /src/Rahm/Desktop/XMobarLog.hs | |
| parent | 6bfec2037120cd5e3dbd46f7f911fbfb9b718daf (diff) | |
| download | rde-8df47403a0f5ed1a3ef853e25868fa305b2f3a1b.tar.gz rde-8df47403a0f5ed1a3ef853e25868fa305b2f3a1b.tar.bz2 rde-8df47403a0f5ed1a3ef853e25868fa305b2f3a1b.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>" |