twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 03:20:21 -07:00
Code Issues Packages Projects Releases Wiki Activity

WindowMenu: own colorizer that works better with Bluetile's new theme

Browse Source
This commit is contained in:
Jan Vornberger 2010-04-02 18:41:19 +00:00
parent 96f3456b96
commit 4e8285dcbe
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
XMonad/Actions/WindowMenu.hs
View File

@ -41,6 +41,14 @@ import XMonad.Util.XUtils (fi)
-- --
-- > , ((modm, xK_o ), windowMenu) -- > , ((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 :: X ()
windowMenu = withFocused $ \w -> do windowMenu = withFocused $ \w -> do
tags <- asks (workspaces . config) tags <- asks (workspaces . config)
@ -48,7 +56,7 @@ windowMenu = withFocused $ \w -> do
Rectangle sx sy swh sht <- gets $ screenRect . W.screenDetail . W.current . windowset Rectangle sx sy swh sht <- gets $ screenRect . W.screenDetail . W.current . windowset
let originFractX = (fi x - fi sx + fi wh / 2) / fi swh let originFractX = (fi x - fi sx + fi wh / 2) / fi swh
originFractY = (fi y - fi sy + fi ht / 2) / fi sht originFractY = (fi y - fi sy + fi ht / 2) / fi sht
gsConfig = defaultGSConfig gsConfig = (buildDefaultGSConfig colorizer)
{ gs_originFractX = originFractX { gs_originFractX = originFractX
, gs_originFractY = originFractY } , gs_originFractY = originFractY }
actions = [ ("Cancel menu", return ()) actions = [ ("Cancel menu", return ())