[XMonad] New custom xmonad-contrib branch

This commit is contained in:
Ivan Malison 2021-08-14 03:15:39 -06:00
parent 0f56aa3600
commit 215c6f5a94
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
2 changed files with 10 additions and 6 deletions

@ -1 +1 @@
Subproject commit d5522d69db9ae2a57b3a10056ea7e80aaddf123d Subproject commit 3509e91b15e71c934978258663513360c7ea2849

View File

@ -64,7 +64,7 @@ import XMonad.Hooks.TaffybarPagerHints
import XMonad.Hooks.WorkspaceHistory import XMonad.Hooks.WorkspaceHistory
import XMonad.Layout.Accordion import XMonad.Layout.Accordion
import XMonad.Layout.BoringWindows import XMonad.Layout.BoringWindows
import XMonad.Layout.ConditionalModifier import XMonad.Layout.ConditionalLayout
import XMonad.Layout.Cross import XMonad.Layout.Cross
import XMonad.Layout.Grid import XMonad.Layout.Grid
import XMonad.Layout.LayoutCombinators import XMonad.Layout.LayoutCombinators
@ -273,8 +273,12 @@ myStartup = do
data DisableOnTabbedCondition = DisableOnTabbedCondition deriving (Read, Show) data DisableOnTabbedCondition = DisableOnTabbedCondition deriving (Read, Show)
instance ModifierCondition DisableOnTabbedCondition where instance ModifierCondition DisableOnTabbedCondition where
shouldApply _ = do shouldApply _ workspaceId = fromMaybe True <$> final
not . isInfixOf "Tabbed" . description . W.layout <$> currentWorkspace where allWorkspaces = withWindowSet $ return . W.workspaces
relevantWorkspace = find idMatches <$> allWorkspaces
idMatches ws = W.tag ws == workspaceId
final = fmap (not . isInfixOf "Tabbed" . description . W.layout) <$>
relevantWorkspace
disableOnTabbed = ConditionalLayoutModifier DisableOnTabbedCondition disableOnTabbed = ConditionalLayoutModifier DisableOnTabbedCondition
@ -411,7 +415,7 @@ layoutNames = [description layout | layout <- layoutList]
selectLayout = myDmenu layoutNames >>= (sendMessage . JumpToLayout) selectLayout = myDmenu layoutNames >>= (sendMessage . JumpToLayout)
myLayoutHook = myLayoutHook =
minimizeNoDescription . minimize .
boringAuto . boringAuto .
mkToggle1 AVOIDSTRUTS . mkToggle1 AVOIDSTRUTS .
mkToggle1 MIRROR . mkToggle1 MIRROR .
@ -491,7 +495,7 @@ myWindowAct c@WindowBringerConfig {menuCommand = cmd, menuArgs = args}
currentlyFullscreen <- isToggleActiveInCurrent NBFULL currentlyFullscreen <- isToggleActiveInCurrent NBFULL
let actualConfig let actualConfig
| fromMaybe False currentlyFullscreen = c | fromMaybe False currentlyFullscreen = c
| filterVisible = c {windowFilter = not . flip elem visible} | filterVisible = c { windowFilter = return . not . flip elem visible }
| otherwise = c | otherwise = c
ws <- M.toList <$> windowMap' actualConfig ws <- M.toList <$> windowMap' actualConfig
selection <- menuIndexArgs cmd args ws selection <- menuIndexArgs cmd args ws