colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[XMonad] Remove minimize naming of layouts

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
dotfiles/config/xmonad/PagerHints.hs
View File

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

8
dotfiles/config/xmonad/overlay.nix
View File

@ -1,12 +1,8 @@
_: pkgs: rec { _: pkgs: rec {
haskellPackages = pkgs.haskellPackages.override (old: { haskellPackages = pkgs.haskellPackages.override (old: {
overrides = pkgs.lib.composeExtensions (old.overrides or (_: _: {})) (self: super: rec { 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;
});
}); });
}); });
} }

2
dotfiles/config/xmonad/xmonad-contrib

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

2
dotfiles/config/xmonad/xmonad.hs
View File

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