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

[XMonad] Rewrite getClass using the applicative style

Browse Source
This commit is contained in:
Ivan Malison 2016-11-25 15:09:07 -08:00
parent 57b6f72b84
commit 31d039b0b2
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
dotfiles/xmonad/xmonad.hs
View File

@ -216,17 +216,14 @@ myWindowBringerConfig =
, windowTitler = myDecorateName , windowTitler = myDecorateName
} }
classIfMatches window entry = do classIfMatches window entry =
result <- runQuery (fst entry) window ifL (Just $ snd entry) Nothing <$> runQuery (fst entry) window
return $ if result then Just $ snd entry else Nothing
getClass w = do getClassRaw w = fmap resClass $ withDisplay $ io . flip getClassHint w
virtualClass <- findM (classIfMatches w) virtualClasses
case virtualClass of getVirtualClass = flip findM virtualClasses . classIfMatches
Nothing -> do
classHint <- withDisplay $ \d -> io $ getClassHint d w getClass w = fromMaybe <$> getClassRaw w <*> getVirtualClass w
return $ resClass classHint
Just name -> return name
myDecorateName ws w = do myDecorateName ws w = do
name <- show <$> getName w name <- show <$> getName w