forked from colonelpanic/dotfiles
[XMonad] Remove minimize naming of layouts
This commit is contained in:
parent
98c1a831e5
commit
92fb9f03c1
@ -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)
|
||||
|
@ -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
|
@ -361,7 +361,7 @@ selectLayout = myDmenu layoutNames >>= (sendMessage . JumpToLayout)
|
||||
|
||||
myLayoutHook =
|
||||
avoidStruts .
|
||||
minimize .
|
||||
minimizeNoDescription .
|
||||
boringAuto .
|
||||
mkToggle1 MIRROR .
|
||||
mkToggle1 LIMIT .
|
||||
|
Loading…
Reference in New Issue
Block a user