ndwarshuis
/
xmonad-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ENH add number of windows to workspace monitor

This commit is contained in:
Nathan Dwarshuis 2020-04-01 18:13:26 -04:00
parent e8e898507a
commit 7c3d01947c
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
bin/xmonad.hs
View File

@ -229,7 +229,7 @@ myLoghook h = withWindowSet $ io . hPutStrLn h . myWindowSetXinerama
myWindowSetXinerama myWindowSetXinerama
:: LayoutClass layout a1 => :: LayoutClass layout a1 =>
W.StackSet String (layout a1) a2 ScreenId ScreenDetail -> String W.StackSet String (layout a1) a2 ScreenId ScreenDetail -> String
myWindowSetXinerama ws = wsString ++ sep ++ layout myWindowSetXinerama ws = wsString ++ sep ++ layout ++ "(" ++ nWindows ++ ")"
where where
wsString = wrapColorBg T.backdropFgColor "" $ onscreen ++ offscreen' wsString = wrapColorBg T.backdropFgColor "" $ onscreen ++ offscreen'
offscreen' = if null offscreen then "" else " " ++ offscreen offscreen' = if null offscreen then "" else " " ++ offscreen
@ -251,6 +251,7 @@ myWindowSetXinerama ws = wsString ++ sep ++ layout
hilightBgColor = "#8fc7ff" hilightBgColor = "#8fc7ff"
hilightFgColor = T.blend' 0.5 hilightBgColor T.fgColor hilightFgColor = T.blend' 0.5 hilightBgColor T.fgColor
layout = description . W.layout . W.workspace . W.current $ ws layout = description . W.layout . W.workspace . W.current $ ws
nWindows = show . length . W.integrate' . W.stack . W.workspace . W.current $ ws
compareXCoord s0 s1 = compare x0 x1 compareXCoord s0 s1 = compare x0 x1
where where
(_, Rectangle x0 _ _ _) = getScreenIdAndRectangle s0 (_, Rectangle x0 _ _ _) = getScreenIdAndRectangle s0

1
lib/WorkspaceMon.hs
View File

@ -197,5 +197,6 @@ doSink = doF $ \s -> case W.stack $ W.workspace $ W.current s of
-- When an app is closed, this will respond the event that is sent in the main -- When an app is closed, this will respond the event that is sent in the main
-- XMonad thread -- XMonad thread
-- TODO this doesn't kill a workspace if it isn't in focus...weird
removeDynamicWorkspace :: WorkspaceId -> X () removeDynamicWorkspace :: WorkspaceId -> X ()
removeDynamicWorkspace = removeEmptyWorkspaceByTag removeDynamicWorkspace = removeEmptyWorkspaceByTag