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

[XMonad] Minimize windows that are not of the focused window's class

Browse Source
This commit is contained in:
Ivan Malison 2016-11-08 01:40:10 -08:00
parent 2041812508
commit 1f66346b5f
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 22 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
dotfiles/xmonad/xmonad.hs
View File

@ -187,6 +187,24 @@ toggleFadingForActiveWindow = withWindowSet $ \windowSet -> do
XS.put $ ToggleFade (M.insert window (not existingValue) toggleMap) XS.put $ ToggleFade (M.insert window (not existingValue) toggleMap)
return () return ()
-- Minimize not in class
withWorkspace f = withWindowSet $ \ws ->
maybe (return ()) f (W.stack . W.workspace . W.current $ ws)
minimizeOtherClassesInWorkspace =
withWorkspace (windowsWithUnfocusedClass >=> mapM_ minimizeWindow)
windowsWithUnfocusedClass ws = windowsWithOtherClasses ws (W.focus ws)
windowsWithOtherClasses workspace window = do
windowClass <- getClass window
let predicate = (/= windowClass)
filterM (\w -> predicate <$> getClass w) (W.integrate workspace)
restoreAllMinimized =
withWorkspace $ mapM_ (sendMessage . RestoreMinimizedWin) . W.integrate
-- Use greedyView to switch to the correct workspace, and then focus on the -- Use greedyView to switch to the correct workspace, and then focus on the
-- appropriate window within that workspace. -- appropriate window within that workspace.
greedyFocusWindow w ws = W.focusWindow w $ W.greedyView greedyFocusWindow w ws = W.focusWindow w $ W.greedyView
@ -219,12 +237,12 @@ addKeys conf@XConfig {modMask = modm} =
, ((modm .|. controlMask, xK_space), sendMessage $ JumpToLayout "Full") , ((modm .|. controlMask, xK_space), sendMessage $ JumpToLayout "Full")
, ((modm, xK_slash), sendMessage $ Toggle MIRROR) , ((modm, xK_slash), sendMessage $ Toggle MIRROR)
, ((modm, xK_m), withFocused minimizeWindow) , ((modm, xK_m), withFocused minimizeWindow)
, ((modm .|. shiftMask, xK_m), sendMessage RestoreNextMinimizedWin) , ((modm .|. shiftMask, xK_m), restoreAllMinimized)
, ((modm, xK_backslash), toggleWS) , ((modm, xK_backslash), toggleWS)
-- Hyper bindings -- Hyper bindings
, ((mod3Mask, xK_1), toggleFadingForActiveWindow) , ((mod3Mask, xK_1), toggleFadingForActiveWindow)
, ((mod3Mask, xK_e), moveTo Next EmptyWS ) , ((mod3Mask, xK_e), moveTo Next EmptyWS)
, ((mod3Mask .|. shiftMask, xK_e), shiftToEmptyAndView) , ((mod3Mask .|. shiftMask, xK_e), shiftToEmptyAndView)
, ((mod3Mask, xK_v), spawn "copyq_rofi.sh") , ((mod3Mask, xK_v), spawn "copyq_rofi.sh")
, ((mod3Mask, xK_p), spawn "system_password.sh") , ((mod3Mask, xK_p), spawn "system_password.sh")
@ -233,6 +251,8 @@ addKeys conf@XConfig {modMask = modm} =
-- ModAlt bindings -- ModAlt bindings
, ((modalt, xK_w), spawn "rofi_wallpaper.sh") , ((modalt, xK_w), spawn "rofi_wallpaper.sh")
, ((modalt, xK_space), minimizeOtherClassesInWorkspace)
, ((modalt, xK_Return), restoreAllMinimized)
-- playerctl -- playerctl
, ((mod3Mask, xK_f), spawn "playerctl play-pause") , ((mod3Mask, xK_f), spawn "playerctl play-pause")