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

[XMonad] Rewrite several functions w/o do notation

Browse Source
This commit is contained in:
Ivan Malison 2016-11-25 14:09:01 -08:00
parent 670a0719dd
commit ff61b78ee9
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
dotfiles/xmonad/xmonad.hs
View File

@ -249,11 +249,12 @@ myBringWindow WindowBringerConfig{ menuCommand = cmd
-- Dynamic Workspace Renaming
getClassRemap = do
home <- getHomeDirectory
-- TODO: handle the case where this file does not exist
text <- B.readFile $ home </> ".lib/resources/window_class_to_fontawesome.json"
return $ fromMaybe M.empty (decode text)
windowClassFontAwesomeFile =
fmap (</> ".lib/resources/window_class_to_fontawesome.json") getHomeDirectory
getClassRemap =
fmap (fromMaybe M.empty . decode) $
windowClassFontAwesomeFile >>= B.readFile
setWorkspaceNameToFocusedWindow workspace = do
namedWindows <- mapM getClass $ W.integrate' $ W.stack workspace
@ -267,9 +268,8 @@ remapNames namedWindows = do
remap <- io getClassRemap
return $ map (\orig -> M.findWithDefault orig orig remap) namedWindows
setWorkspaceNames = do
ws <- gets windowset
mapM_ setWorkspaceNameToFocusedWindow (W.workspaces ws)
setWorkspaceNames =
gets windowset >>= mapM_ setWorkspaceNameToFocusedWindow . W.workspaces
data WorkspaceNamesHook a = WorkspaceNamesHook deriving (Show, Read)