twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-07-30 11:41:51 -07:00
Code Issues Packages Projects Releases Wiki Activity

add/reformat (commented out) tracing code to SwitchTrans

Browse Source
This commit is contained in:
l.mai
2007-10-11 02:21:39 +00:00
parent 183b6fb563
commit 39b30296c5
1 changed files with 15 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
SwitchTrans.hs
View File

@@ -119,8 +119,11 @@ acceptChange st f action =
instance LayoutClass SwitchTrans a where instance LayoutClass SwitchTrans a where
description _ = "SwitchTrans" description _ = "SwitchTrans"
doLayout st r s = currLayout st `unLayout` \l -> doLayout st r s = currLayout st `unLayout` \l -> do
acceptChange st (fmap . fmap) (doLayout l r s) --io $ hPutStrLn stderr $ "[ST]{ " ++ show st
x{- @(_, w) -} <- acceptChange st (fmap . fmap) (doLayout l r s)
--io $ hPutStrLn stderr $ "[ST]} " ++ show w
return x
pureLayout st r s = currLayout st `unLayout` \l -> pureLayout l r s pureLayout st r s = currLayout st `unLayout` \l -> pureLayout l r s
@@ -139,11 +142,15 @@ instance LayoutClass SwitchTrans a where
else else
enable tag alt enable tag alt
| Just ReleaseResources <- fromMessage m | Just ReleaseResources <- fromMessage m
= currLayout st `unLayout` \cl -> = currLayout st `unLayout` \cl -> do
--io $ hPutStrLn stderr $ "[ST]~ " ++ show st
acceptChange st fmap (handleMessage cl m) acceptChange st fmap (handleMessage cl m)
| Just Hide <- fromMessage m | Just Hide <- fromMessage m
= currLayout st `unLayout` \cl -> = currLayout st `unLayout` \cl -> do
acceptChange st fmap (handleMessage cl m) --io $ hPutStrLn stderr $ "[ST]< " ++ show st
x <- acceptChange st fmap (handleMessage cl m)
--io $ hPutStrLn stderr $ "[ST]> " ++ show x
return x
| otherwise = base st `unLayout` \b -> do | otherwise = base st `unLayout` \b -> do
x <- handleMessage b m x <- handleMessage b m
case x of case x of