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

[XMonad] Remove redundant brackets

Browse Source
This commit is contained in:
Ivan Malison 2016-11-25 18:56:07 -08:00
parent 769f5a3d13
commit 139aa97c5d
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
dotfiles/xmonad/xmonad.hs
View File

@ -92,7 +92,7 @@ ifL a b c = if' c a b
toggleInMap' d k m =
let existingValue = M.findWithDefault d k m
in (M.insert k (not existingValue) m)
in M.insert k (not existingValue) m
toggleInMap = toggleInMap' True
@ -277,10 +277,10 @@ getClassRemap =
fmap (fromMaybe M.empty . decode) $
windowClassFontAwesomeFile >>= B.readFile
getClassRemapF = (flip maybeRemap) <$> (getClassRemap)
getClassRemapF = flip maybeRemap <$> getClassRemap
getWSClassNames' w = mapM getClass $ W.integrate' $ W.stack w
getWSClassNames w = (io $ fmap map getClassRemapF) <*> getWSClassNames' w
currentWSName ws = (fromMaybe "") <$> (getWorkspaceNames' <*> pure (W.tag ws))
getWSClassNames w = io ( fmap map getClassRemapF) <*> getWSClassNames' w
currentWSName ws = fromMaybe "" <$> (getWorkspaceNames' <*> pure (W.tag ws))
desiredWSName = (intercalate "|" <$>) . getWSClassNames
setWorkspaceNameToFocusedWindow workspace = do
@ -312,9 +312,7 @@ getWorkspaceNameFromTag getWSName tag =
-- Toggleable fade
newtype ToggleFade =
ToggleFade {
fadesMap :: (M.Map Window Bool)
}
ToggleFade { fadesMap :: M.Map Window Bool }
deriving (Typeable, Read, Show)
instance ExtensionClass ToggleFade where
@ -322,7 +320,7 @@ instance ExtensionClass ToggleFade where
extensionType = PersistentExtension
fadeEnabledForWindow = ask >>= \w ->
liftX $ (M.findWithDefault True w) . fadesMap <$> XS.get
liftX $ M.findWithDefault True w . fadesMap <$> XS.get
toggleFadeInactiveLogHook =
fadeOutLogHook . fadeIf (isUnfocused <&&> fadeEnabledForWindow)