.xmonad/xmonad.hs

@@ -1,7 +1,6 @@
 -- {{{
 
 import XMonad
-import XMonad.Actions.CopyWindow (copyToAll, killAllOtherCopies)
 import XMonad.Hooks.DynamicProperty
 import XMonad.Hooks.EwmhDesktops
 import XMonad.Hooks.ManageDocks
@@ -68,7 +67,7 @@ shiftAndView id = doF (W.view id) <> doF (W.shift id)
 -- startupHook
 myStartupHook =
   do
-    spawn "killall polybar && polybar -r"
+    spawn "albert"
 
 -- manageHook
 myManageHook :: ManageHook
@@ -203,8 +202,6 @@ myKeys =
                                 (withScreen 1 myWorkspaces)
                          ++ zip mySharedWorkspaceKeys
                                 (withScreen 2 mySharedWorkspaces)
-    ("M-c", windows copyToAll),
-    ("M-S-c", killAllOtherCopies),
   ]
 
 zipKeyPrefixes :: [String] -> [String] -> [String]
@@ -264,14 +261,13 @@ resetTemp = spawn "screen-temperature 3000"
 -- Main {{{
 
 main :: IO ()
-main =
+main = do xmonad
-  do { xmonad } $
+  $ ewmh
-    ewmh $
+  $ withEasySB
-      withEasySB
     (sb1 <> sb2)
     defToggleStrutsKey
     myConfig
   where
-    [sb1, sb2] = [statusBarProp "polybar" $ pure (pp' (S i) pp) | i <- [0 .. 1]]
+    [sb1, sb2] = [statusBarProp "xmobar" $ pure (pp' (S i) pp) | i <- [0..1]]
 
 -- }}}