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

Tabbed: Make use of the Stack to get focused window

Browse Source
This commit is contained in:
Jason Creighton
2007-06-27 03:39:10 +00:00
parent ab6d08aad0
commit 614fec4e8b
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Tabbed.hs
View File

@@ -20,8 +20,7 @@ module XMonadContrib.Tabbed (
, TConf (..), defaultTConf , TConf (..), defaultTConf
) where ) where
import Control.Monad ( forM, liftM ) import Control.Monad ( forM )
import Control.Monad.State ( gets )
import Graphics.X11.Xlib import Graphics.X11.Xlib
import XMonad import XMonad
@@ -86,7 +85,7 @@ dolay shr conf sc@(Rectangle x y wid _) s = withDisplay $ \dpy ->
maketab (t,ow) = newDecoration ow t 1 bgcolor activecolor (fontName conf) (drawtab t ow) (focus ow) maketab (t,ow) = newDecoration ow t 1 bgcolor activecolor (fontName conf) (drawtab t ow) (focus ow)
drawtab r@(Rectangle _ _ wt ht) ow d w' gc fn = drawtab r@(Rectangle _ _ wt ht) ow d w' gc fn =
do nw <- getName ow do nw <- getName ow
tabcolor <- (maybe inactivecolor (\focusw -> if focusw == ow then activecolor else inactivecolor) . W.peek) `liftM` gets windowset let tabcolor = if W.focus s == ow then activecolor else inactivecolor
io $ setForeground d gc tabcolor io $ setForeground d gc tabcolor
io $ fillRectangles d w' gc [Rectangle 0 0 wt ht] io $ fillRectangles d w' gc [Rectangle 0 0 wt ht]
io $ setForeground d gc textcolor io $ setForeground d gc textcolor
@@ -100,7 +99,7 @@ dolay shr conf sc@(Rectangle x y wid _) s = withDisplay $ \dpy ->
(fromIntegral (wt `div` 2) - fromIntegral (width `div` 2)) (fromIntegral (wt `div` 2) - fromIntegral (width `div` 2))
((fromIntegral ht + fromIntegral asc) `div` 2) name' ((fromIntegral ht + fromIntegral asc) `div` 2) name'
forM tws maketab forM tws maketab
return $ map (\w -> (w,shrink conf sc)) ws return [(W.focus s, shrink conf sc)]
type Shrinker = String -> [String] type Shrinker = String -> [String]