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

[XMonad] Tweaks

Browse Source
This commit is contained in:
Ivan Malison 2017-03-31 22:34:47 -07:00
parent 00ebdf6d36
commit 36020f301e
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
dotfiles/xmonad/xmonad.hs
View File

@ -81,7 +81,8 @@ main =
-- Utility functions -- Utility functions
(<..>) a b = (fmap . fmap) a b (<..>) :: Functor f => (a -> b) -> f (f a) -> f (f b)
(<..>) = fmap . fmap
forkM :: Monad m => (i -> m a) -> (i -> m b) -> i -> m (a, b) forkM :: Monad m => (i -> m a) -> (i -> m b) -> i -> m (a, b)
forkM a b input = do forkM a b input = do
@ -130,7 +131,9 @@ mapP' f f' = map (f A.&&& f')
minimizedWindows = withMinimized return minimizedWindows = withMinimized return
visibleWindows = (\\) <$> (withWorkspaceR $ return . W.integrate' . W.stack) <*> minimizedWindows visibleWindows =
(\\) <$> withWorkspaceR (return . W.integrate' . W.stack)
<*> minimizedWindows
-- Selectors -- Selectors