From 2a9ec35ea41eafec534c694c54153456767128af Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Fri, 28 Sep 2007 07:16:06 +0200
Subject: DynamicLog: print a description of the current layout

darcs-hash:20070928051606-a5988-ac5fe6fd75920cad9eb903d9025d8439bfa6569d.gz
---
 DynamicLog.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'DynamicLog.hs')

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)
-- 
cgit v1.2.3