twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-07-26 01:31:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

tag visibles with <N>

Browse Source
This commit is contained in:
Don Stewart
2007-06-10 11:19:31 +00:00
parent 4ac87689b8
commit 3d73ec842a
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
DynamicLog.hs
View File

@@ -40,10 +40,12 @@ dynamicLog = withWindowSet $ io . putStrLn . ppr
where
ppr s = concatMap fmt $ sortBy tags
(map S.workspace (S.current s : S.visible s) ++ S.hidden s)
where tags a b = S.tag a `compare` S.tag b
this = S.tag (S.workspace (S.current s))
pprTag = show . (+(1::Int)) . fromIntegral . S.tag
fmt w | S.tag w == this = "[" ++ pprTag w ++ "]"
| S.stack w /= S.Empty = " " ++ pprTag w ++ " "
| otherwise = ""
visibles = map (S.tag . S.workspace) (S.visible s)
fmt w | S.tag w == this = "[" ++ pprTag w ++ "]"
| S.tag w `elem` visibles = "<" ++ pprTag w ++ ">"
| S.stack w /= S.Empty = " " ++ pprTag w ++ " "
| otherwise = ""