Use polybar

.xmonad/xmonad.hs

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