aboutsummaryrefslogtreecommitdiffstats
path: root/Operations.hs
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2007-04-02 09:24:18 +0200
committerSpencer Janssen <sjanssen@cse.unl.edu>2007-04-02 09:24:18 +0200
commit1c3a4afc44531441ba8d32561f2476d9aa8abfb1 (patch)
tree12db1543c03e0ecdf1675ebf881abd18b1c19b9a /Operations.hs
parent70452ed192481f965836058bdc8697b5e49ce99f (diff)
downloadxmonad-1c3a4afc44531441ba8d32561f2476d9aa8abfb1.tar.gz
xmonad-1c3a4afc44531441ba8d32561f2476d9aa8abfb1.tar.xz
xmonad-1c3a4afc44531441ba8d32561f2476d9aa8abfb1.zip
Comment only.
darcs-hash:20070402072418-a5988-3b4db0be791c44772e0ce4ec49df25c16edaee94.gz
Diffstat (limited to 'Operations.hs')
-rw-r--r--Operations.hs5
1 files changed, 5 insertions, 0 deletions
diff --git a/Operations.hs b/Operations.hs
index 5c7a3e9..2558449 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -41,6 +41,11 @@ refresh = do
whenJust (W.peekStack n ws) (io . raiseWindow d)
whenJust (W.peek ws) setFocus
+-- | tile. Compute the positions for windows in horizontal layout
+-- mode.
+--
+-- TODO generalize this to vertical layout
+--
tile :: Rational -> Rectangle -> [Window] -> [(Window, Rectangle)]
tile _ _ [] = []
tile _ d [w] = [(w, d)]