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 | ebf56709562cee3e6d6cd094ae98a81a92305661 (patch) | |
| tree | 34e4ae3e2872a56053c91a2949d5a8b01379d9a2 | |
| parent | 94f8a87dec3bb5d1eb43db0d8be053cbc8b842df (diff) | |
| download | xmonad-ebf56709562cee3e6d6cd094ae98a81a92305661.tar.gz xmonad-ebf56709562cee3e6d6cd094ae98a81a92305661.tar.xz xmonad-ebf56709562cee3e6d6cd094ae98a81a92305661.zip | |
Comment only
darcs-hash:20070611195827-a5988-a923fd26d5e2d440118981fe5164fee5b37234f2.gz
| -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 |