From e9880655c47247b13b9d44a16603ec600fe5e7e4 Mon Sep 17 00:00:00 2001
From: Josh Rahm <rahm@google.com>
Date: Tue, 4 Feb 2020 11:14:32 -0700
Subject: Mave icons to the left. Change icon colors

---
 src/Main.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/Main.hs')

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 }
-- 
cgit