aboutsummaryrefslogtreecommitdiff
path: root/src/Main.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Main.hs')
-rw-r--r--src/Main.hs3
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 }