primrose/.files
1
0
Fork 0
mirror of https://codeberg.org/leana8959/.files.git synced 2025-12-06 06:39:14 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

vanadium/xmonad: useless refactor

Browse source 
Why not, it's Saturday.
This commit is contained in:
Primrose 2025-11-22 10:13:02 +08:00
parent 4bb8909218
commit 8e6ce9e5df
Signed by: primrose
GPG key ID: 4E887A4CA9714ADA
1 changed files with 8 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

13
nix/configurations/vanadium/home/xmonad/xmonad.hs
View file

@ -191,13 +191,16 @@ doShiftAndGreedyView n = doF . go =<< ask
where go :: Window -> WindowSet -> WindowSet where go :: Window -> WindowSet -> WindowSet
go w s = W.greedyView n $ W.shiftWin n w s go w s = W.greedyView n $ W.shiftWin n w s
hasProp :: (Window -> WindowSet -> Bool) -> Query Bool queryWindowSet :: Query WindowSet
hasProp f = f <$> ask <*> (liftX $ gets windowset) queryWindowSet = liftX $ gets windowset
windowIsInCurrentWorkspace :: Query Bool windowIsInCurrentWorkspace :: Query Bool
windowIsInCurrentWorkspace = hasProp $ \w s -> case W.findTag w s of windowIsInCurrentWorkspace = do
Just from | from == W.currentTag s -> True w <- ask
_ -> False s <- queryWindowSet
pure $ case W.findTag w s of
Just from | from == W.currentTag s -> True
_ -> False
myStartupHook :: X () myStartupHook :: X ()
myStartupHook = do myStartupHook = do