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

ToggleLayouts: reimplemented with runLayout

Browse Source
This commit is contained in:
Andrea Rossato 2008-02-23 08:15:53 +00:00
parent e0987d1330
commit c2dcd6ede8
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
XMonad/Layout/ToggleLayouts.hs
View File

@ -21,6 +21,7 @@ module XMonad.Layout.ToggleLayouts (
) where ) where
import XMonad import XMonad
import XMonad.StackSet (Workspace (..))
-- $usage -- $usage
-- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@: -- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@:
@ -56,14 +57,11 @@ toggleLayouts :: (LayoutClass lt a, LayoutClass lf a) => lt a -> lf a -> ToggleL
toggleLayouts = ToggleLayouts False toggleLayouts = ToggleLayouts False
instance (LayoutClass lt a, LayoutClass lf a) => LayoutClass (ToggleLayouts lt lf) a where instance (LayoutClass lt a, LayoutClass lf a) => LayoutClass (ToggleLayouts lt lf) a where
doLayout (ToggleLayouts True lt lf) r s = do (ws,mlt') <- doLayout lt r s runLayout (Workspace i (ToggleLayouts True lt lf) ms) r = do (ws,mlt') <- runLayout (Workspace i lt ms) r
return (ws,fmap (\lt' -> ToggleLayouts True lt' lf) mlt') return (ws,fmap (\lt' -> ToggleLayouts True lt' lf) mlt')
doLayout (ToggleLayouts False lt lf) r s = do (ws,mlf') <- doLayout lf r s
return (ws,fmap (\lf' -> ToggleLayouts False lt lf') mlf') runLayout (Workspace i (ToggleLayouts False lt lf) ms) r = do (ws,mlf') <- runLayout (Workspace i lf ms) r
emptyLayout (ToggleLayouts True lt lf) r = do (ws,mlt') <- emptyLayout lt r return (ws,fmap (\lf' -> ToggleLayouts False lt lf') mlf')
return (ws,fmap (\lt' -> ToggleLayouts True lt' lf) mlt')
emptyLayout (ToggleLayouts False lt lf) r = do (ws,mlf') <- emptyLayout lf r
return (ws,fmap (\lf' -> ToggleLayouts False lt lf') mlf')
description (ToggleLayouts True lt _) = description lt description (ToggleLayouts True lt _) = description lt
description (ToggleLayouts False _ lf) = description lf description (ToggleLayouts False _ lf) = description lf
handleMessage (ToggleLayouts bool lt lf) m handleMessage (ToggleLayouts bool lt lf) m