diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-09-28 07:16:06 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-09-28 07:16:06 +0200 |
| commit | 2a9ec35ea41eafec534c694c54153456767128af (patch) | |
| tree | 489c7089db2c8a62f35180c129aa30b5e08fca12 /DynamicLog.hs | |
| parent | 9722fccfe2bce8864a4ea57aa6444dfb759462f7 (diff) | |
| download | XMonadContrib-2a9ec35ea41eafec534c694c54153456767128af.tar.gz XMonadContrib-2a9ec35ea41eafec534c694c54153456767128af.tar.xz XMonadContrib-2a9ec35ea41eafec534c694c54153456767128af.zip | |
DynamicLog: print a description of the current layout
darcs-hash:20070928051606-a5988-ac5fe6fd75920cad9eb903d9025d8439bfa6569d.gz
Diffstat (limited to 'DynamicLog.hs')
| -rw-r--r-- | DynamicLog.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/DynamicLog.hs b/DynamicLog.hs index 6ecb5f5..26327ae 100644 --- a/DynamicLog.hs +++ b/DynamicLog.hs @@ -28,6 +28,7 @@ module XMonadContrib.DynamicLog ( -- Useful imports -- import XMonad +import Operations () -- for ReadableSomeLayout instance import Data.Maybe ( isJust ) import Data.List import Data.Ord ( comparing ) @@ -57,7 +58,9 @@ import qualified StackSet as S -- dynamicLog :: X () -dynamicLog = withWindowSet $ io . putStrLn . pprWindowSet +dynamicLog = withWindowSet $ \ws -> do + let desc = description . S.layout . S.workspace . S.current $ ws + io . putStrLn $ "(" ++ desc ++ ") " ++ pprWindowSet ws pprWindowSet :: WindowSet -> String pprWindowSet s = concatMap fmt $ sortBy (comparing S.tag) |