[XMonad] Remove minimize naming of layouts

dotfiles/config/xmonad/PagerHints.hs

@@ -1,8 +1,4 @@
-module PagerHints (
+module PagerHints where
-  -- * Usage
-  -- $usage
-  pagerHints
-) where
 
 import Codec.Binary.UTF8.String (encode)
 import Control.Monad
@@ -66,10 +62,10 @@ setVisibleWorkspaces vis = withDisplay $ \dpy -> do
 -- | Handle all \"Current Layout\" events received from pager widgets, and
 -- set the current layout accordingly.
 pagerHintsEventHook :: Event -> X All
-pagerHintsEventHook ClientMessageEvent {
+pagerHintsEventHook ClientMessageEvent
-    ev_message_type = mt,
+                      { ev_message_type = mt
-    ev_data = d
+                      , ev_data = d
-  } = withWindowSet $ \_ -> do
+                      } = withWindowSet $ \_ -> do
   a <- xLayoutProp
   when (mt == a) $ sendLayoutMessage d
   return (All True)

dotfiles/config/xmonad/overlay.nix

@@ -1,12 +1,8 @@
 _: pkgs: rec {
   haskellPackages = pkgs.haskellPackages.override (old: {
     overrides = pkgs.lib.composeExtensions (old.overrides or (_: _: {})) (self: super: rec {
-      xmonad = super.xmonad.overrideAttrs (_: {
+      xmonad = self.callCabal2nix "xmonad" (fetchGit ./xmonad) { };
-        src = fetchGit ./xmonad;
+      xmonad-contrib = self.callCabal2nix "xmonad-contrib" (fetchGit ./xmonad-contrib) { };
-      });
-      xmonad-contrib = super.xmonad-contrib.overrideAttrs (_: {
-        src = fetchGit ./xmonad-contrib;
-      });
     });
   });
 }

dotfiles/config/xmonad/xmonad.hs

@@ -361,7 +361,7 @@ selectLayout = myDmenu layoutNames >>= (sendMessage . JumpToLayout)
 
 myLayoutHook =
   avoidStruts .
-  minimize .
+  minimizeNoDescription .
   boringAuto .
   mkToggle1 MIRROR .
   mkToggle1 LIMIT .