diff options
| -rw-r--r-- | Operations.hs | 5 |
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)] |