getNumberOfWindowsInWorkpace :: X Int
getNumberOfWindowsInWorkpace = withWindowSet (pure . length . W.index)

myStatusBar = statusBarProp "xmobar" (do
                                        x <- getNumberOfWindowsInWorkpace
                                        return $ xmobarPP {
                              ppCurrent = (\s ->
                                                if x > 0
                                                  then ((xmobarBorder "Top" "#bbbbbb" 4 . xmobarColor "#bbbbbb" "#005577") ("  " ++ s ++ "  "))
                                                  else (xmobarColor "#bbbbbb" "#005577" ("  " ++ s ++ "  "))
                                          )
                            , ppTitle = shorten 77
                            , ppSep = " | "
                            , ppLayout = (\_ -> "")
                            , ppHidden = (\s -> xmobarBorder "Top" "#bbbbbb" 2 ("  " ++ s ++ "  ")) --probs better way to do this
                            , ppHiddenNoWindows =  wrap "  " "  "
                    })