twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

X.A.WindowBringer: Use <$> instead of fmap

Browse Source
This commit is contained in:
Ivan Malison 2016-10-24 22:12:33 -07:00
parent 05d7493888
commit 993dedf6d3
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
XMonad/Actions/WindowBringer.hs
View File

@ -24,6 +24,7 @@ module XMonad.Actions.WindowBringer (
windowMap, windowMap', bringWindow, actionMenu windowMap, windowMap', bringWindow, actionMenu
) where ) where
import Control.Applicative((<$>))
import qualified Data.Map as M import qualified Data.Map as M
import qualified XMonad.StackSet as W import qualified XMonad.StackSet as W
@ -140,14 +141,14 @@ windowMap = windowMap' decorateName
windowMap' :: (X.WindowSpace -> Window -> X String) -> X (M.Map String Window) windowMap' :: (X.WindowSpace -> Window -> X String) -> X (M.Map String Window)
windowMap' titler = do windowMap' titler = do
ws <- gets X.windowset ws <- gets X.windowset
M.fromList `fmap` concat `fmap` mapM keyValuePairs (W.workspaces ws) M.fromList . concat <$> mapM keyValuePairs (W.workspaces ws)
where keyValuePairs ws = mapM (keyValuePair ws) $ W.integrate' (W.stack ws) where keyValuePairs ws = mapM (keyValuePair ws) $ W.integrate' (W.stack ws)
keyValuePair ws w = flip (,) w `fmap` titler ws w keyValuePair ws w = flip (,) w <$> titler ws w
-- | Returns the window name as will be listed in dmenu. -- | Returns the window name as will be listed in dmenu.
-- Tagged with the workspace ID, to guarantee uniqueness, and to let the user -- Tagged with the workspace ID, to guarantee uniqueness, and to let the user
-- know where he's going. -- know where he's going.
decorateName :: X.WindowSpace -> Window -> X String decorateName :: X.WindowSpace -> Window -> X String
decorateName ws w = do decorateName ws w = do
name <- show `fmap` getName w name <- show <$> getName w
return $ name ++ " [" ++ W.tag ws ++ "]" return $ name ++ " [" ++ W.tag ws ++ "]"