twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-17 21:33:46 -07:00
Code Issues Packages Projects Releases Wiki Activity

Circle: raise the focus window

Browse Source
This commit is contained in:
Peter De Wachter
2007-06-21 19:12:07 +00:00
parent f292474f20
commit b8b88134c5
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Circle.hs
View File

@@ -20,7 +20,7 @@ module XMonadContrib.Circle (
import Graphics.X11.Xlib import Graphics.X11.Xlib
import XMonad import XMonad
import StackSet (integrate) import StackSet (integrate, Stack(..))
-- $usage -- $usage
-- You can use this module with the following in your Config.hs file: -- You can use this module with the following in your Config.hs file:
@@ -28,7 +28,7 @@ import StackSet (integrate)
-- > import XMonadContrib.Circle -- > import XMonadContrib.Circle
circle :: Layout a circle :: Layout a
circle = Layout { doLayout = \r -> return . circleLayout r . integrate, circle = Layout { doLayout = \r s -> return . raise (length (up s)) . circleLayout r $ integrate s,
modifyLayout = return . const Nothing } modifyLayout = return . const Nothing }
circleLayout :: Rectangle -> [a] -> [(a, Rectangle)] circleLayout :: Rectangle -> [a] -> [(a, Rectangle)]
@@ -37,6 +37,9 @@ circleLayout r (w:ws) = master : rest
where master = (w, center r) where master = (w, center r)
rest = zip ws $ map (satellite r) [0, pi * 2 / fromIntegral (length ws) ..] rest = zip ws $ map (satellite r) [0, pi * 2 / fromIntegral (length ws) ..]
raise :: Int -> [a] -> [a]
raise n xs = xs !! n : take n xs ++ drop (n + 1) xs
center :: Rectangle -> Rectangle center :: Rectangle -> Rectangle
center (Rectangle sx sy sw sh) = Rectangle x y w h center (Rectangle sx sy sw sh) = Rectangle x y w h
where s = sqrt 2 :: Double where s = sqrt 2 :: Double