diff options
| author | Josh Rahm <rahm@google.com> | 2020-02-04 11:14:32 -0700 |
|---|---|---|
| committer | Josh Rahm <rahm@google.com> | 2020-02-04 11:14:32 -0700 |
| commit | e9880655c47247b13b9d44a16603ec600fe5e7e4 (patch) | |
| tree | 29f0fe6c4621d259c69b2da63c63933f491a0b3c /src/Main.hs | |
| parent | 04489c6c77e9c80e5b3332b81cea149dad1c7d88 (diff) | |
| download | rde-e9880655c47247b13b9d44a16603ec600fe5e7e4.tar.gz rde-e9880655c47247b13b9d44a16603ec600fe5e7e4.tar.bz2 rde-e9880655c47247b13b9d44a16603ec600fe5e7e4.zip | |
Mave icons to the left. Change icon colors
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Main.hs b/src/Main.hs index 77a53a0..21bc4ba 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -12,6 +12,7 @@ import Text.Printf import Internal.Keys import Internal.LayoutDraw +import Data.List (partition, isPrefixOf) main = do @@ -59,6 +60,8 @@ main = do , ppSep = xmobarColor "#404040" "" " ──── " , ppExtras = [showLayout] + , ppOrder = \ss -> + let (icons, etc) = partition ("<icon"`isPrefixOf`) ss in icons ++ etc } toggleStructsKey config { modMask = mod4Mask } |