diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-04-02 09:24:18 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-04-02 09:24:18 +0200 |
| commit | f46106e1411d69ce91567cd0c1198a52bac1b517 (patch) | |
| tree | 12db1543c03e0ecdf1675ebf881abd18b1c19b9a /Operations.hs | |
| parent | 00b6fb5f9b3f3fcb8ff16ebde7314673c81f3f8b (diff) | |
| download | metatile-f46106e1411d69ce91567cd0c1198a52bac1b517.tar metatile-f46106e1411d69ce91567cd0c1198a52bac1b517.zip | |
Comment only.
darcs-hash:20070402072418-a5988-3b4db0be791c44772e0ce4ec49df25c16edaee94
Diffstat (limited to 'Operations.hs')
| -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)] |