ENH add number of windows to workspace monitor
This commit is contained in:
parent
e8e898507a
commit
7c3d01947c
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue