diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-06-11 21:58:27 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-06-11 21:58:27 +0200 |
| commit | 80d45dce0b915ccd2ff6c4ad4938d76b233a553b (patch) | |
| tree | 34e4ae3e2872a56053c91a2949d5a8b01379d9a2 /Operations.hs | |
| parent | ca4bf413568335bd4adadce25a1122a31fdcab9e (diff) | |
| download | metatile-80d45dce0b915ccd2ff6c4ad4938d76b233a553b.tar metatile-80d45dce0b915ccd2ff6c4ad4938d76b233a553b.zip | |
Comment only
darcs-hash:20070611195827-a5988-a923fd26d5e2d440118981fe5164fee5b37234f2
Diffstat (limited to 'Operations.hs')
| -rw-r--r-- | Operations.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/Operations.hs b/Operations.hs index e39fdac..977d224 100644 --- a/Operations.hs +++ b/Operations.hs @@ -335,10 +335,8 @@ setFocusX w = withWindowSet $ \ws -> do switchLayout :: X () switchLayout = layout (\(x, xs) -> let xs' = xs ++ [x] in (head xs', tail xs')) --- | Throw an (extensible) message value to the current Layout scheme, --- possibly modifying how we layout the windows, then refresh. --- --- TODO, this will refresh on Nothing. +-- | Throw a message to the current Layout possibly modifying how we +-- layout the windows, then refresh. -- sendMessage :: Message a => a -> X () sendMessage a = do n <- (W.tag . W.workspace . W.current) `fmap` gets windowset |