[XMonad] Remove minimize naming of layouts
This commit is contained in:
@@ -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) { };
|
||||
});
|
||||
});
|
||||
}
|
||||
|
Submodule dotfiles/config/xmonad/xmonad-contrib updated: f103990967...3239bf74cf
@@ -361,7 +361,7 @@ selectLayout = myDmenu layoutNames >>= (sendMessage . JumpToLayout)
|
||||
|
||||
myLayoutHook =
|
||||
avoidStruts .
|
||||
minimize .
|
||||
minimizeNoDescription .
|
||||
boringAuto .
|
||||
mkToggle1 MIRROR .
|
||||
mkToggle1 LIMIT .
|
||||
|
Reference in New Issue
Block a user