twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-01 04:31:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

HintedGrid: guesstimate window flexibility and layout rigid windows first

Browse Source
This commit is contained in:
Lukas Mai
2008-04-02 04:28:46 +00:00
parent adbf9032ca
commit 7e3cb59c23
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
XMonad/Layout/HintedGrid.hs
View File

@@ -27,6 +27,8 @@ import XMonad hiding (windows)
import XMonad.StackSet import XMonad.StackSet
import Control.Monad.State import Control.Monad.State
import Data.List
import Data.Ord
infixr 9 . infixr 9 .
(.) :: (Functor f) => (a -> b) -> f a -> f b (.) :: (Functor f) => (a -> b) -> f a -> f b
@@ -62,10 +64,10 @@ replicateS n = runState . replicateM n . State
doColumn :: Dimension -> Dimension -> Dimension -> [(D -> D)] -> [D] doColumn :: Dimension -> Dimension -> Dimension -> [(D -> D)] -> [D]
doColumn width height k adjs = doColumn width height k adjs =
let let
(h1, d1) = doC height k adjs (ind, fs) = unzip . sortBy (comparing $ snd . ($ (width, height)) . snd) . zip [0 :: Int ..] $ adjs
(h2, d2) = doC height k (reverse adjs) (_, ds) = doC height k fs
in in
if h2 < h1 then reverse d2 else d1 map snd . sortBy (comparing fst) . zip ind $ ds
where where
doC h _ [] = (h, []) doC h _ [] = (h, [])
doC h n (f : fs) = (adj :) . doC (h - h') (n - 1) fs doC h n (f : fs) = (adj :) . doC (h - h') (n - 1) fs