twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-15 20:23:55 -07:00
Code Issues Packages Projects Releases Wiki Activity

DynamicLog: sort first by index in the workspaces list, then by tag name

Browse Source
This commit is contained in:
Spencer Janssen
2007-09-28 14:49:00 +00:00
parent acc70375a7
commit 1e0a92acd6
1 changed files with 13 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
DynamicLog.hs
View File

@@ -28,11 +28,13 @@ module XMonadContrib.DynamicLog (
-- Useful imports -- Useful imports
-- --
import XMonad import XMonad
import {-# SOURCE #-} Config (workspaces)
import Operations () -- for ReadableSomeLayout instance import Operations () -- for ReadableSomeLayout instance
import Data.Maybe ( isJust ) import Data.Maybe ( isJust )
import Data.List import Data.List
import Data.Ord ( comparing ) import Data.Ord ( comparing )
import qualified StackSet as S import qualified StackSet as S
import Data.Monoid
-- $usage -- $usage
-- --
@@ -63,9 +65,18 @@ dynamicLog = withWindowSet $ \ws -> do
io . putStrLn $ "(" ++ desc ++ ") " ++ pprWindowSet ws io . putStrLn $ "(" ++ desc ++ ") " ++ pprWindowSet ws
pprWindowSet :: WindowSet -> String pprWindowSet :: WindowSet -> String
pprWindowSet s = concatMap fmt $ sortBy (comparing S.tag) pprWindowSet s = concatMap fmt $ sortBy cmp
(map S.workspace (S.current s : S.visible s) ++ S.hidden s) (map S.workspace (S.current s : S.visible s) ++ S.hidden s)
where this = S.tag (S.workspace (S.current s)) where f Nothing Nothing = EQ
f (Just _) Nothing = LT
f Nothing (Just _) = GT
f (Just x) (Just y) = compare x y
wsIndex = flip elemIndex workspaces . S.tag
cmp a b = f (wsIndex a) (wsIndex b) `mappend` compare (S.tag a) (S.tag b)
this = S.tag (S.workspace (S.current s))
visibles = map (S.tag . S.workspace) (S.visible s) visibles = map (S.tag . S.workspace) (S.visible s)
fmt w | S.tag w == this = "[" ++ S.tag w ++ "]" fmt w | S.tag w == this = "[" ++ S.tag w ++ "]"