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

[XMonad] Add screen for window queries

Browse Source
This commit is contained in:
Ivan Malison 2016-11-29 20:19:48 -08:00
parent aa263ec5ff
commit 1bf27968e3
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
dotfiles/xmonad/xmonad.hs
View File

@ -117,6 +117,10 @@ maybeRemap k = M.findWithDefault k k
withFocusedR f = withWindowSet (f . W.peek) withFocusedR f = withWindowSet (f . W.peek)
withFocusedD d f = maybe (return d) f <$> (withWindowSet (return . W.peek)) withFocusedD d f = maybe (return d) f <$> (withWindowSet (return . W.peek))
mapP f l = mapP' id
mapP' f f' l = map (\i -> (f i, f' i)) l
-- Selectors -- Selectors
@ -341,8 +345,12 @@ fadeEnabledFor query =
fadeEnabledForWindow = fadeEnabledFor ask fadeEnabledForWindow = fadeEnabledFor ask
fadeEnabledForWorkspace = fadeEnabledFor getWindowWorkspace fadeEnabledForWorkspace = fadeEnabledFor getWindowWorkspace
getScreens = withWindowSet $ return . W.screens
getWindowWorkspace' = W.findTag <$> ask <*> liftX (withWindowSet return) getWindowWorkspace' = W.findTag <$> ask <*> liftX (withWindowSet return)
getWindowWorkspace = flip fromMaybe <$> getWindowWorkspace' <*> pure "1" getWindowWorkspace = flip fromMaybe <$> getWindowWorkspace' <*> pure "1"
getWorkspaceToScreen = M.fromList . mapP' (W.tag . W.workspace) W.screen <$> getScreens
getWindowScreen = M.lookup <$> getWindowWorkspace <*> liftX getWorkspaceToScreen
toggleFadeInactiveLogHook = toggleFadeInactiveLogHook =
fadeOutLogHook . fadeOutLogHook .