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