wgester/dotfiles
1
0
Fork 0
forked from colonelpanic/dotfiles
Code Pull Requests Activity

[XMonad] Add <$$> operator

Browse Source
This commit is contained in:
Ivan Malison 2017-04-12 18:00:01 -07:00
parent 1e99dba6b5
commit ba8634a2ba
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
dotfiles/xmonad/xmonad.hs
View File

@ -108,6 +108,10 @@ if' False _ y = y
ifL :: a -> a -> Bool -> a ifL :: a -> a -> Bool -> a
ifL a b c = if' c a b ifL a b c = if' c a b
infixl 4 <$$>
(<$$>) :: Functor f => f (a -> b) -> a -> f b
functor <$$> value = ($ value) <$> functor
toggleInMap' :: Ord k => Bool -> k -> M.Map k Bool -> M.Map k Bool toggleInMap' :: Ord k => Bool -> k -> M.Map k Bool -> M.Map k Bool
toggleInMap' d k m = toggleInMap' d k m =
let existingValue = M.findWithDefault d k m let existingValue = M.findWithDefault d k m
@ -406,7 +410,7 @@ getClassRemap =
getClassRemapF = flip maybeRemap <$> getClassRemap getClassRemapF = flip maybeRemap <$> getClassRemap
getWSClassNames' w = mapM getClass $ W.integrate' $ W.stack w getWSClassNames' w = mapM getClass $ W.integrate' $ W.stack w
getWSClassNames w = io (fmap map getClassRemapF) <*> getWSClassNames' w getWSClassNames w = io (fmap map getClassRemapF) <*> getWSClassNames' w
currentWSName ws = fromMaybe "" <$> (getWorkspaceNames' <*> pure (W.tag ws)) currentWSName ws = fromMaybe "" <$> (getWorkspaceNames' <$$> (W.tag ws))
desiredWSName = (intercalate "|" <$>) . getWSClassNames desiredWSName = (intercalate "|" <$>) . getWSClassNames
setWorkspaceNameToFocusedWindow workspace = do setWorkspaceNameToFocusedWindow workspace = do
@ -568,7 +572,7 @@ thisClass = withWindowSet $ sequence . (getClass <$.> W.peek)
nextClass = do nextClass = do
classes <- allClasses classes <- allClasses
current <- thisClass current <- thisClass
let index = join $ elemIndex <$> current <*> pure classes let index = join $ elemIndex <$> current <$$> classes
return $ fmap (\i -> cycle classes !! (i + 1)) index return $ fmap (\i -> cycle classes !! (i + 1)) index
classWindow c = do classWindow c = do