diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2022-04-16 00:54:01 -0600 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2022-04-16 00:54:01 -0600 |
| commit | 65456557536f7886ae079fa2b980a1ef7f0619c0 (patch) | |
| tree | 305c27dfd8c3448413f20d9f740055ad5cd99979 /src | |
| parent | d1a00e6e42b4b513f7de66a9e710f62faca2ef00 (diff) | |
| download | rde-65456557536f7886ae079fa2b980a1ef7f0619c0.tar.gz rde-65456557536f7886ae079fa2b980a1ef7f0619c0.tar.bz2 rde-65456557536f7886ae079fa2b980a1ef7f0619c0.zip | |
Remove the "│" from xmobar. I think it makes it cleaner, but it is not a slam dunk.
Diffstat (limited to 'src')
| -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 f2cccf8..637670e 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 $ "<fc=#404040> │ </fc>" + 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=#404040>│ </fc><fc=#a0a0a0><fn=3>" + tell $ " <fc=#a0a0a0><fn=3>" tell $ title tell $ "</fn></fc>" |