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 = toggleInMap' d k m =
let existingValue = M.findWithDefault 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 toggleInMap = toggleInMap' True
@ -277,10 +277,10 @@ getClassRemap =
fmap (fromMaybe M.empty . decode) $ fmap (fromMaybe M.empty . decode) $
windowClassFontAwesomeFile >>= B.readFile windowClassFontAwesomeFile >>= B.readFile
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' <*> pure (W.tag ws))
desiredWSName = (intercalate "|" <$>) . getWSClassNames desiredWSName = (intercalate "|" <$>) . getWSClassNames
setWorkspaceNameToFocusedWindow workspace = do setWorkspaceNameToFocusedWindow workspace = do
@ -312,9 +312,7 @@ getWorkspaceNameFromTag getWSName tag =
-- Toggleable fade -- Toggleable fade
newtype ToggleFade = newtype ToggleFade =
ToggleFade { ToggleFade { fadesMap :: M.Map Window Bool }
fadesMap :: (M.Map Window Bool)
}
deriving (Typeable, Read, Show) deriving (Typeable, Read, Show)
instance ExtensionClass ToggleFade where instance ExtensionClass ToggleFade where
@ -322,7 +320,7 @@ instance ExtensionClass ToggleFade where
extensionType = PersistentExtension extensionType = PersistentExtension
fadeEnabledForWindow = ask >>= \w -> fadeEnabledForWindow = ask >>= \w ->
liftX $ (M.findWithDefault True w) . fadesMap <$> XS.get liftX $ M.findWithDefault True w . fadesMap <$> XS.get
toggleFadeInactiveLogHook = toggleFadeInactiveLogHook =
fadeOutLogHook . fadeIf (isUnfocused <&&> fadeEnabledForWindow) fadeOutLogHook . fadeIf (isUnfocused <&&> fadeEnabledForWindow)