From 9d054443b2deee69e08f507e520ae049214af77b Mon Sep 17 00:00:00 2001
From: Ivan Malison <IvanMalison@gmail.com>
Date: Wed, 14 Sep 2016 16:56:37 -0700
Subject: [PATCH] Remove xmobar and stalonetray from xmonad.hs

---
 dotfiles/xmonad/xmonad.hs | 18 ++++++------------
 1 file changed, 6 insertions(+), 12 deletions(-)

diff --git a/dotfiles/xmonad/xmonad.hs b/dotfiles/xmonad/xmonad.hs
index 5a56ed14..34a9fbe8 100644
--- a/dotfiles/xmonad/xmonad.hs
+++ b/dotfiles/xmonad/xmonad.hs
@@ -1,29 +1,24 @@
-import System.IO
-
 import XMonad
 import XMonad.Config()
 import XMonad.Hooks.DynamicLog
 import XMonad.Hooks.EwmhDesktops
 import XMonad.Hooks.ManageDocks
+import XMonad.Layout.NoBorders
+import XMonad.Layout.Spacing
+import XMonad.Layout.ThreeColumns
 import XMonad.Util.EZConfig
-import XMonad.Util.Run(spawnPipe)
+
 
 -- Use Super/Command/WinKey instead of Alt
 myModMask :: KeyMask
 myModMask = mod4Mask
 
 main :: IO ()
-main = do
-  xmproc <- spawnPipe "xmobar"
-  xmonad $ ewmh def
+main = xmonad $ ewmh def
        { modMask = myModMask
        , terminal = "urxvt"
        , manageHook = manageDocks <+> manageHook def
        , layoutHook = myLayoutHook
-       , logHook = dynamicLogWithPP xmobarPP
-         { ppOutput = hPutStrLn xmproc
-         , ppTitle = xmobarColor "blue" "" . shorten 50
-         }
        , handleEventHook = handleEventHook def <+> fullscreenEventHook
        , startupHook = myStartup
         } `additionalKeys`
@@ -33,11 +28,10 @@ main = do
        , ((myModMask, xK_b), spawn "rofi -show run")
        ]
 
-myLayoutHook = avoidStruts $ layoutHook def
+myLayoutHook = avoidStruts $ smartSpacing 10 $ noBorders $ layoutHook def
 
 myStartup :: X()
 myStartup = do
-  spawn "stalonetray"
   spawn "nm-applet --sm-disable"
   spawn "xsetroot -solid black"
   -- TODO: Figure out how to set different backgrounds for different x