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

[XMonad] New custom xmonad-contrib branch

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

2
dotfiles/config/xmonad/xmonad-contrib

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

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

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