[XMonad] New custom xmonad-contrib branch
This commit is contained in:
parent
0f56aa3600
commit
215c6f5a94
@ -1 +1 @@
|
|||||||
Subproject commit d5522d69db9ae2a57b3a10056ea7e80aaddf123d
|
Subproject commit 3509e91b15e71c934978258663513360c7ea2849
|
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user