[XMonad] Remove minimize naming of layouts

This commit is contained in:
Ivan Malison 2019-06-10 08:13:19 -07:00
parent 98c1a831e5
commit 92fb9f03c1
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
4 changed files with 9 additions and 17 deletions

View File

@ -1,8 +1,4 @@
module PagerHints (
-- * Usage
-- $usage
pagerHints
) where
module 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 {
ev_message_type = mt,
ev_data = d
} = withWindowSet $ \_ -> do
pagerHintsEventHook ClientMessageEvent
{ ev_message_type = mt
, ev_data = d
} = withWindowSet $ \_ -> do
a <- xLayoutProp
when (mt == a) $ sendLayoutMessage d
return (All True)

View File

@ -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 (_: {
src = fetchGit ./xmonad;
});
xmonad-contrib = super.xmonad-contrib.overrideAttrs (_: {
src = fetchGit ./xmonad-contrib;
});
xmonad = self.callCabal2nix "xmonad" (fetchGit ./xmonad) { };
xmonad-contrib = self.callCabal2nix "xmonad-contrib" (fetchGit ./xmonad-contrib) { };
});
});
}

@ -1 +1 @@
Subproject commit f10399096794addfd121f014b687a0298354f410
Subproject commit 3239bf74cf85794be2e427a3fb2518738d613866

View File

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