diff options
| author | Jan Vornberger <jan.vornberger@informatik.uni-oldenburg.de> | 2010-04-02 20:41:19 +0200 |
|---|---|---|
| committer | Jan Vornberger <jan.vornberger@informatik.uni-oldenburg.de> | 2010-04-02 20:41:19 +0200 |
| commit | 9f0c5a948f2214bf5bc38aa032b136eaeca8af0c (patch) | |
| tree | fb54c64f57feec1f04aff87cabc20be422fe3c4a /XMonad | |
| parent | c4637cc12c0b64fed0b515f1026681464efe7ab3 (diff) | |
| download | XMonadContrib-9f0c5a948f2214bf5bc38aa032b136eaeca8af0c.tar.gz XMonadContrib-9f0c5a948f2214bf5bc38aa032b136eaeca8af0c.tar.xz XMonadContrib-9f0c5a948f2214bf5bc38aa032b136eaeca8af0c.zip | |
WindowMenu: own colorizer that works better with Bluetile's new theme
Ignore-this: 708e1ad1654165fc5da5efc943a2a6b9
darcs-hash:20100402184119-594c5-85606e6199c43214a91dbf0f78a52c489f191793.gz
Diffstat (limited to 'XMonad')
| -rw-r--r-- | XMonad/Actions/WindowMenu.hs | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/XMonad/Actions/WindowMenu.hs b/XMonad/Actions/WindowMenu.hs index 4078703..d59cddc 100644 --- a/XMonad/Actions/WindowMenu.hs +++ b/XMonad/Actions/WindowMenu.hs @@ -41,6 +41,14 @@ import XMonad.Util.XUtils (fi) -- -- > , ((modm, xK_o ), windowMenu) +colorizer :: a -> Bool -> X (String, String) +colorizer _ isFg = do + fBC <- asks (focusedBorderColor . config) + nBC <- asks (normalBorderColor . config) + return $ if isFg + then (fBC, nBC) + else (nBC, fBC) + windowMenu :: X () windowMenu = withFocused $ \w -> do tags <- asks (workspaces . config) @@ -48,7 +56,7 @@ windowMenu = withFocused $ \w -> do Rectangle sx sy swh sht <- gets $ screenRect . W.screenDetail . W.current . windowset let originFractX = (fi x - fi sx + fi wh / 2) / fi swh originFractY = (fi y - fi sy + fi ht / 2) / fi sht - gsConfig = defaultGSConfig + gsConfig = (buildDefaultGSConfig colorizer) { gs_originFractX = originFractX , gs_originFractY = originFractY } actions = [ ("Cancel menu", return ()) |