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

maximize rather than minimize the rating.

Browse Source
This commit is contained in:
David Roundy
2007-06-01 18:32:40 +00:00
parent b7c65599b7
commit 4f37c940b5
2 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Anneal.hs
View File

@@ -1,4 +1,5 @@
module XMonadContrib.Anneal ( Rated(Rated), the_value, the_rating, anneal ) where module XMonadContrib.Anneal ( Rated(Rated), the_value, the_rating
, anneal, annealMax ) where
import System.Random ( StdGen, Random, mkStdGen, randomR ) import System.Random ( StdGen, Random, mkStdGen, randomR )
import Control.Monad.State ( State, runState, put, get, gets, modify ) import Control.Monad.State ( State, runState, put, get, gets, modify )
@@ -21,6 +22,9 @@ instance Ord a => Ord (Rated a b) where
anneal :: a -> (a -> Double) -> (a -> [a]) -> Rated Double a anneal :: a -> (a -> Double) -> (a -> [a]) -> Rated Double a
anneal st r sel = runAnneal st r (do_anneal sel) anneal st r sel = runAnneal st r (do_anneal sel)
annealMax :: a -> (a -> Double) -> (a -> [a]) -> Rated Double a
annealMax st r sel = runAnneal st (negate . r) (do_anneal sel)
do_anneal :: (a -> [a]) -> State (Anneal a) (Rated Double a) do_anneal :: (a -> [a]) -> State (Anneal a) (Rated Double a)
do_anneal sel = do sequence_ $ replicate 100 da do_anneal sel = do sequence_ $ replicate 100 da
gets best gets best

2
Mosaic.hs
View File

@@ -153,7 +153,7 @@ mosaicL f hints origRect origws
mc_mosaic :: [NamedWindow] -> CutDirection mc_mosaic :: [NamedWindow] -> CutDirection
-> Rated Double (Mosaic (NamedWindow,Rectangle)) -> Rated Double (Mosaic (NamedWindow,Rectangle))
mc_mosaic ws d = fmap (rect_mosaic origRect d) $ mc_mosaic ws d = fmap (rect_mosaic origRect d) $
anneal (zipML (example_mosaic ws) (map findarea ws)) annealMax (zipML (example_mosaic ws) (map findarea ws))
(the_rating . rate_mosaic ratew . rect_mosaic origRect d ) (the_rating . rate_mosaic ratew . rect_mosaic origRect d )
changeMosaic changeMosaic