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

handle messages in X.L.IfMax

Browse Source
This commit is contained in:
Bogdan Sinitsyn
2016-02-23 00:19:20 +03:00
parent 571193a219
commit 94a7e97ac8
1 changed files with 11 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
XMonad/Layout/IfMax.hs
View File

@@ -23,6 +23,7 @@ module XMonad.Layout.IfMax
, ifMax , ifMax
) where ) where
import Control.Applicative((<$>))
import Data.Maybe import Data.Maybe
import XMonad import XMonad
@@ -63,6 +64,16 @@ instance (LayoutClass l1 a, LayoutClass l2 a) => LayoutClass (IfMax l1 l2) a whe
let l2' = fromMaybe l2 ml2' let l2' = fromMaybe l2 ml2'
return (wrs, Just $ IfMax n l1 l2') return (wrs, Just $ IfMax n l1 l2')
handleMessage (IfMax n l1 l2) m = do
len <- gets (length . W.integrate' . W.stack . W.workspace . W.current . windowset)
if len <= n
then do
l1' <- handleMessage l1 m
return $ flip (IfMax n) l2 <$> l1'
else do
l2' <- handleMessage l2 m
return $ IfMax n l1 <$> l2'
description (IfMax n l1 l2) = "If number of windows is <= " ++ show n ++ ", then " ++ description (IfMax n l1 l2) = "If number of windows is <= " ++ show n ++ ", then " ++
description l1 ++ ", else " ++ description l2 description l1 ++ ", else " ++ description l2