summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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)]